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A  wide  range  of  practical  problems  can  be  simulated  using  these  shapes. 
For  example,  flat  plates  can  be  used  to  model  the  superstructure  of 
a  ship,  the  body  of  a  truck,  or  the  wings  and  stores  of  an  aircraft. 

The  finite  elliptic  cylinder  can  be  used  to  model  a  mast  or  smoke 
stack  of  a  snip,  or  the  fuselage  and  engines  of  an  aircraft. 

This  document  describe,  the  FORTRAN  coding  in  detail.  It  gives 
background  on  practical  aspects  of  the  GTD  and  contains  an  overview 
of  the  code  organization.  This  information  will  be  of  primary  interest 
to  someone  attempting  to  modify  the  code.  It  will  also  be  helpful  when 
the  code  is  being  implemented  on  a  computer  system  on  which  the  coding 
may  not  be  compatible.^ 
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CHAPTER  I 
INTRODUCTION 


The  Numerical  Electromagnetic  Code  -  Basic  Scattering  Code 
is  a  user-oriented  computer  code  for  the  analysis  of  the  far  field 
patterns  of  antennas  in  the  presence  of  perfectly  conducting  metal 
structures  at  UHF  and  above.  Complicated  structures  can  be  simu¬ 
lated  by  arbitrarily  oriented  flat  plates,  an  infinite  ground  plane, 
and  a  finite  elliptic  cylinder.  This  type  of  analysis  has  been 
used  very  successfully  in  the  past  to  model  aircraft  shapes[l,2,?] . 
The  present  solution  has  been  extended  to  include  a  wide  range 
of  problems.  For  example,  flat  plates  can  be  used  to  model  the 
superstructure  of  a  ship,  the  body  of  a  truck,  or  the  wings  and 
stores  of  an  aircraft.  The  finite  elliptic  cylinder  can  be  used 
to  model  a  mast  or  smoke  stack  of  a  ship,  or  the  fuselage  and  engines 
of  an  aircraft. 

The  analysis  is  based  on  uniform  asymptotic  techniques  formu¬ 
lated  in  terms  of  the  Geometrical  Theory  of  Diffraction  (GTD)[ 4,5,6] . 
The  GTD  approach  is  ideal  for  a  general  high  frequency  study  of 
antennas  in  a  complex  environment  in  that  only  the  most  basic  struc¬ 
tural  features  of  an  otherwise' very  complicated  structure  need  to 
be  modeled.  This  is  because  ray  optical  techniques  are  used  to 
determine  components  of  the  field  incident  on  and  diffracted  by 
the  various  structures.  Components  of  the  diffracted  fields  are 
found  using  the  GTD  solutions  in  terms  of  the  individual  rays  which 
are  summed  with  the  geometrical  optics  terms  in  the  far  field. 

The  rays  from  a  given  scatterer  tend  to  interact  with  other  struc¬ 
tures  causing  various  higher-order  terms.  In  this  way  one  can 
trace  out  the  various  possible  combinations  of  rays  that  interact 
between  scatterers  and  determine  and  include  only  the  dominant 
terms.  Thus,  one  need  only  be  concerned  with  the  important  scat¬ 
tering  components  and  neglect  all  other  higher-order  terms.  This 
method  leads  to  accurate  and  efficient  computer  codes  that  can 
be  systematically  written  and  tested.  Complex  problems  can  be 
built  up  from  simpler  problems  in  manageable  p-eces. 

The  limitations  associated  with  the  compu^.-’  ^ode  result 
from  the  basic  nature  of  the  analyses,.  The  solution  is  derived 
using  the  GTD  which  is  a  high  frequency  approach.  In  terms  of 
the  scattering  from  plate  structures  this  means  that  each  plate 
should  have  edges  at  least  a  wavelength  long.  In  terms  of  the 
cylinder  structure  its  major  and  minor  radii  and  length  should 
be  a  wavelength  in  extent.  In  addition,  each  antenna  element  should 
be  at  least  a  wavelength  from  all  edges  and  the  curved  surface. 

In  many  cases,  the  wavelength  limit  can  be  reduced  to  a  quarter 
wavelength  for  engineering  purposes. 
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Modeling  small  structures  and  antennas  can  be  better  accom¬ 
plished  using  an  integral  equation  solution  such  as  NEC-Moment 
Methods[7],  The  Basic  Scattering  Code  has  been  interfaced  with 
the  Moment  Method  code  so  that  the  capabilities  of  both  methods 
can  be  used  to  the  fullest.  For  example,  the  Moment  Method  code 
can  be  used  to  analyze  the  currents  and  impedance  of  an  antenna. 

The  magnitude  and  phase  of  the  current  weights  can  then  be  used 
in  the  Basic  Scattering  Code  to  predict  the  far  field  patterns 
of  the  antennas  in  arbitrary  pattern  cuts. 

There  are  two  documents  describing  the  NEC-Basic  Scattering 
Code.  Part  I  is  a  User's  Manual [8]  that  contains  a  detailed  de¬ 
scription  of  the  input  parameters,  an  interpretation  of  the  output, 
and  example  problems.  The  example  problems  are  composed  of  sample 
input  data  with  the  resulting  far  field  patterns  compared  against 
known  results  to  confirm  the  validity  of  the  code.  Most  users 
of  the  code  will  find  that  the  User's  Manual  is  sufficient  to  learn 
how  to  effectively  operate  the  code. 

This  document  is  Part  II.  It  describes  the  FORTRAN  coding 
in  detail.  Chapter  II  gives  background  on  practical  aspects  of 
the  GTO.  Several  examples  are  shown  to  illustrate  how  the  various 
GTD  fields  superimpose  to  give  a  total  solution.  Next,  a  partic¬ 
ular  GTD  term  is  discussed  in  more  detail  to  show  the  general  con¬ 
cepts  involved  throughout  the  code.  Chapter  III  contains  an  over¬ 
view  on  how  the  code  is  organized.  It  describes  the  various  coordinate 
systems  involved,  how  a  general  subroutine  is  organized,  and  how 
the  various  subroutines  are  interrelated.  Chapter  IV  contains 
for  each  subroutine:  (1)  a  statement  of  purpose.  v2)  an  illus¬ 
tration  showing  the  geometry  involved,  (3)  a  brief  narrative  on 
the  method  used,  (4)  a  flow  diagram,  (5)  a  dictionary  of  major 
variables,  (6)  a  listing  of  the  code.  Chapter  V  defines  the  common 
blocks  and  Chapter  VI  lists  the  system  library  functions  used  by 
the  code. 

The  information  in  the  Code  Manual  will  be  of  primary  interest 
to  someone  attempting  to  modify  the  code.  It  will  also  be  helpful 
when  the  code  is  being  implemented  on  a  computer  system  on  which 
the  coding  may  not  be  compatible. 


CHAPTER  II 
BACKGROUND 


The  Basic  Scattering  Code  is  used  to  evaluate  the  far  field 
patterns  of  a  given  antenna  in  the  presence  of  perfectly  conducting 
scattering  structures.  It  is  a  useful  tool  in  the  analysis  and 
design  of  antenna  placement  and  performance.  This  section  provides 
the  reader  with  background  on  how  GTD  is  used  in  the  code  for  com¬ 
puting  the  scattered  fields.  It  also  shows  how  to  interpret 
and  correlate  the  computed  scattered  fields  to  the  specific  geometry 
of  a  scattering  structure.  This  chapter  also  provides  a  simple 
view  of  how  the  code  generates  a  specific  GTD  scattered  term. 

The  explanations  provided  are  general,  giving  an  introduciton  to 
the  more  detailed  descriptions  provided  later  in  the  code  manual. 

For  a  theoretical  anlaysis  of  the  methods  used  in  the  code,  the 
reader  is  encouraged  to  refer  to  References  1,  4,  5,  6. 

A.  Qualitative  Overview  of  GTD 

The  goal  of  the  code  is  to  solve  for  the  fields  scattered 
in  a  specified  direction  from  a  source  (or  set  of  sources)  by  the 
various  features  of  a  structure,  as  shown  in  Figure  1.  The  total 
field  in  a  given  observation  direction  is  obtained  by  taking  the 
sum  of  fields  resulting  from  a  number  of  different  scattering 
mechanisms.  Each  component  is  determined  by  tracing  the  ray  through 
the  appropriate  geometrical  path  and  then  using  the  Uniform  Geo¬ 
metrical  Theory  of  Diffraction  to  compute  the  magnitude  and  phase 
of  the  fielc  it  has  not  been  shadowed.  The  following  examples 
serve  to  show  the  different  mechanisms  used  in  computing  the  scat¬ 
tered  field  and  an  example  of  typical  fields  resulting  from  such 
mechanisms. 

Example  consisting  of  a  source  and  a  single  scattering  element 

The  geometry  used  is  a  half-wave  electric  dipole  mounted 
two  wavelengths  above  a  square  plate  four  wavelengths  on  a  side 
as  shown  in  Figure.?.  The  total. field  of  the  source  and  structure 
is  given  by,  E  =  t  +  l  where  t  is  the  incident  field: 

-pi  ..  |  incident  source  field,  where  ray  is  not  shadowed 

1  ”  |  0  ,  where  source  ray  is  shadowed, 

and  Es  is  the  GTD  scattered  field: 

rs  f scattered  fields, 

r  '  1° 
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where  the  rays  are  not  shadowed, 
where  the  rays  are  shadowed. 


Figure  1--I1 lustration  of  general  GTD  problem. 

The  GTD  scattered  field  is  composed  of  the  reflected  fields,  dif 
fractea  fields,  etc.  The  source  and  reflected  fields  comprise 
the  geometrical  optics  fields  (G.O.). 


Figure  2--Geometry  for  a  source  in  the  presence  of  a  plate. 


Several  single-order  terms  are  used  to  compute  the  fields 
(in  the  far-zone)  scattered  by  this  structure.  The  word  "order" 
here  refers  to  the  number  of  times  the  particular  scattering  term 
interacts  with  the  body  as  it  propagates  from  the  source  to  the 
observation  point.  The  source  (or  incident)  field  is  that  field 
which  propagates  straight  from  the  source  into  the  far  field  in 
the  direction  of  the  observer  as  shown  in  Figure  3.  The  pattern 
of  the  source  field,  in  the  presence  of  the  plate,  taken  in  the 
plane  of  the  page  is  shown  in  Figure  4.  The  scale  used  in  the 
patterns  of  Figures  4-10  is  0  to  -40  dB.  They  are  normalized  to 
the  maximum  value  of  the  total  field  pattern  in  Figure  10. 


Figure  3--,I  llustrat  ion  of  source  .  Figure  4--Source  field, 
ray  paths. 


The  reflected  field  is  simply  the  geometrical  optics  field 
reflected  by  the  plate  as  shown  in  Figure  5.  The  fields  due  to 
ihe  reflection  mechanism,  shown  in  Figure  6,  are  easily  obtained 
from  image  theory.  The  total  geometrical  optics  fields  (the  sum 
of  the  direct  and  reflected  fields)  are  plotted  In  Figure  7. 
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Figure  5--1 1  lustration  of  plate 
reflected  ray  paths. 


jure  6--Fit’ld  reflected 
froa  plate. 


:igure  7--6eoe3£trica1  optics  field 
which  is  the  sum  of  the 
incident  and  reflected 


The  diffracted  fields,  which  include  edge,  slope,  and  corner 
diffraction,  are  shown  in  Figure  3.  The  ray  paths  for  edge  dif¬ 
fraction  are  shewn  in  Figure  S.  Figure  10  shows  the  total  scat¬ 
tered  field.  Note  that  the  diffracted  field  smoothes  out  the 
discontinuities  on  the  G.O,  fields.  Although  the  diffracted  field 
magnitude  is  continuous  at  the  shadow  boundary,  the  phase  jumps 
by  180°  there.  This  subtracts  from  the  lite  side  and  adds  to  the 
shadow  side,  smoothing  out  the  discontinuity.  Higher  order  terms 
(such  as  double  diffraction)  could  also  be  computed  to  further 
improve  the  accuracy  of  the  solution. 


Example  consisting  of  a  source  and  three  scattering  elements 


Figure  11— IT  lustration  of  source  and  scattering  elements. 


The  geometry  used  for  this  example  is  shown  in  Figure  11. 

As  with  the  previous  example,  the  source  field,  single  order  plate 
reflections,  and  diffractions  exist,  as  is  shown  in  Figures  12- 
16.  Field  patterns  in  Figures  1 1-36  arc  taken  in  the  plane  normal 
to  the  cylinder  and  plotted  with  a  scale  from  0  to  -40  dB  such 
that  they  are  normalized  to  the  maximum  value  of  the  total  field 
pattern  in  Figure  36. 


Figure  12--Source  field 
ray  paths. 


Figure  13— Source  fields. 
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Figure  15--Fields  due  to  single  Figure  16— -Fields  due  to 

order  plate  re-  plate  dif* 

flection.  fraction. 


In  addition  to  first  order  plate  terms  there  are  first  order 
cylinder  terms:  1)  the  scattered  (reflected  and  diffracted)  fields 
from  the  cylinder's  curved  surface,  2)  the  field  reflected  from 
the  end  caps  and  3)  the  fields  diffracted  by  the  end  cap  rims. 

These  are  shown  in  Figures  17-21.  Note  that  in  the  geometry  pre¬ 
sented  in  Figure  11,  end  cap  reflections  will  not  occur.  Therefore, 
a  different  geometry  is  shown  in  Figure  21  to  demonstrate  end  cap 
reflections.  Note  that  with  more  than  one  body  present,  individual 
terms  are  often  shadowed  by  other  bodies  in  the  structure,  creating 
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discontinuities  as  shown  in  many  of  the  figures  (as  in  Figure  18 
for  the  cylinder  scattered  fields). 


Figure  17--First  order  ray 
paths  for  the 
cylinder's  curved 
surface. 


Figure  18— First  order  cylinder 

curved  surface  scattered 
field. 


SOURCE 


Figure  19--Ray  paths  for  end  cap  diffracted  fields. 
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Figure  20--Fielcis  due  to  end  cap  diffraction. 


Figure  21--I1 lustration  of  ray  naths  for  end  cap  reflected  fields. 
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In  addition  to  single  order  mechanisms,  second  order  scat- 
tering  occurs  where  the  ray  is  scattered  by  one  body  and  then  scat¬ 
tered  by  the  second.  Several  different  double  scattering  (or  second 
order)  terms  are  computed.  Double  reflection,  where  a  ray  is  re¬ 
flected  by  one  plate  and  then  by  another,  is  shown  in  Figures  22 
and  23. 


Figure  22--Ray  path  for  double  Figure  23--F iel ds  due  to 

reflected  fields.  double  reflected 

rays. 

Another  second  order  scattering  mechanism  involving  plates 
is  reflection-diffraction,  where  a  ray  is  reflected  from  one  plate 
and  diffracted  by  amther.  This  is  illustrated  in  Figures  24  and 
25.  The  inverse  mechanism,  diffraction-reflection,  illustrated 
in  Figures  26  and  27,  involves  fields  diffracted  from  a  plate  edge 
and  ther  reflected  by  another  plate. 


Figure  24— Ray  paths  for  plate 

reflection-diffraction. 


Figure  25— Fields  resulting 
from  plate 
reflection- 
diffraction. 


SOURCE 


Figure  26— Illustration  of  plate 
diffracted-ref lected 
ray  paths. 


Figure  27— Fields  due 

to  plate  diffraction 

reflection 

mechanism. 


A  number  of  the  scattering  mechanisms  involve  interactions 
between  the  cylinders  and  one  of  the  plates.  Two  such  terms  result 
from  scattering  of  the  fields  by  the  cylinder  and  then  reflection 
by  a  plate  and  vice-versa.  Figures  28  and  29  illustrate  the  ray 
paths  and  fields  of  rays  which  are  reflected  from  a  plate  and 
then  scattered  by  the  elliptic  cylinder.  Figures  30  and  31  il¬ 
lustrate  ray  paths  and  fields  resulting  from  ray  scattered  by  the 
cylinder  and  then  reflected  by  a  plate. 


Figure  30— Illustration  of  rays  Figure  31— Fields  scattered 

scattered  by  cylinder  by  the  cylinder 

and  then  reflected  by  and  reflected  by 

a  plate.  a  plate. 

Another  second  order  scattering  mechanism  involves  fields 
reflected  by  the  cylinder  and  then  diffracted  by  a  plate  edge. 

The  ray  paths  and  fields  for  this  term  are  illustrated  in  Figures 
32  and  33.  The  inverse  of  this  term  is  the  fields  of  rays  dif¬ 
fracted  by  a  plate  edge  and  then  reflected  by  the  cylinder,  as 
shown  in  Figures  34  and  35. 
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SOURCE 


Figure  32--I1 lustration  of  ray 
reflected  by  cylinder 
and  diffracted  by 
plate  edge. 


SOURCE 


Figure  34--! 1  lustration  of  rays 
diffracted  by  plate 
edge  and  reflected 
by  cylinder. 


Figure  33— Fields  reflected  by 
cylinder,  diffracted 
by  plate  edges. 


mm 


Figure  35— fields  diffracted  by 
plate,  reflected 
by  cylinder. 


The  total  pattern  Is  obtained  by  summing  the  field  components 
for  the  mechanisms  mentioned  previously.  The  total  field  pattern 
is  illustrated  in  Figure  36. 


Figure  36--Total  fields  of  source  in  the  presence 
of  scattering  bodies. 


Higher  order  scattering  terms  can  also  be  computed,  which 
will  in  some  cases  improve  the  accuracy  of  the  field  computations. 
Generally,  it  is  found  that  such  terms  are  negligible  in  magnitude 
as  well  as  being  difficult  to  compute  and  therefore  are  not  included 
in  the  code.  The  presence  of  discontinuities  in  a  final  field 
pattern,  however,  indicates  the  presence  of  regions  where  higher- 
order  terms  are  needed. 

B.  Method  Used  in  Computing  the  Fields  Using  GTD 

In  order  to  use  the  Basic  Scattering  Code,  the  user  first 
specifies  a  set  of  observation  angles,  for  which  he  desires  to 
obtain  the  far  field  pattern  of  the  source(s)  in  the  presence  of 
a  structure.  The  code  computes  the  fields  over  the  pattern  angles 
specified  for  each  source  defined  and  uses  superposition  to  obtain 
the  total  fields.  For  each  observation  direction  computed,  the 
code  computes  every  STD  term  applicable  to  the  structure  at  hand, 
unless  the  user  limits  the  types  of  terns  computed.  Each  term 
is  computed  independently  of  the  others.  The  following  gives  an 
null ine  of  the  procedure  used  in  computing  a  particular  GTD  term. 

The  code  first  analyzes  the  input  geometry  in  the  geometry 
subroutines.  Many  of  the  parameters  which  do  not  vary  for  a  given 
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geometry  are  computed  there  in  advance.  This  avoids  re-computation 
of  fixed  variables.  It  also  gives  an  a  priori  indication  of  the 
regions  in  which  different  GTO  terms  need  to  be  included.  This 
allows  the  code  to  avoid  performing  computations  where  not  neces¬ 
sary. 

Two  examples  of  GTO  problems  involving  first  and  secono  order 
scattering  phenomena  are  shown  in  Figures  37  and  38,  respectively. 

A  basic  outline  of  how  the  various  fields  are  computed  is  as  follows: 


Make  any  a  priori  checks  of  the  fixed  geometry 
Compute  ray  path  for  specific  mechanism  desired 
Determine  if  ray  is  blocked  anywhere  by  another  part 
of  the  structure 

Use  theory  to  compute  the  magnitude  and  phase  of  the 
field  component  resulting  from  the  mechanism.  If  a  second 
order  mechanism  is  involved  this  is  a  two  step  process 
where  the  field  of  the  first  interaction  is  computed 
and  then  the  field  of  the  second  interaction  is  computed. 


SOURCE 


SOURCE 


Figure  37- -first  order  scat¬ 
tered  tens. 


Figure  38--Seeond  order  scat¬ 
tered  term. 


The  following  is  a  more  specific  example  of  how  the  code  computes 
the  fields  of  a  second  order  scattering  term.  The  geometry,  con¬ 
sisting  of  n  source  and  four  plates,  is  Illustrated  in  Figure  39. 


Figure  39--I1 lustration  of  a  multiple  plate  example. 

The  code  starts  by  choosing  a  source  and  a  particular  field 
terr.i.  As  an  example,  let  us  choose  the  field  reflected  by  plate 
#1  and  Lnen  diffracted  by  edge  #1  of  plate  #4.  The  code  next 
chooses  an  observation  angle  and  performs  the  following  tasks: 

1)  The  fixed  geometry  bounds  are  checked  to  see  if  a  dif¬ 
fraction  car  occur  in  the  direction  specified.  If  it 
can,  the  code  proceeds  to  the  next  seep.  If  it  can’t, 
the  code  sets  the  fields  to  zero. 

2)  Determination  of  ray  path,  The  code  establishes  the  ray 
path,  which  includes  both  to*  reflection  and  diffraction 
points,  as  well  as  the  propagation  direction  of  the  ray. 
It  is  temporarily  assumed  that  plate  #1  is  of  infinite 
extent,  and  that  no  shadowing  occurs.  It  is  also  assumed 
that  edge  #1  of  plate  #4  is  infinite.  This  guarantees 
that  the  ’’ef lection-diffraction  will  occur.  The  plate 
reflection  can  be  handled  by  using  the  image  of  the 
source  in  plate  #1  and  removing  the  plate,  as  all  the 
plate  reflected  rays  appear  to  emanate  fro a  the  image 
location  (as  shown  in  Figure  40). 
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SOURCE 


SOURCE 

IMAGE 


Figure  40— I 1  lustration  of  the  fields  reflected 
off  of  plate  #1. 

The  code  then  computes  the  diffraction  point  such  that 
the  law  of  diffraction  is  satisfied.  The  law  of  dif~ 
fraction  specifies  that  the  angle  the  incident  ray  ma^es 
with  the  edge  and  the  angle  the  diffracted  ray  makes 
with  the  edge  are  equal  as  shown  iR  Figure  41. 


Figure  41— S 1  lustration  of  a  ray  fro®  the  source  i*age 
of  plate  #1  diffracted  froe  edge  £•  of 
plate  #4. 
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Once  the  diffraction  point  is  known,  the  reflection  point 
on  plate  #1  is  found  by  determining  the  line  from  the 
source  image  to  the  diffraction  point.  This  reflection 
point  is  the  intersection  between  this  line  and  plate 
#1  as  shown  in  Figure  42. 


INFINITELY 


Figure  42--Gecmetry  used  in  finding  reflection 
point  on  plate  #1. 

The  code  then  determines  if  the  ray  path  is  valid  for 
the  finite  geometry  of  the  structure.  The  reflection 
point  is  valid  if  the  line  drawn  from  the  image  source 
to  the  diffraction  point  passes  through  the  finite  plate 
(plate  #1)  as  shown  in  Figure  43.  The  diffraction  point 
is  valid  if  the  point  lies  along  the  Halts  of  the  finite 
edge  (see  Figure  44).  Figure  45  shows  the  computed  ray 
path  (assessing  the  scatterer  points  do  lie  on  the  finite 
plates). 


DIFFRACTION 


RAY  DOES  NOT  HIT  FINITE  PLATE, 
REFLECTION  DOES  NOT  OCCUR 


Figure  43--inustration  of  test  for  reflections  from 
plate  #1  for  two  different  cases. 


DIFFRACTION  POINT  ON 
EDGE,  DIFFRACTION  OCCURS 


DIFFRACTION  POINT  NOT  ON 
EDGE,  DIFFRACTION  DOES 
NOT  OCCUR 


Figure  44— Illustration  of  test  for  diffraction  from 
edge  #1  of  plate  #4. 


Figure  45— II lustration  of  the  ray  path  for  a  field  reflected 
from  plate  #1  then  diffracted  from  edge  #1 
of  plate  #4. 
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3.  Test  for  ray  shadowing 

The  code  next  checks  to  see  if  the  ray  is  obstructed  anywhere 
along  its  path.  The  code  first  checks  to  see  if  the  ray  is  shadowed 
after  the  diffraction  by  determining  if  a  ray  traveling  in  direction 
6  from  the  diffraction  point  will  hit  a  plate  or  a  cylinder.  The 
code  then  checks  to  see  if  the  ray  is  shadowed  between  the  reflection 
and  diffraction  points.  In  the  example  given  this  is  the  critical 
area,  as  there  are  other  plates  in  this  vicinity  (see  Figure  46). 


A 

D 


Ray  not  shadowed  between  reflection  and 
diffraction  points. 


A 


PLATE  #2 


Ray  shadowed  by  plate  #2. 

Figure  46— II lustration  of  test  for  the  shadowing  of  the 
ray  of  interest  by  a  plate. 


The  code  then  checks  to  see  if  the  source  ray  is  shadowed 
by  a  plate  or  cylinder.  If  it  is  found  that  the  ray  is  shadowed 
or  that  the  reflection  diffraction  specified  cannot  happen  for 
the  geometry  at  hand,  the  code  suspends  computation  of  the  term 
and  sets  the  ref lected-diffracted  ray's  field  to  zero. 

4a.  Computation  of  reflected  field  incident  on  the  diffraction 
point. 

The  reflected  field  is  simply  obtained  by  using  the  image 
source  located  at  the  image  position  and  computing  the  "free-space" 
fields  incident  on  the  diffraction  point. 

4b.  Computation  of  the  diffracted  field  * 

The  diffracted  field  is  obtained  by  multiplying  the  field 
incident  on  the  edge  by  the  edge  diffraction  coefficients.  The 
parameters  needed  for  the  diffraction  coefficients  are  obtained 
from  the  geometry  of  the  incident  and  diffracted  rays  and  the  edge. 
The  phase  of  the  diffracted  ray  is  then  referred  to  the  coordinate 
system  origin  and  the  task  is  completed. 
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CHAPTER  III 
CODE  ORGANIZATION 


The  information  in  Chapter  II  is  designed  to  present  a  quali¬ 
tative  view  as  to  how  the  GTD  is  systematically  used  to  construct 
a  solution  to  a  couple  of  problems.  This  chapter  is  intended  to 
present  how  specific  pieces  of  the  code  relate  to  the  computation 
of  the  scattered  fields. 

First  a  brief  outline  is  given  in  Section  A.  In  Section  B> 
tables  are  given,  showing  the  interrelationships  of  the  subroutines 
and  the  common  blocks.  Ways  of  reorganizing  the  code  into  smaller 
pieces  are  discussed  in  Section  C.  In  Section  D,  a  description  of 
which  variables  must  be  reJimensioned  to  change  the  maximum  number 
of  sources,  plates,  and  edges  is  given. 

In  the  last  section,  a  brief  discussion  of  most  of  the  coor¬ 
dinate  systems  used  in  the  code  is  presented.  This  is  intended  to 
provide  a  convenient  way  of  reducing  repetitive  discussion  of  these 
systems  throughout  the  subroutine  descriptions. 

A.  Overview  of  Code 


The  Basic  Scattering  Code  is  organized  in  a  systematic  way  to 
increase  the  efficiency  of  computation  by  reducing  core  swapping 
and  to  allow  different  pieces  to  be  run  separately.  This  feature 
can  be  quite  useful  when  it  is  necessary  to  run  the  code  in  a  limited 
amount  of  core. 

The  various  operations  of  the  code  are  carried  out  in  different 
classes  of  subroutines  such  as  field  computation,  geometry,  shadowing, 
ray  tracing,  and  other  service  subroutines.  Many  of  the  subroutines 
are  classified  along  with  a  brief  description  of  their  principal 
functions  in  Table  1. 

The  MAIN  program  provides  the  overall  control  of  the  various 
operations  of  the  code.  It  controls  the  input  of  the  geometry  data, 
which  is  described  in  detail  in  the  User's  Manual C  8].  It  prepares 
the  data  for  computation  by  transforming  the  input  data  into  the 
optimum  coordinate  system  for  computations  and  by  normalizing  vari¬ 
ables  into  common  unitc  o*  wavelengths.  It  also  directs  the  com¬ 
putation  of  the  various  GTQ  fields  and  superimposes  these  fields 
to  obtain  the  total  far  field  pattern.  The  overall  structure  of 
the  computation  section  of  the  code  is  outlined  below. 

The  main  *omputation  section  is  composed  of  a  number  of  large 
DO  loops  that  step  through  all  the  various  sources,  GTD  field  types, 
scattering  centers,  and  observation  directions.  Each  loop  ends  at 
a  common  point  where  the  different  fields  are  superimposed  and  stored. 
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The  first  loop  steps  through  the  different  sources.  For  a  particular 
source  the  fixed  properties  of  the  geometry  of  the  problem  are  first 
determined  and  stored.  This  includes  the  a  priori  bounds  on  the 
diffracted  fields.  These  parameters  are  calculated  in  the  geometry 
subroutines  GEOM,  GEOMC,  and  GEOMPC. 

The  MAIN  program  then  loops  through  the  various  types  of  GTD  fields 
which  are  identified  by  integers  K  and  J  as  shown  in  Table  1.  K=i 
corresponds  to  fields  involving  plates,  K=2  corresponds  to  cylinder 
fields,  and  K=3  to  plate  cylinder  interaction  fields.  If  only  plates 
are  present  only  the  K=1  subroutines  are  called,  if  only  a  cylinder 
is  present,  only  K=2  subroutines  are  called.  If  both  plates  and  cyl¬ 
inders  are  present  in  the  geometry,  all  three  groups  of  subroutines 
(K=l,2,3)  are  called. 

The  MAIN  program  then  loops  through  the  various. pattern  angles 
desired.  The  observation  directions  are  defined  in  the  pattern  cut 
coordinate  system,  discussed  in  Section  III-E-4.  Subroutine  PATROT 
converts  the  observation  direction  to  the  reference  coordinate  system 
(RCS)  discussed  in  Section  III-E-1. 

The  MAIN  program  now  branches  to  the  section  of  the  code  where 
the  specified  GTD  field  subroutine  is  to  be  called.  In  this  area 
the  code  loops  through  every  combination  of  plates,  edges,  endcaps, 
etc.  which  apply  to  the  GTD  field  (based  on  K  and  J)  being  computed. 

For  example,  if  the  fields  reflected  by  one  plate  and  then  diffracted 
by  another  (K=l,  J=5)  are  being  computed,  this  section  specifies  every 
plate-edge  combination  in  the  geometry.  This  operation  varies  with 
the  specific  term  being  computed.  Details  are  given  in  the  MAIN  program 
write  up  on  K-J  sections  in  Chapter  IV-A.  For  each  combination  of 
plates,  edges,  etc.,  the  MAIN  program  calls  the  appropriate  field 
computation  subroutine  (listed  in  Table  1  according  to  K  and  J)  to 
compute  the  scattered  field. 

This  above  arrangement  of  DO-loops  is  illustrated  in  the  following 
flow  diagram. 
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TABLE  1 

LIST  OF  SOME  IMPORTANT  SUBROUTINES  AND  THEIR  FUNCTION 


Plate  Field  Subroutines  K=1 
3=1  INCFLD  -  direct  field 
J=2  REFPLA  -  field  reflected  from  a  plate 

J=3  RPLRPL  -  field  doubly  reflected  by  plates 

J=4  OIFPLT  -  field  diffracted  by  a  plate 

J=5  RPLDPL  -  field  reflected  by  a  plate  then  diffracted  by  a  plate 

J=6  DPLRPL  -  field  diffracted  by  a  plate  then  reflected  by  a  plate 

Cylinder  Field  Subroutines  K=2 

J=1  SCTCYL  -  field  scattered  by  a  cylinder 

0=2  REFCAP  -  field  reflected  by  an  end  cap 

J=3  ENDIF  -  field  diffracted  by  an  end  cap  rim 

Plate-Cylinder  Interaction  Field  Subroutines  K=3 

3=1  RPLSCL  -  field  reflected  by  a  plate  then  scattered  by  a  cylinder 

J=2  SCLRPL  -  field  scattered  by  a  cylinder  then  reflected  by  a  plate 

J=3  RCLOPL  -  field  reflected  by  a  cylinder  then  diffracted  by  a  plate 
J=4  DPLRCL  -  field  diffracted  by  a  plate  then  reflected  by  a  cylinder. 

Geometry  Subroutines 

6EOM  -  fixed  geometry  of  the  plates 

GEOMC  -  fixed  geometry  of  the  cylinder 

GEOMPC  -  fixed  geometry  of  the  plate-cyl inder  interactions. 

Shadowing  Subroutines 

PLAINT  -  shadowing  due  to  plates 
CYIINT  -  shadowing  due  to  the  cylinder 
CAPINT  -  shadowing  due  to  the  end  caps 

Ray  tracing  Subroutine 

DFPTCL  -  diffraction  points  on  end  cap  rims 
OPTNFW  -  near  field  diffraction  point  on  plate  edge 
DFPTWD  -  far  field  diffraction  point  on  plate  edge 
OFRFPT  -  diffraction  point  on  plate  edge  then  reflection  point 
on  cyl inder 

RFOFPT  -  reflection  point  on  cylinder  then  diffraction  point  on 
plate  edge 

RFPTCL  -  far  field  reflection  point  on  cylinder 
RFOFIN  -  near  field  reflection  point  on  cylinder 
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The  computation  loops  are  nested  in  this  manner,  because  for 
a  given  source  and  GTD  field,  a  minimal  number  of  subroutines  need 
to  be  present  in  the  computer  core  and  they  can  stay  there  for  a 
longer  time  than  for  any  other  loop  conf iguration. 


The  field  subroutines,  whether  they  deal  with  reflection  or  dif¬ 
fraction  for  a  plate  or  a  cylinder,  all  have  the  same  basic  construc¬ 
tion.  The  field  subroutines  start  by  checking  the  a  priori  bounds 
for  the  GTD  mechanism  of  interest  to  see  if  it  can  produce  a  field 
propagating  in  the  given  observation  direction.  If  it  can,  the  code 
proceeds  to  trace  the  path  back  from  the  observation  direction  to 
the  scattering  points  to  the  source  without  regard  to  the  other 
structures  in  the  geometry.  This  is  accomplished  in  the  ray  tracing 
subroutines  listed  in  Table  1.  After  the  ray  path  Is  found,  the 
path  is  tested  to  see  if  it  is  shadowed  by  any  of  the  structures 
in  the  geometry.  The  shadowing  subroutines  are  listed  in  Table  1. 

If  the  ray  path  has  passed  all  the  above  tests  the  actual  field 
calculation  begins.  First  the  field  incident  on  the  scattering  point(s) 
is  computed.  The  polarization  is  then  converted  to  the  proper  ca¬ 
nonical  coordinate  system  for  the  particular  GTD  field.  These  co¬ 
ordinate  systems  are  briefly  discussed  in  section  III-E.  The  use 
of  the  canonical  system  greatly  simplifies  the  computation  of  the 
fields.  Next,  the  reflection  and/or  the  diffraction  coefficients 
are  computed  for  the  problem.  For  example,  the  diffraction  coef¬ 
ficient  of  the  edge  is  computed  in  subroutine  DW  and  its  associated 
subroutines.  The  incident  field  is  then  multiplied  by  the  reflection 
and/or  diffraction  coefficients  along  with  the  spread  factors  to 
compute  the  GTD  field.  The  field  polarization  is  then  converted 
back  to  the  reference  coordinate  system  and  the  far  field  phase 
factor  is  added.  This  phase  factor  is  the  usual  one  given  by 


e-Jks 

s 


e'JkR 
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where  s  is  the  radial  distance  out  from  the  scattering  point,  ^  is 
the  location  of  the  scattering  point,  D  is  the  radial  vector  pointing 
in  the  observation  direction,  and  R  is  the  radial  distance  out  from 
the  reference  coordinate  system  origin  in  the  far  field  observation 

direction.  This  is  illustrated  in  Figure  47.  The  factor  e  ^/R 
is  suppressed  at  this  point  of  the  computations.  It  is  added  later 
in  subroutine  OUTPUT,  for  display  purposes  only,  if  the  user  specifies 
the  distance  R.  The  source  weight,  U,  is  also  not  added  H  this 
point  in  the  calculations  for  convenience.  The  field  therefore  has 
the  form 


P-JW 

1  3  w(Ee§*E-^)  nr~  * 

where  £ft  and  E  are  calculated  in  the  field  coaputation  subroutines. 
0  0 
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Figure  47.  Illustration  of  the  phase  factor  and  polarization 
direction  relative  to  the  reference  coordinate  system. 


The  components  E0  and  E  are  returned  to  the  MAIN  program  where 
they  are  superimposed  on  the^fields  from  other  scattering  paths  of 
the  same  mechanism.  The  individual  fields  can  be  printed  out,  if 
an  in-depth  analysis  of  a  problem  is  desired.  This  is  accomplished 
by  setting  the  logical  variable  LOUT  true  in  the  input  set.  The 
subroutine  PRIQUT  displays  the  field  appropriately  identified  by 
a  code  number  (see  the  write  up  on  subroutine  PRIOllT). 

The  code  then  super imposes  the  fields  for  all  the  GTD  terms 
as  they  are  computed,  weighted  by  their  appropriate  source  weights 
and  stores  them  by  observation  angle  in  two  arrays  based  on  polari¬ 
zation.  When  all  the  source,  GTQ  fields,  and  pattern  cut  loops  are 
finished  the  total  result  is  printed  out  in  various  representations 
by  the  subroutine  OUTPUT.  The  fields  can  also  be  plotted  in  various 
forms  at  this  point.  The  code  then  loops  back  to  the  input  section 
to  accept  a  variation  in  the  present  geometry  or  a  whole  new  problem. 
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Subroutine  and  Common  Block  Linkage 


In  addition  to  the  subroutines  that  have  been  classified  in 
Table  1,  there  are  many  important  subroutines  that  provide  necessary 
services  to  other  subroutines  and  to  the  code  in  general.  The  linkage 
of  these  is  quite  complicated  because  of  the  interdependence  of  many 
of  the  subroutines.  A  list  of  all  the  subroutines  and  the  subroutines 
in  which  they  are  used  is  given  in  Table  2. 

The  majority  of  the  data  information  transferred  in  the  code 
is  done  by  named  ccnsnon  blocks.  This  method  provides  the  most  ef¬ 
ficient  and  direct  scheme  for  the  large  amounts  of  information  present 
through  the  intertwined  subroutines  of  the  code.  A  list  of  all  the 
COMMON  BLOCKS  and  the  subroutines  which  use  them  is  given  in  Table 
3. 
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TABLE  2 

LINKAGE  BETWEEN  SUBROUTINES 


SUBROUTINE 

SUBROUTINES  IN  WHICH  it  is  USED 

NATfi 

Nat  applicable 

3A3S 

MAIN, OFPTCL ,01 .OUTPUT , POL  YRT , PR  1  OUT 

SLOCK  DATA 

Not  dpp 1 i cable 

BLOGIO  . 

OUTPUT 

3  TANS 

MAI.N.CAPINT.CYUNT, OIFPLT, DPLRCL, DPLRPL, ENOIF, 
GEOM, GEOMPC, OUTPUT, PATROT, PLAINT, PRIOUT, RCLOPL, 
RCLRPL , REF3P. REFCYL ,RFDF IN.RFDFPT, RFPTCL .RPLDPL . 
RPLRCL  .RPLSCL , SCLRPL .SCTCYL .SOURCE , TANG 

CAPINT 

CYLINT.GEOMC, REFCAP 

cylint 

OIFPLT.OPLRCL, DPLRPL, GEOM, INCFLD, RCLDPL, RCLRPL, 
REFPLA, RPLDPL. RPLRPL, SCLRPL 

OFPTCL 

ENDIP 

or p two 

OIFPLT, OPLRPL, RPLDPL 

OFRFPT 

DPLRCL 

01 

OIFPLT, DPLRPL, DW, RPLDPL 

oifplt 

MAIN 

CPI 

cw 

DPLRCL 

MAIN 

DPLRPL 

MAIN 

OP'NFW 

GEOMPC 

DOG  3’ 

FKARG. RPLSCL, SCLRPL, SCTCYL 

ow 

OIFPLT, DPLRCL, OPLRPL, RCLOPL, RPLDPL 

Di 

END  IF 

£00  IF 

MAIN 

FCT 

RPLSCL. SCLRPL, SCTCYL 

FFCT 

01, OIFPLT, DPLRPL .RPLDPL 

FKARG 

RPLSCL, SCLRPL, SCTCYL 

FKY 

DC 

PANELS 

DI. DPI, FFCT, FKY, RPLSCL, SCLRPL, SCTCYL 

FUN  I 

FKARG 

GEOM 

MAIN 

GEGAM 

MAIN 

GEOMPC 

MAIN 

IMAGE 

DPLRPL  .GECM, RCLRPL. SCLP.R'. 

IMCD1R 

GEOMC 

IMOIR 

GEOM, RPLRPL 

INCFLD 

MAIN 

NANDB 

DPLRCL, ENOIF.RCLDPL, RCLRPL, REFCYL, RPLRCL .RPLSCL, 
SCLRPL, SCTCYL 

OUTPUT 

MAIN 

lATRGT 

MAIN 

PFUN 

RPLSCL, SCLRPL, SCTCYL 

PLAINT 

01 FPL T, DPIRCt  ,DPL??L, END If ,GECM, INCFLD. RCLDPL , 
RCLRPL .REFCAP .REFCYL .REFPLA, RPLDPL .RPLRCL . 
RPLRPL, RPLSCL. SCLRPl, SCTCYL 

POLYP  r 

OFPTCL, RFDF IN 

PRIOUT 

MAIN 

QFIJN 

R°LSCL,  SCLRPL,  SCTCYL 

RAOCV 

RPLSCL. SCL°PL, SCTCYL 

RCLDPL 

MAIN 

RCLPPL 

SCLRPL 

REFilP 

OPL.RPL, RCLRPL, REFPLA, RPLDPL, RPLRCL, RPLRPL, RPLSCL 
SCLRPL 

REFCAP 

MAIN 

REFCYL 

SCTCYL 

REFPlA 

■MAIN 

RFOFIN 

GEOMPC 

RFOFPT 

RCLDPL 

RFPTCL 

RCLR?l,REFCYi,,RPLRC. 

MAIN 

ROTRAN 

RPLOPI.  . 

MAIN 

ROLPCL 

RPLSCL 

RPLRPL 

MAIN 

PPL  SCI. 

MAIN 

sclpp: 

MAIN 

sct'y:. 

MAIN 

SOURCE 

OIFPLT, DPLRCL, DPLRPL, ENDIF, INCFLD, RCLOPL. RCLRPL, 
REFCAP, REFCYL ,R£FPl A, RPLOPL, RPLRCL, RPLRPL, 

RPLSCL .SCLRPL, SCTCYL 

SOURS? 

OIFPLT, DPLRPL, RPLDPL 

TANG 

CYLINT.GEOMC. GEOMPC 
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TABLE  3 

LINKAGE  BETWEEN  COMMON  BLOCKS  AND  SUBROUTINES 


COMMON  BLOCK 

SUBROUTINES  IN  WHICH  IT  IS  USED 

SNODCL 

dfRfpT.OplPcl.gEompc 

8NOFCL 

D!FPLr,DPLRCL .DPLRPL ,GEOM,GEOMPC 

8NDICL 

GEOMPC.RFPTCL.RPLRCL.RPLSCL 

6NQRCL 

GEOMPC, RCLDPL, RFDrPT 

6N0SCL 

CYL  INT.GEOMC .GEOMPC .RCLRPL .REFCYL .RFPTCL , 
SCLRPL.SCTCYL 

3RNPHW 

OFRFPT, GEOMPC, RFDFPT 

CLDRC 

MAIN.OPLRCL 

CLROC 

MAIN, RCLDPL 

CLRFC 

MAIN, REFCYL 

CLRFI 

.  MAIN.RPLRCL 

clrfs 

MAIN, RCLRPL 

COMP 

MAIN, BLOCK  OATA.ENDIF , INCFLD.RPLSCL , 

SCLRPL.SCTCYL 

DIP 

MAIN, OFPTCL.DFRFPr.OIFPLT.DPLCRl, DPLRPL, EN01F, 
INCFLO.RCLDPL. RCLRPL, REFCAP, REFCYL, REFPLA, RFDFPT, 
RPLOPL.RPLRCL.RPLRPL.RPLSCL, SCLRPL.SCTCYL 

00U3LE 

main.oifplt 

EDMAG 

oifplt,oplrpl,geom,geoxpc, rpldpl 

ESTCR 

MAIN 

FARP 

MAIN, GEOM .GEOMC .GEOMPC , IMCDIR , IMDIR, SOURCE , SOURCP 

FEOOAT 

SOURCE 

F  NANG 

MAIN, GEOM, GEOMPC 

FUOG 

REFCYL, SCTCYL 

FUDGJ 

RPLRCL.RPLSL'L 

FUDGJ 

RCLRPL.SCLRPL 

GEJMEL 

MAIN, CAP INT, CYL INT.DFPTCL, OFRFPT, DPLRCL.ENDIF, 
FKARG. FUNI, GEOMC, GEOMPC, NANDB.RADCV. RCLDPL, 
RCLRPL.REFCAP.REFCYL.RFCFIS.RFDFPT.RFPTCL, 

RPLRCL .RPLSCL , SCLRPL .SCTCYL .TANG 

GEOPLA 

MAIN,  DFPTWC,  OFRFPT, OIFPLT..DPLRCL,  DPLRPL,  DPTNFW, 
GEOM, GEOMPC, IMAGE, IMDIR, PLAINT, RCLDPL, RCLRPL. 
REFBP, REFPLA, RFDFPT, RFPTCL .RPLDPL, RPLRCL, 

RPLRPL, SCLRPL 

GROUND 

MAIN, GEOM, PLAINT, RFPTCL 

GTO 

, MAIN, FCT.RAOCy, RPLSCL. SCLRPL, SCTCYL 

HITPIT 

oifplt.geom, plaint 

IMAINF 

.MAIN, GEOM, GEOMPC.REFPLA,  RFPTCL,  RPLDPL,  RPLRCL, 
RPLRPL .RPLSCL 

IKCINF 

GEOMC, GEOMPC, REFCAP 

L0C3Y 

MAIN, GEOMPC 

LOGO [ F 

MAIN, DIFPLT.OPLRPl, RPLDPL 

IPLCY 

MAIN, CYL INT.GEOMC, GEOMPC, PLAINT 

LSHOP 

GEOM, GECMAC, PLAINT 

LSHOf 

MAIN, GEOM, GEOMPC 

QUTPTD 

MAIN, OUTPUT 

PATOAT 

MAIN.PATROT 

PIS 

MAIN, SLOCK  DATA, BTAN2, CYL  INT, OFPTCL.DFR.-PT, 

01, OIFPLT, CPI, DPLRCL, DPLRPL, DE.ENOIF.FCT.FFCT, 
FKARG, FKY.FRNELS, GEOM, GEOMC, GEOMPC, INCFLD, 

OUTPUT, PATROT.PFUN, PLAINT, PRIOUT.QFUN. RCLDPL, 
RCLRPL, REFBP, REFCAP, REFCYL, REFPLA, RFDF»T, RFPTCL, 
RPLDPL .RPLRCL .RPLRPL .RPLSCL , SCLRPL .SCTCYL .SOURCE, 
SOUR CP, TANG 

ROTRUT 

MAIN.ROTRAN 

SORINF 

MAIN,  DFPTCL, OFRFPT, OIFPLT.DPLRCL, DPLRPL, ENOIF, 
GEOM, GEOMC, GEOMPC, INCFLD, RCLDPL, RCLRPL, REFCAP, 
REFCYL, REFPLA, RFDF IN, RFDFPT, RFPTCL, RPLDPL, 

RPLRCL  .RPLRPL .RPLSCL .SCLRPL .SCTCYL 

SO'JRSF 

MAIN, GEOM, GEOMC, GEOMPC, SOURCE. SOURCP 

SRFACE 

MAIN, GEOMC, GEOMPC 

SURFAC 

MAIN.OIFPLT, DPLRPL, GEOM, GECMPC, RPLDPL 

TESY 

MAIN,  CAP  INT, CYL  INT,  01  ,D]FPLT,DPI ,DPlRCL , DPLRPL ■ 
ENDIF.FRNELS, GEOM, GEOMC, GEOMPC .PATROT, PLAINT, 
RCLOPL.RCLPPL, REFCAP, REFCYL, REFPLA, ROTRAN, 

RPLDPL, RPLRCL, RPLRPL, RPLSCL, SCLRPL,  SCTCYL 

THPHIJ  V 

■main,  difplt.dplrcl.oplrpl.endif.incfld.rcldpl,- 
■  RCLRPL  .REFCYL  ,RPI. DPL  .RPLRCL  .SCLRPL 

TOPO 

BLOCK  DATA, 01, OP  1 
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C.  Overlay  Techniques 

The  Basic  Scattering  Code  is  a  relatively  large  size  computer 
code.  Even  though  there  are  no  big  arrays,  the  large  amount  of 
coding  requires  a  fairly  significant  amount  of  core  in  which  to  run. 
On  an  Amdahl  computer,  the  code  requires  over  250  K  bytes  of  core. 

The  code  has  been  designed,  however,  with  overlay  techniques  in  mind. 
Overlaying  of  the  code  can  be  accomplished  by  using  the  built  in 
overlay  techniques  of  a  computer  system,  or  by  breaking  the  code 
up  into  -smaller  independent  pieces  that  can  be  run  separately  with 
the  results  being  superimposed  later. 

The  code  can  be  quite  easily  decomposed  into  three  pieces.  The 
three  sections  are  composed  of  the  subroutines  necessary  for  plate 
fields,  cylinder  fields,  and  plate-cylinder  interaction  fields. 

The  subroutines  required  to  compute  the  plate  fields  are  given  in 
Table  4.  If  only  plates  are  present  in  the  geometry,  the  subroutines 
that  are  starred  would  not  be  necessary.  The  starred  subroutines 
provide  the  shadowing  algorithms  for  the  cylinder.  The  subroutines 
required  to  compute  the  cylinder  fields  are  given  in  Table  5.  Simi¬ 
larly,  the  starred  subroutines  are  necessary  only  if  plate  shadowing 
is  desired.  The  subroutines  required  to  compute  the  plate-cylinder 
interaction  fields  are  given  in  Table  6.  It  is  possible  that  for 
a  particular  problem  or  a  particular  computer  system  other  techniques 
of  separating  the  program  would  be  more  practical.  The  linkage 
information  in  Tables  2  and  3  should  provide  helpful  information 
to  accomplish  such  a  task. 


TABLE  4 

SUBROUTINES  USED  IN  PLATE  COMPUTATIONS 


l 


8ABS 

IMAGE 

BLOCK  DATA 

IMCDIR* 

BLOGiO 

IKDIR 

BTAN2 

INCFLD 

CAP  I NT* 

OUTPUT 

CYL INT* 

PATROT 

DFPTWD 

PLAINT 

DI 

PR I OUT 

DIFPLT 

REFBP 

DPI 

REFPLA 

DPLRPL 

ROTRAN 

DW 

RPLDPL 

FFCT 

RPLRPL 

FRNELS 

SOURCE 

GEOM 

SOURCP 

GEOMC* 

TANG* 

♦Non-essential  unless  a  cylinder  is  present  in  the  geometry. 


TABLE  5 

SUBROUTINES  USED  IN  CYLINDER  COMPUTATIONS 


BABS 

IMDIR* 

BLOCK  DATA 

INCFLD 

BLOGIO 

NANDB 

BTAN2 

OUTPUT 

CAPINT 

PATROT 

CYLINT 

PFUN 

DFPTCL 

PLAINT* 

0QG32 

POLYRT 

OZ 

PR I OUT 

ENDIF 

QFUN 

FCT 

RADCV 

FKARG 

REFCAP 

FKY 

REFCYL 

FRNELS 

RFPTCL 

FUN  I 

ROTRAN 

GEOM* 

SCTCYL 

GEOMC 

SOURCE 

IMAGE* 

TANG 

IMCDIR 

♦Non-essential  unless  plates  are  present  in  the  geometry. 
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TABLE  6 

SUBROUTINES  USED  IN  PLATE-CYLINDER  INTERACTION  COMPUTATIONS 


BABS 

BLOCK  DATA 

BLOGIO 

BTAN2 

CAPINT 

CYLINT 

DFRFPT 

DI 

DPLRCL 

DPTNFU 

DQG32 

DW 

FCT 

FKARG 

FRNELS 

FUN  I 

GEOM 

GEOMC 

GEOMPC 

IMAGE 

IMCf IR 

IMDIR 


NAN08 

OUTPUT 

PATROT 

PFUN 

PLAINT 

POLYRT 

PRIOUT 

QFUN 

RADCV 

RCLDPL 

RCLRPL 

REFBP 

RFDFIN 

RFDFPT 

RFPTCL 

ROTRAN 

RPLRCL 

RPLSCL 

SCLRPL 

SOURCE 

TANG 
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D.  Dimensions  for  Sources,  Plates,  and  Edges 


The  maximum  number  of  sources,  plates,  and  edges  that  the  Basic 
Scattering  Code  can  accept  is  not  limited  by  the  theory.  Any  number 
of  sources,  plates,  and  edges  can  be  used  if  the  storage  capacity 
of  certain  variables  are  set  correctly  in  the  DIMENSION  statements 
and  COMMON  statements  of  the  MAIN  program  and  subroutines. 

In  order  to  change  the  maximum  number  of  sources  the  code  can 
accept,  the  dimension  of  the  following  variables  in  the  MAIN  program 
must  be  changed: 

IMS(Ms),  XSS{M$,3),  VXSS(3,3,Ms),  WM(M$),  WP(MS),  HS{M$),  HAWS(M$), 

TH0Z(Ms),  PH0Z{Ms),  TH0X(Ms),  PH0X(M$), 

where  M  is  equal  to  the  maximum  number  of  sources  to  be  used.  The 
variable  MSDX  should  also  be  set  equal  to  the  integer  M  in  the  text 
of  the  code. 

In  order  to  change  the  number  of  plates  and  edges  the  code  can 
accept,  the  dimensions  of  the  following  variables  must  be  changed  in 
the  indicated  subroutines'  DIMENSION  statements  and  in  the  COMMON  state¬ 
ments.  The  location  of  all  the  commons  can  be  found  in  Table  3.  In 
MAIN,  the  dimensions  of  the  variable  XX(M  M  ,3)  should  be  changed, 
where  M  is  equal  to  the  maximum  number  of  pTates  to  be  used  and  M 
is  the  maximum  number  of  edges  allowed  on  each  plate.  The  value 
of  the  variable  MPOX  should  be  set  equal  to  M  and  the  variable 
MEDX  should  be  set  equal  to  M  in  the  text.  Tn  subroutine  GEOM, 
the  dimension  of  the  variableeIHIT(M  )  should  be  changed.  In  sub¬ 
routine  RFPTCL  the  following  dimensions  should  be  changed: 

IVD(Mpp) ,  PH0R(Mpp) ,  VR0(Mpp),  PH0RP(Mpp) 
where  Mpp  =  2Mp+l. 

In  subroutine  GEOMPC,  the  dimensions  of  the  logical  variable  LCD(M  , 

M  )  should  be  changed.  In  the  subroutines  RFDFPT  and  DFRFPT  the  di¬ 
mensions  of  the  following  variables  should  be  changed: 

IVD{Mp,Me),  PN0R(Mp,Me),  TH0R(Mp,Me),  VR0(Mp,Me),  UR0(Mp,Me), 

PH0RP(Mp,Me). 

The  variables  in  the  following  common  blocks  should  be  changed: 
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BNDDCL :  VDC(Mp,Me},  UDC(2),  PDCR(Mp,Me,2) 

TDCR{Mp,Me,2),  DTDC(Mp,Me), 

BT0C(Mp,Me,4),  DDC(Mp,Me,2) 

8NDFCL:  BD(Mn,Mp,2) 

BNDICL:  DTI(Mp),  VTI(Mp,2),  BTI(Mp,4) 

BNORCL :  VCD(Mp,Me),  UCD(MptMe),  BCD(Mp,Me,2) 

BRNPHW:  PHWR(Mp,Me) 

CLORC:  LDRC(Mp,Me) 

CLROC:  LRDC(Mp,Me) 

CLRFI :  LRFI(Mp) 

CLRFS:  LRFS(Mp) 

DOUBLE:  100(361).  IO(M  ,Me)#  II 

EOMAG:  VMAG(MptMe) 

FNANG:  FNP(M  ,M  ) 

P  “ 

GEOPLA:  X(Mp,Me,3),  V(Mp,Me>3), 

VP(mp,Me,3),  VN(Mp,3), 

MEP(Mp),MPX 

IMAINF:  XI(Mp,Mp,3),  VXI(3,3,Mp) 

LDCBY :  LOC(M  ,Me) 

LSHDP:  LSTS,LSTD(Mp) 

LSHDT :  LSHD(Mp),  LIHD(Mp,Mp) 

SURFAC:  LSURF(Hp) 
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E.  Coordinate  Systems 

In  order  to  simplify  the  variety  of  geometrical  calculations  per¬ 
formed  in  the  code,  a  number  of  different  coordinate  systems  are  used. 

Each  system  allows  a  certain  set  of  computations  to  be  performed  with 
maximum  ease.  Each  of  these  systems  are  defined  in  terms  of  the  ref¬ 
erence  coordinate  system  (RCS). 

1.  Reference  coordinate  system 

The  reference  coordinate  system  (RCS)  is  the  fundamental  system 
of  the  code.  The  system  geometry  is  defined  and  stored  in  the  RCS. 

Many  of  the  calculations  carried  out  are  done  in  the  RCS.  It  is  there¬ 
fore  also  referred  to  as  the  "computational  coordinate  system".  Each 
of  the  other  coordinate  systems  is  defined  in  terms  of  the  RCS  (using 
RCS  coordinates  or  unit  vectors). 

This  coordinate  system  is  the  fixed  system  that  the  user  defines 
the  input  geometry  with  respect  to.  However,  if  a  cylinder  is  defined 
using  the  RT:  command,  a  new  reference  coordinate  system  is  established, 
before  the  computations  begin.  The  z-axis  of  the  new  system  coincides 
with  the  cylinder  axis,  the  x-axis  with  the  "A"  dimension  of  the  cylinder, 
and  the  y-axis  with  the  "B"  dimension  of  the  cylinder.  All  the  other 
input  geometries  are  rotated  and/or  translated  to  this  new  RCS  or  "cy¬ 
linder  coordinate  system"  using  subroutine  ROTRAN.  This  is  done  to  sim¬ 
plify  the  computation  of  the  cylinder  and  plate-cylinder  interaction 
fields.  This  transformation  is  not  visible  to  the  user  in  terms  of 
the  input  or  output  parameters.  The  term  "reference  coordinate  system" 
is,  therefore,  used  for  both  the  original  system  or  the  new  system  with¬ 
out  distinguishing  between  them. 

2.  Definition  coordinate  system 

Normally,  the  system  geometry  is  defined  by  the  user  in  the  ref¬ 
erence  coordinate  system.  However,  the  user  may  choose  to  perform  a 
coordinate  system  transformation  (using  the  RT:  command)  in  order  to 
define  part  of  the  geometry  in  some  preferred  coordinate  system.  In 
using  the  RT:  command,  the  user  creates  a  "definition  coordinate  system" 
to  which  the  data  which  follows  the  command  will  pertain.  The  user 
defines  the  definition  coordinate  system  by  specifying  the  origin  lo¬ 
cation  and  direction  of  the  xH  and  zH  axes  unit  vectors.  The  origin 
of  the  definition  system  is  defined  at  point  TIT  =  x  TR(l)+y  TR(2)+z  TR(3) 
in  x,y,z  RCS  coordinates.  The  unit  vector  of  the  definition  system 
is  defined  by  theta  and  phi  angles  THXP  and  PHXP  as  if  it  were  a  radial 
vector.  The  zH  unit  vector  is  likewise  defined  by  theta  and  phi  angles 
THZP  and  PHZP  Tn  the  RCS.  The  quantities  TR,  THXP,  PHXP.THZP,  and  PHZP 
are  all  specified  by  the  user.  Note  that  all  geometry  defined  in  a 
definition  coordinate  system  is  immediately  transformed  into  RCS  notation 
using  the  method  outlined  in  "transformation  between  systems"  of  this 
manual . 


40 


If  the  user  defines  the  cylinder  in  a  definition  coordinate  system 
(other  than  the  RCS),  the  location  of  the  system  origin  is  stored  along 
with  the  unit  vectors  of  the  definition  system  axes.  The  main  program 
will  later  perform  a  transformation  on  the  entire  system  geometry  so 
that  a  new  RCS  is  created  where  the  2-axis  of  the  new  system  coincides 
with  cylinder  axis.  This  new  RCS  is  used  for  computational  purposes. 

| 

**  3.  Edge-fixed  coordinate  system 

The  code  generates  an  edge-fixed  coordinate  system  for  each  edge 
on  every  plate.  The  three  (rectangular)  coordinate  system  axes  for 
each  edge  are  positioned  as  follows: 

« 

i  1.  in  the  plate  plane  and  normal  to  the  edge  (the  edge  bi normal) 

2.  normal  to  the  plate 

\ 

3.  along  the  plate  edge. 

The  unit  vectors  of  the  edge-fixed  coordinate  system  axes  are  defined 
(using  RCS  unit  vectors  x,  y,  z)  as; 

VP  »  edge  binormal  =  x  VP(MP,ME,1)  +  y  VP(MP,ME,2)  +  z  VP(MP,ME,3) 

VN  =  plate  normal  =  x  VN(MP,1)  +  y  VN(MP,2)  +  z  VN(MP,3) 

9  =  edge  unit  vector  =  x  V(MP,ME,1)  +  y  V(MP,ME,2)  +  z  V(MP,ME,3). 

Varables  MP  and  ME  specify  which  plate  and  which  edge  the  unit  vectors 
apply  to. 

The  most  significant  use  of  the  edge-fixed  system  is  determining 
edge  diffraction  geometry.  Incident  and  diffracted  ray  propagation 
i  angles  along  with  polarization  components  are  calculated  by  taking  dot 

*  and  cross  products  of  edge-fixed  unit  vectors  and  ray  propagation  and 

polarization  unit  vectors.  Edge-fixed  unit  vectors  are  also  used  in 
l  calculating  geometry  for  intersecting  plates,  as  well  as  checking  to 

i  see  if  plates  are  flat. 

I  The  edge-fixed  vectors  are  calculated  in  Section  2  of  subroutine 

GEOM.  Further  details  are  given  in  this  section. 

4.  Pattern  cut  coordinate  system 

The  pattern  cut  coordinate  system  determines  the  axes  about  which 
the  conical  (theta  fixed)  or  “orange- si  ice**  (phi  fixed)  pattern  cut 
is  to  be  measured.  Is  is  also  the  coordinate  system  in  which  the  code 
output  is  given. 
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The  user  defines  the  pattern  cut  coordinate  system  by  speci¬ 
fying  the  theta  and  phi  angles  which  define  the  x  and  z  axes  of 
the  system  in  the  RCS  (THCX,PHCX,THCZ,PHCZ,  respectively1).  7"3  user 
then  specifies  the  type  of  cut  to  be  made  (e  or  <f>  cut)  and  the 
range  and  increment  of  angles  (in  PO:  section  of  WIN). 

The  pattern  cut  system  axes  are  stored  in  a  3x3  matrix  of  compo¬ 
nents  which  define  the  axes  unit  vectors  in  RCS  components  (see  'Trans¬ 
formation  between  systems").  This  matrix  is  used  in  the  MAIN  program 
in  converting  specific  pattern  angles  from  pattern  cut  coordinate  system 
notation  to  the  reference  coordinate  system  (subroutine  PATROT).  Plote 
that  the  pattern  cut  coordinate  system  is  subject  to  the  mass  geometry 
transformation  that  is  performed  in  the  MAIN  program  if  the  user  defines 
a  cylinder  in  a  coordinate  system  other  than  the  RCS  (.'Sing  the  RT*  ‘ 
command).  This  transformation,  however  is  not  visible  to  the  user. 

Note  also  that  definition  of  the  pattern  cut  coordinate  system  is 
done  independently  of  any  RT:  commands.  The  user  always  defines 
it  in  the  RCS. 

5.  Reflection  plate  coordinate  system 

The  reflection  plate  coordinate  system  is  used  to  handle  reflection 
from  plates  when  image  theory  is  not  used  (in  subroutines  DPLRPL,  RCLRPL, 
and  SCLRPL).  Only  two  of  the  three  rectangular  axes  unit  vectors  are 

used: 


A 

VN  =  plate  normal  (calculated  in  subroutine  GEQM) 

VT  =  vector  tangent  to  plate  and  normal  to  incident  (and  reflected) 
ray  propagation  direction. 

The  unit  vectors  are  used  to  convert  polarization  to  and  from  reflection 
plate  coordinate  system  (parallel  and  normal  to  plate). 

6.  Source  coordinate  system 

The  source  coordinate  system  is  the  system  in  which  the  source 
is  defined.  There  is  one  such  system  for  each  source,  although  only 
one  appears  in  the  computations  at  a  given  time.  Each  time  another 
source  is  used  the  source  coordinate  systen  is  redefined. 

For  a  one-dimensional  source,  the  dipole  lies  along  the  z_  axis. 

If  an  aperture  source  is  used,  the  source  lies  in  the  x  -z  plane,  cen¬ 
tered  about  the  origin.  In  both  cases  the  source  current  Mows  in  the 
zp  direction. 

Note  that  in  this  code  the  source  coordinate  system  is  designated 
with  the  subscript  "p".  The  system  may  also  be  referred  to  as  the  "primed* 
or  "antenna"  coordinate  system. 
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The  source  coordinate  system  Is  defined  by  the  user  In  the  Input 
part  of  the  main  program.  It  is  redefined  later  in  the  main 
program  within  the  source  loop.  The  origin  about  which  the  source 
is  centered,  is  located  at  XS=x  XS(1)  +  y  XS( 2)  +  i  XS(3)  in  RCS 
components.  The  unit  vectors  of  the  system  axes  are  defined  by  a 
3x3  matrix  VXS(NI,NJ)  of  components.  (See  section  on  coordinate 
transformations).  More  specific  definitions  and  illustrations  are 
given  in  the  section  for  subroutine  SOURCE  in  the  code  manual. 

7.  Source  image  coordinate  system 

In  many  cases  the  code  uses  image  theory  in  computing  fields  re¬ 
flected  from  a  plate.  This  involves  computing  an  image  source  from 
which  the  reflected  rays  will  appear  to  originate  (see  section  on  sub¬ 
routine  REFPLA).  Assuming  the  source  dimensions  are  known,  the  Image 
source  (or  “source  image")  may  be  determined  by  computing  the  source 
image  location  (subroutine  IMAGE)  and  the  source  image  orientation  (sub¬ 
routine  IMDIR).  As  the  source  location  and  orientation  are  specified 
using  a  source  coordinate  system,  the  “source  image  coordinate  system- 
is  used  to  define  the  image  source.  The  location  of  the  source  Image 
(TVS  =  x  XIS(l)  ♦  y  XIS(2)  ♦  z  XIS(3) )  is  the  origin  of  the  source  Image 
coordinate  system  and  the  axes  are  defined  by  unit  vectors  in  the  same 
manner  as  the  source  coordinate  system. 

8.  Transformation  between  systems 

The  majority  of  transformations  performed  in  the  code  involve  sit¬ 
uations  where  it  is  necessary  to  transform  a  vector  from  one  coordinate 
system  to  another.  This  involves  rotation  of  coordinate  systems  without 
translation.  Transformation  of  vector  ^  in  RCS  components  to  V*  in 
some  other  coordinate  system  is  performed  as  follows: 


V' 

X 

X11 

X12  X13 

Vx' 

v; 

3 

X?1 

X22  X23 

vy 

Lv'J 

X31 

X32  X33 

VJ 

where  V  a  x  V  ♦  y  V  ♦  z  V  is  the  vector  defined  in  the  reference 
coordinate  system  and  *  x  V'  ♦  y  V'  ♦  z  V'  is  the  vector  defined 
in  the  second  coordinate  system.  Inverse  transformations  are  done  bv 
multiplying  the  vector  v*  by  the  transpose  of  the  rotation  matrix  as 
follows: 


43 


X11  X21  X31 


12  X22  X32 

13  X23  X33  -* 


The  unit  vectors  of  the  second  coordinate  system  are  defined  in  the 
reference  coordinate  system  as  follows: 


;•  =  x  XU  *  y  X12  ♦  2  X,3 

y*  =  x  X21  -f  y  X22  +  2 

z*  •  x  X31  ♦  y  X32  *  z  X33  . 


The  matrix  used  to  transform  (rotate)  the  vector  is  generally  referred 
to  as  “x,y,z  components  defining  the  (name  of  system)  coordinate  system 
axes  unit  vectors  in  RCS  components".  The  individual  matrix  elements 
are  determined  as  follows: 


=  x13  -  5-  *2,  etc). 

When  transforming  a  point,  it  is  necessary  to  perform  a  translation 
as  well  as  a  rotation  of  coordinate  systems  (if  the  origins  of  the  sys¬ 
tems  are  different).  To  handle  these  situations,  the  code  translates 
the  point  before  rotating.  Transformation  of  point  F  =  x  P  +  y  P  ♦ 
z  P  in  the  reference  coordinate  system  to  point  F'  »  2  *  y  P’  + 

2  P*  in  another  coordinate  system  is  done  as  follows:  * 


fp* 

X 

P' 

y 

P' 

2 

L 

*11 

X21 

X31 


12  X13 

P  -  X 
x  ox 

22  X23 

p  -  x 
y  oy 

32  X33 

p2  '  X02  ■ 

where  K  -  x  X  .  ♦  y  X  *  z  X  is  the  location  of  the  origin  of  the 
second  coordinate  syste$  in  thezrefcrence  coordinate  system  "and  X„, 
X.„  etc.  are  as  defined  previously.  The  reverse  transfomaiton  H 
pmomed  as  follows: 


p 

Xrt4f 

X 

OX  | 

p 

a 

X 

>• 

oy 

IP,  J 

X02 

j  Hi  X21  X31 

iS12  X22  X32 

{ 

IX,,  x,. 


P* 

X 

P1 

y 

J 

Ip;  J 
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CHAPTER  IV 
CODE  DESCRIPTION 


This  section  is  divided  into  two  sections,  the  first  of  which 
describes  the  operation  of  the  MAIN  program  in  detail.  The  second  de¬ 
scribes  the  subroutine  and  function  operations.  For  each  subroutine  the 
following  is  given  (as  appropriate): 


1.  a  statement  of  purpose 

2.  an  il1ur ‘ration  showing  the  geometry 

3.  a  brief  narrative  of  the  method  used 

4.  a  flow  diagram 

5.  a  dictionary  of  major  variables 

6.  a  listing  of  the  code. 


The  comment  statements  in  the  code  listings  follow  the  statements  of  the 
flow  diagrams,  simplifying  correlation  of  the  two. 


PURPOSE 


The  main  program  reads  the  system  geometry  given  by  the  user  and 
directs  the  calculation  of  the  scattered  fields. 

The  main  program  is  broken  down  into  three:  parts  as  follows: 

1.  Data  input  section 

2.  Input  conversion  section 

3.  Main  computation  section. 

Each  of  these  sections  is  outlined  on  the  following  pages. 

1.  Data  Input  Section 

The  data  input  section  reads  an  input  file  that  contains  the  data 
specifying  the  geometry  of  the  problem  to  be  considered  and  prepares 
it  for  use  by  the  code.  The  data  input  section  is  described  in  the 
User's  Manual  [8].  The  ctxanands  available  and  the  general  flow  of  tne 
input  section  is  given  in  detail  there,  and  will  therefore  not  be  re¬ 
peated  here. 


1  C! 

2  C! 

3  C! 

4  C! 
b  C! 

6  c! 

7  c! 
H  C! 

v  a 
u>  a 

II  C! 
13  C! 
13  C! 

1  4  C! 
lb  C! 

16  C! 

17  C! 
I«  C! 
IV  C! 
20  C! 

2  I  C! 
22  CJ 
22  C! 
24  C! 
2b  C! 
2 o  C! 
2  7  c ! 
AH  2! 
2  V  2! 
2l;  U 
2  1  C! 
32  0! 
22  2! 
24  C! 
-b  C! 
3o 

~  7 

2fc 
2  v 
42 
4  I 

42 

43 

44 
4b 

46 

47 
AH 
4  V 

bo 
b  I 
b2 
b2 
b4 
bb 
b6 
57 
bH 
bV 
on 
o  I 
04 
o2 
6  *■ 


THIS  PROGRAM  WAS  WRITTEN  AT  THE  OHIO  STATE  UNIVERSITY 
ELECTROS Ci ENCE  LABORATORY.  ANY  PROBLEMS  OR  COMMENTS 
CAN  BE  R El- ERRED  TO* 

WALTER  D.  BURNSIDE  (OR)  RONALD  J.  MARHEFKA 
ELECTK'OSC I E MCI:  LABORATORY 
1320  KINIIEAR  111). 

COLUM HUS, OHIO  4  3212 
PHONE  I  (614)  422-5747  ( CR )  422-5752 

THIS  PROGRAM  COMPUTES  THE  FAR  FIELD  PATTERN  OF  AN  ANTENNA 
CR  SET  CF  ANTENNAS  IN  THE  PRESENCE  OF  A  SET  OF  PLATES 
AND/OR  IN  THE  PRESENCE  OF  AN  ELLIPTIC  CYLINDER. 

THE  PLATES  ARE  DEFINED  BY  THEIR  CORNER  LOCATIONS. 

AS  DIMENSIONED,  IT  CAN  HANDLE  14  PLATES  WITH  A  MAXIMUM 
OF  6  CORNERS  PER  PLATE,  AMD  5 91  ANTENNA  ELEMENTS  CAN 
BE  INPUT.  THE  CYLINDER  IS  DEFINED:  BY  ITS  RADIUS 
ON  ITS  MAJOR  AND  MINOR  AXIS  AND  THE  END  CAPS  ARE 
DEFINED  BY  THEIR  POSITION  ON  THE  CYLINDER  AXIS  AND 
THE  ANCLE  OF  THEIR  SURFACES  KITH  THE  CYLINDER  AXIS  IN 
THE  X-Z  CYL.  PLANE.  NOTE  THAT  THE:  LIMITS  ON  THE  NUMBER 
OF  PLATES,  CORNERS,  AND  SOURCES  ARE  ONLY  DUE  TO  THE  SIZE 
OF  THE  ARRAYS.  THE  LINEAR  DIMENSIONS  ARE  INPUT  IN  METERS 
UNLESS  SPECIFIED.  THE  ANGULAR  DIMENSIONS  ARE  IN  DEGREES. 

i 

NOTE  THAT  COMMENTS  ARE  GIVEN  IN  TWO  FORMS* 

Cl!!  IMPLIES  EXPLANATION  OF  PROGRAM  SECTION 
IN  TERMS  OF  T*  :ORY  j 

CSSS  IMPLIES  DESCRIPTION  OF  INPUT  DATA 

C -  IMPLIES  COMMAND  INPUT  READ  SECTION 

] 

THIS  VERSION  WAS  WRITTEN  8/2/79  j 

i 

COMPLEX  EITI'.EIPH, ORTH,ERPH,  ERPCT.ERPCP,  ESTH.ESPH 
COMPLEX  EHPST, EWPSP, ERPTH, ERPPH, ERRPT, ERRPP.ERCPT.ERCPP 
C  OY  PLEX  CJ , C  P 1 4 , WI , El H , E  PH , ETHT( 36  I ) ,E PHT( 36 1 ) 

COMPLEX  EDCTH,  EDCPfl,  EDPTH,  EDPPH,  ERPDT.  ERPDP  ,EDCRPT,EDCRPP 
COMPLEX  EDRPT, EDRPP. EHDTH, ERDPF, EDRCT,  EDRCP, ERCAT, ERCAP 
COMPLEX  fc'DDCTH.EDPCPH, ERPDCT.ERPDCP, EDDTH, EDDPH, ERSPT, ERSPP 
DIMENSION  I  MS  ( 50  ) ,  XSS(50  ,3  ) ,  VXSS  (3’,3 ,50) ,  WV(  50) , WP(50) 
DIMENSION  HS(5«) ,HAWS<50 ) , THOZ (50) ,PHOZ(50 ) ,THOX(50) ,PHOX<50) 
DIMENSION  XX  ( 14,6,3)  ,XC0(3  ) ,  XXC0(3  > ,  X00(  3) ,  XXX (3  ) 

DIMENSION  XPD(3) ,YPD(3),ZPD(3)  j 

DIMENSION  JMN( 3) , JMX (3 )  ; 

DIMENSION  LAOEL( 2 , 3 ) ,UNI T( 3) ,1 R(24) , IT (I  4) , ITT< I  0) 

DIMENSION  XOR( 3) ,TR(3) ,XP( 3 ) , YP( 3 ) ,ZP( 3) , X0( 3) , XPP(3 ) 

LOGICAL  LSOR ,LOUT, LSRFC, LSURF, LSHD,LCYL, LPLA.LNROT 

LOG I CAL  LI  HD , LDE  BUG, LTEST, LSLOPE ,LCORN R , LDC 

LOGICAL  LWRIIE.LPLT, LORN D, LAMP ,LPRAD,LRANG,LCNPAT 

LOGICAL  LRFC.LRFI , LRFS ,LDRC, LRDC  I 

COMMON/DOUHLE/IDO(36  I )  ,  I  DC  14  ,6  ) ,  I  li 

COMMON/FARP/IM ,H , HAW 

COMMON/SOURSF/FACTOR 

COMM  UN/1  EST/LiiEBUC,  LTEST 

COMMOM/LOCDI F/LSLOPE  .LCORfJR 

CO,VMON/SORINF/XS(3),VXS<3,3>  I 

CO  MM  ON/ 1 M  A I N F/ X I ( I  4, 14 ,3 ) , VX I (3,3 , 1 4  ) 

CO). MON/P  I  S/P  I ,  T?  I ,  DPR,  RPD 
COi.'MUN/OI  K/D(3  ) ,  THSR,PHSR,  SPS, CPS, 5THS  ,CTHS 
CO  AM  Of  I  /C  ( '  M  P/C  J<,  C  P 1 4  I 

CO't'MCN/THPHUV/DT (3 ) ,  DP(2  )  | 

20  r.U 'N/S  UR  FAC/ LSURF  (  14) 


1 

I 

I 

S 

i 


i 
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O1. 

I/O 

<j  7 

fui 

(.'/ 

i  I 


7  4 
78 
7  o 

/  i 

7  f j 

7  V 
60 

8  I 

o2 
ti  j 
84 
8  8 
30 

87 

bfc 

8V 

VC  C!  i! 
v  I 
v2 
*3 

V4  Cl!! 
v8  C!  !! 

VO 

v  7  7  7  DO 
V8  . 
vv 

CiJ  27 HI 
HI  C  !  !  ! 

C. 

4  3 

V.t 

..8 

00 

07 

I/O 

.;v 
l  o 
i  i 
12 
I  3 
14 
I  8 
\<> 

17 

1 8 

1  V 

2  4! 

2  I 
22 
A  -7 

. 

28 
2  o 
2  7 
23 
2  V 
24! 


COAf'UN/Eli'F  ACC/  LS RF C ( 2 ) 

C  U  /  74  ( if !  /  L  SH I  )7  /  L  SI  I D  (  U),LIHD(  14,  14) 

CUn*!'  iN/LDCHY/LDC  ( 14,6) 

I . OHM ON /r  N A NG/F f JP  (  I  4 , 6 ) 

COAftUN/CEOfi.  A/X(  14, 6, 3), VC  I4,6,3),VP(I4,6,3).VN<  1 4  ,3) 

2,MII'(  14  )  ,MPX 

CO/AMON/GEOM HI./  A ,  it ,  2<;  (2  ) ,  SNCC  2 )  ,CNC  ( 2  > ,  CTC<  2  ) 

<;0/W0ll/(;'l|)/AS,in(7,SAS,SASI»,CAS 

COMM ON/LSTOR/ETHT, EPHT 

COMMON/I. Pl.CY/LPLA,  LCYL 

COMM ON /CROON D/LCRND, MPXR 

C  OMM  ON /CUT  PT  D/L  P  R  A  D , L  R  AN  G , PRAD.RANG, R 

C  0  MM  0!  J  / p  AT  D A  T/ XP  C ( 3 ) , YPC ( 3 ) , ZPC( 3 ) 

com;; ON/kOTRPT/XCLC  3 ) ,  YCL  ( 3 ) , ZCL<  3 ) 

COMM  ON /CLR  FC /L  RFC 
COMMOfl/CLRFl/LRFK  14) 

CO.VMON/CLRFS/I.RFSC  14  ) 

COV.MGN/CLDRC/LDRCC  14,6) 

C  OMf  ON  /CLR  DC  /[.ROC  (  14,6) 

CAVA  UNIT/  I . , .3048,0.0254/ 

DATA  LABEL/'MET'.'ERS'.-'FEE'.'T  '  INC'  ,'HES'/ 

DATA  IT/'TOJ'.'Pn*',  ,PGi'.-'SO«','LP«  'PP« # , 'GPi ',  'X0«',  'RT«  ' 
y  'rr,t'  /  i i /  /or, •  /  /pc  i// 

DATA  I  TT/yUN  ^FK  «'  t'NX » '  EM  »'  ,'NP  «'  ,  '  NC  : '  ,  'NG  i'  ,'”Z » 7  . '  PR*' 
2  ,'IISi'/ 

MAX.  DIMENSION  OF  SOURCES, PLATES, AND  EDGES. 

MSDX=80 
MPL)X=I  4 
MEDX=o 

NOTE »  IN  -UP.  RFPTCL  THE  VARIABLES  J VD , PHOR , PHORP , AMD  VRO 
MUST  EE  DIMENSIONED  2*MPDX+I 
CO  TO  27CI 

continue 
k  l  TEC  6, 3UU6 ) 

WRITE(0, SccCS) 

CONTINUE 

INITIALIZE  DATA  TO  DEFAULT  VALUES. 

LDE!U!G=.  FALSE. 

LTEST®. FALSE. 
l.OUT=.  FALSE. 

LSL0PE=.7RUE. 

LC0HNR=.1RUE. 

LSOR®. FALSE. 

LCYL®. FALSE. 

LPLA®. FALSE. 

LCKNP®. FALSE. 

LV.RITE=.1RUE. 

LPLT=. FALSE. 

LAMP®. FALSE. 

lprad®. false. 

LKANO=. FALSE. 

RANG® I  . 

PRAD=0. 

Jf.Ui  C  I  )  =  I 
j ;.<x(  i  )®7 

J. MM  (2 ) ®  I 
JMX( 2 ) =3 
JMN ( 3 ) =  I 
JMX ( 3 ) ®4 
LCNP AT® .TRUE . 

TPPD=V0.  • 

THCZ=o. 

PHCZ=v). 

THCX®V0. 

PHCX®U. 

XPf)(  D  =  l. 
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13  1 

XPL'(  2)=0. 

132 

XPD(  3)=C. 

i :  j 

YPP(  1  >=0. 

1.34 

YPD( 2  )  =  1 . 

1 3  b 

YPD(3)=C. 

1 3o 

ZPLH  ! )=0. 

37 

ZPD( 2 ) =0. 

33 

ZPD( 3)  =  ! . 

3v 

I  B=0 

4/ 

I E=3o0 

4  1 

!S=  1 

42 

HPOG=. 2997925 

43 

MPX=0 

4  4 

MEP( 1 ) *4 

•lb 

XX (1 , 1 , 1  )=!. 

4  O 

XX  (  1  ,  1 , 2  )  =  1 . 

47 

XX(  1  .  1 ,3>=0. 

4o 

XX ( i ,2 , 1 )  =  -l . 

4  y 

XX( 1 ,2,2)= 1. 

b« 

XX< 1 , 2 , 3 ) =0. 

b  1 

XX( 1 ,3, 1 )=-l , 

©2 

XX < 1 ,3,2)=-l . 

b  3 

XX< 1 ,3,3  >=0. 

b4 

XX( 1  ,4, 1  )=  1 . 

bb 

XX  C 1 ,4,2)=-! . 

bo 

XX ( 1 ,4 , 3 )=B. 

57 

MSX=0 

bri 

XSS(  1,  1 >=0. 

bv 

XSS(  1  ,2>=0. 

Ot' 

XSS( I , 3 ) = 1 . 

o  1 

IMSC 1 >=0 

o3 

HS  < 1 )=0.5 

o3 

HA!.b(  1  >■{!. 

04 

THOZf 1  )=0. 

©5 

PHOZ( 1 )=0. 

00 

THOX ( 1 >=9H. 

o7 

PHOX  (  1  )=*). 

Ob 

VXSi>( 1 , 1 ,! )=! 

ov 

VXSSC 1,2,1 >  =  0 

7  0 

VXS3< 1 ,3,  I  )=0 

7  1 

VXSS(2, 1 ,1 )=0 

72 

VX  SS(2  ,2 , 1  )=  1 

73 

VXS S<2,3, 1 )=0 

7  4 

VXSSC3, 1 , 1 )*H 

7  b 

VXS5C3.2 , 1  )  =  (! 

7o 

VXSS(3,3, 1 )=! 

7  7 

WM <  1  )=  1  . 

7b 

hp<  i  )=ir. 

7  9 

«Al I US=3 . 

OH 

I  PLT=3 

b  I 

THZP=0. 

b2 

PHZP=0. 

fc3 

THXP=90. 

H4 

PHXP=0. 

bb 

TR( 1 )=0. 

do 

Tfi  (2  >=0. 

H7 

TR(3>=0. 

bo 

XP( 1  )=! • 

bv 

XP<2 )=0. 

vc 

XP( 3 ) =0. 

v  1 

YPC  1  .'=0. 

92 

YP(2  )=  1  . 

93 

YP ( 3 )=0. 

94 

ZP( 1 )=0. 

95 

ZP ( 2  )=0. 

90 

ZP  <  3 )  =  1 . 

1  v  7  AA=  I . 

I  YU  B0=  I .  ! 

« VV  ZCN=*-3.  ! 

-HU  THTN=V0.  I 

20  1  ZCP=3. 

202  THTP~90. 

203  XXCO!I)=0. 

2k)  4  XXCO(2)=0. 

2k>5  XXCO<3)=0. 

2uo  XCL( I )= 1 . 

2  k)  7  XCL(2)=«.  , 

20 ri  XCL ( 3 ) *0 . 

20V  YCL(i)=0.  1 

210  YCL!2)=I. 

2 1 1  YCL(3)=0. 

212  ZCL! I ) =0 . 

213  ZCL(2>=0; 

21-  ZCL! 3>=i .  ; 

2  IB  IUNI 7= I 

2  I o  UN ITS=UN IT ( 1  UN  IT ) 

2  17  IUNST*»0 

2  I  ti  IUNSP=IUNST 

2  IB  GO  3  0  2VV9 

220  3kkW  CONTINUE 

221  WRITE! 6,3006) 

222  3k)0o  FOkMAT! IX, IH*,76X, IH*) 

223  WKITE(o,3006) 

22 - i  WHITE!  6, 3005) 

22-j  300-j  FORMAT!  I  X, 26 (3H***  ) )  i 

22 o  C ! ! !  HEAD  IN  VARIOUS  COMMAND  OPTIONS. 

227  2vw  READ! 5, 3001, END*3004 ) ( IH! I ) , I* I ,24 ) 

22 H  3 wOl  FORMAT! 24A3) 

22  v  WHITE! 6, 3002) 

230  3002  FORMAT! IH  ,//////, I  X ,26! 3H***> ) 

231  WRITE! 6, 3006 ) 

232  KRITEI6.30O3)! 13(1 ), 1=1,24) 

233  3003  FORMAT! IX, 1H*.2X,24A3,2X,IH*) 

234  IFUR!  I  ).E0.  IT!  13)  )00  TO  3090 

235  I F ! I R( I A.EQ. IT! I  4) )G0  TO  3000 

23o  WHITE (0,3006 ) 

237  WRITE! 6,3006 )  j 

i 

CHECK  AGAINST  STORED  OPTIONS  I 

,  I 

CM  *  COMMENT  CARD  j 

CE*  LAST  COMMENT  CARD 
TO#TEST  DATA  GENERATION  OPTION. 

UN  *  UNITS  OF  INPUT  J 

US i  UNITS  OF  HS  AND  HAWS  IN  SG» 

FWt  FREQUENCY 

PD*  PATTERN  DATA  DESIRED  S' 

PC*  PLATE  GEOMETRY  INPUT 
SG«  SOURCE  GEOMETRY  INPUT  i 

AM*  NEC  OR  AMP  INPUT 
PR*  POWER  RADIATED  INPUT  * 

LP*  LINE  PRINTER  LISTING  OF  RESULTS  ! 

PP*  PEN  PLOT  OF  RESULTS 
CP  *  INCLUDR  INFINITE  GROUND  PLANE  | 

XO*  EXECUTE  PROGRAM 

FIT*  TRANSLATE  AND/OR  ROTATE  COORDINATES 
CO*  CYLINDER  GEOMETRY  INPUT 
RG»  FAR  FIELD  RANGE  INPUT 
NP«  NEXT  SET  OF  PLATES 
Nil*  NO  GROUND  PLANE  i  : 

NO*  NO  CYLINDER  t 

NS*  NEXT  SET  OF  SOURCES 


f 


23ti 

C! 

23  V 

C! 

24  0 

C! 

241 

C! 

242 

C! 

24  3 

C! 

244 

C! 

24-3 

C! 

2  46 

C! 

24  7 

C! 

243 

C! 

24V 

C! 

250 

C! 

25  1 

C! 

252 

C! 

253 

C! 

25  -• 

C! 

255 

C! 

3  5o 

C! 

257 

C! 

253 

C! 

C! 

_’<h' 

Cl 

2o  1 

C! 

20.: 

C! 

50 


26-  C • ! ! 
2o4  c! !! 
265  C! ! ! 

2  oo 
2c7 
26b 
2o9 
27.' 

27  1 
272 
27  2 
27  4 
275 
27o 

277 

278 
27  y 
281' 

78  1 
282 

283 

284 

285 
280 
287 
2fcr> 

28V  5..’2 1 
2V0 

2V  I  5004 

2V2  C - 

2V3  3 0 v,; 

2V4  C - 

2V5  CSSS 
2 Vo  csss 
2V7  CSSS 
2V8  CSSS 
2 VV  CSSS 
300  CSSS 

3$}|  css: 

302 
5C  2 

304 

305 
3oo 

307  5091 

303 
3ov 

51  i)  C - 

311  -10.) 

312  C - 

313  CSss 

314  CSSS 

315  CSSS 

316  CSSS 

317  CSSS 

3  1 1  csss 
31V  CSSS 
320 

52  I 

522  -  101 
383 
32  4 

385  CSSS 
32  C  CSSS 
527  CSSS 
328  CSSS 


NX  i  NEXT  PROBLEM 
EN«  END  PROGRAM 

IFCIRM  ).E0.  ITU  )>G0  TO  31  00 
IF  C I  R(  D.EO.  IT(2))G0  TO  3200 
IFdHCl  ).EQ.  ITt  12) )  00  7  0  3250 
IFCIRC I ).EQ.1TC3))GC  TO  3300 
IFdSH  ).EQ.IT!4))C0  TO  3400 
IF  C I  Ht  IJ.EO.lTd  l))GO  TO  3450 
I F  C I KC 1 ) .EG. IT!5))0C  TO  3500 
IF(IR( 1).EO.IT(6))GO  TO  3600 

:ki»(1).eo.it(7))go  to  370.0 

IFCIRC  1  ).E0.IT(8))G0  TO  3800 
IFURd  ).E0.JT(9))00  TO  3900 
IMIU!  I  J.EO.ITC  10)  )G0  TO  4000 
Ir‘dk<i).EO.ITT(  l>)  GO  TO  4  100 
IF ! I k! 1 ).E0. ITT(2) )  GO  TO  4200 
IFCIRM). E0.ITT!3))  GO  TO  2700 
lr!'RM).EG.ITTC4>)  GO  TO  997 
IFtIRC l).EC.I7T!5))  GO  TO  5350 
IFdSd  ).E0.ITTC6))  GO  TO  4050 
IFflRtl J.EO.I TT C  7  >  >  GO  TO  3750 
IF C I RC I ).E0.ITTC8) )  GO  TO  3490 
IF( IRC  1 1.E0.ITTC9) )  GO  TO  3440 
IFCIRM 3.E0.ITT! 10))  GO  TO  4110 
WRITE!6,302I ) 

FORMAT!'  ***  PROGRAM  ABORTS!!!  COMMAND  INPUT  IS  NOT  PART', 
I'  OF  STORED  COMMAND  LIST  ***/) 

STOP 

CONTINUE 

-  CM  *  CE«  COMMANDS  - 

IK!I)=CM«  OR  CEi  FOLLOWED  BY  AN  ALPHANUMERIC  STRING  OF 
CHARACTERS.  THE  CMi  COMMAND  IMPLIES  THAT  THERE  WILL  BE 
ANOTHER  COMMENT  CARD  FOLLOWING  IT.  THE  LAST  COMMENT  CARD 
MUSI  HAVE  THE  CEi  COMMAND  ON  IT.  IF  THERE  IS  ONLY  ONE 
COMMENT  CARD  THE  CE«  COMMAND  SHOULD  BE  USED. 

READC5.5B01)  C  1 R ( I  ) ,  I*  1 , 24 ) 

WR I  TEC  6, 3003  )  C I  RC  I  )  ,  1=  1 ,24 ) 

IFCIRM  >.E0.  ITCI4))  GO  TO  3000 
IFCIR(I),EQ.IT(I3>)  00  TO  3090 
WRITE <6, 309 1 ) 

FORMAT!'  ***  PROGRAM  ABORTS!!!  CE*  COMMAND  MUST  BE', 

2'  USED  10  END  COMMENTS.  ***' ) 

STOP 

CONTINUE 

—  TO*  COMMAND  - 

LDE3UG=DEBUG  DATA  OUTPUT  ON  LINE  PRI NTER(TRUE  OR  FALSE) 

LTE3T=TEST  DATA  TO  INSURE  PROGRAM  OPERATION! TRUE  OR  FALSE) 

LOUT=OUTPUT  MAIN  PROGRAM  DATA  ON  LINE  PRINTERCTRIJE  OR  FALSE) 

READ! 5,* )  LDEHUG.LTEST.LOUT 
WRITE! 6, 3 101  /LDEBIIG, I.TEST,  LOUT 

F0R:.!AT(2H  *,5X,'LDEBUG=  ', L3 ,5X,  'LTEST*  ' , !.3 ,5 X , 'LOUT* ' , L3 , 
IT79,  IH*) 

WRITE! 6,3006) 

LSI.0PE=S1.0PE  DIFFRACTED  FIELD  DESIRED  !T  OR  F) 

LCORNI1=CORNER  DIFFRACTED  FIELD  DESIRED  (T  OR  F) 
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32  V  CSSS 
320  CSSS 
331  CSSS 
322 

32  3 

334  3102 

33*3 

326 

337 

338  3402 

33  V 

340  CSSS 

341  CSSS 

342  CSSS 

343  CSSS 
3<4  CSSS 
345  CSSS 
340  CSSS 

347  CSSS 

348  CSSS 
34V  CSSS 
350  CSSS 
35!  CSSS 

352  CSSS 

353  CSSS 

354  CSSS 

355  CSSS 

356  CSSS 

357  CSSS 

358  CSSS 
35V  CSSS 

360  CSSS 

361  CSSS 

362  CSSS 
3c3  CSSS 

364  csss 

365  CSSS 
3oo  CSSS 
367  CSSS 
3o8  CSSS 
36V  CSSS 
370  CSSS 

37  I  CSSS 

372  CSSS 

373  CSSS 

374 

375 
37o 

2  '  I 

376 
37V 
380 
36  I 

382 

383 

384  21,13 

365 

38o 

38  , 

3  HI  C - 

38  V  *  I  00 

3 VO  C - 

3V1  CSSS 
3V2  CSSS 
393  CSSS 
3V4  CSSS 


LSOR=ANTENNA  PATTERN  A LOME (TRUE  OR  FALSE) 

HEADC5 ,* ) LSLOPE, LCORNR, LSOR 
WRITE*  6, 3 1  (32  )LSLOPE,LCORMR,LSOR 

FORMAT* 2H  *,5X,'LSL0PE=>  ',L3,5X,aC0RNR=  L3,5X,'LSOR=  ',L3, 
1179, IH*> 

WRI  16(6,3006) 

I F  ( LSOR )  1<R  t  TE  ( 6 , 34  02  ) 

F0i(MA7(2K  *,5X,/S0URCE  PATTERN  ALONE  IS  COMPUTED  ! ! !'  ,T79,  IN*) 
IF (LSOR) hRITE(6, 3006) 

JMN( I ) ,JMX ( ! )=OPTI ON  TO  VARIOUS  RAY  TERMS  FOR  PLATES* 

0=SKIP  PLATES  SECTION 
1=INCIDENT  FIELD 
2=SINGLE  REFLECTED  FIELD 
3=D0URLE  REFLECTED  FIELD 
4=S1NGLE  DIFFRACTED  FIELD 
5=REFLECTED/D! FFRACTED  FIELD 
6=DIFFRACTHD/RSFLECTED  FIELD 

NOTE*  NORMALLY  JMN ( I )* !  AND  JMX£t>=7.  THIS  COMPUTES  ALL  FIELD 
VALUES  INCLUDING  IDENTIFING  DOUBLE  DIFFRACTION  PROBLEM  AREAS 
FOR  A  CONVEX  OR  CONCAVE  PLATE  STRUCTURE, 

JMN(2 ) ,  JMX (2  >=OPTI ON  TO  RUN  VARIOUS  RAY  TERMS  FOR  CYLINDER* 
0=SKIP  CYLINDER  SECTION 

(  =  t NCI DENT,R£FLECT ED  TRANSITION, AND  CREEPING  WAVE  FIELDS 

2=*SINGLE  REELECTED  FIELDS  FROM  END  CAPS 

3= SINGLE  DIFFACTED  FIELDS  FROM  END  CAP  RIMS 

NOTE*  NORMALLY  JKM(2)=!  AND  JMX(2)=3.  THIS  COMPUTES  ALL  FIELD 

VALUES  FOR  A  FINITE  ELLIPTIC  CYLINDER. 

JMN ( 3) , JMX ( 3 5=0PTI OH  TO  RUN  VARIOUS  RAY  TERMS  FOR 
PLATE-CYLINDER  INTERACTIONS* 

0=SXIP  PLATE-CYLINDER  INTERACTION  SECTION 

!=FI ELDS  REFLECTED  FROM  THE  PLATES  THEN  REFLECTED  OR 

DIFFRACTED  FROM  THE  CYLINDER 

2 =F I ELDS  REFLECTED  OR  DIFFRACTED  FROM  THE  CYLINDER  THEN 
REFLECTED  FROM  THE  PLATES 

3=FI ELDS  REFLECTED  FROM  THE  CYLINDER  THEN  DIFFRACTED 
FROM  THE  PLATES 

4=Fi ELDS  DIFFRACTED  FROM  THE  PLATES  TIEN  REFLECTED 
FRO.1!  THE  CYLINDER 

NOTE*  NORMALLY  JMN(3)=I  AND  JMX(3)=4. 

READ(5  ,* )  JMM(  1 )  ,J.MX(  1  ),  JMM(2)  ,JMX(2),  JMN(3),JMX(3) 

IF(JMNC 1 ).LT.0)  JMN(I)»? 

IF(JMX(1).GT.7>  JMX( I ) =7 
IF(J/IN(2>.LT.0)  JMN ( 2 )  =  I 
IF(JMX(2).CT.3)  JMX (2) =3 
I F( JMN(3 ) . LT .0 )  JMN(3)*1 
IFf JMX(3).GT,4)  JMX(3)=4 
IF (LSOR)  JMN (1)= I 
If (LSOR)  JMX (I )=l 

WRITE(6, 2103)  JMN(  !  ),JMX(1  ),JMN(2)  ,JMX(2),JMN(3),J.MX(3) 
F0RVAT(2H  * ,2X , '  JMN (  i  )=  M2  ,2X,  'JMX(t  )=  ',I2,2X, 

2'JMt:(2>  =  '  ,  1 2, 2X , '  JMX(  2 )  =  12 ,2  X,  '  JMN  ( 3  )=  '.I2.2X 

2 , /JMX(3 ) =  I2.T79, 1H*) 

GO  TO  3000 


CONTINUE 

UN*  COMMAND  - 

IUNIT=INDICAT0R  OF  UNITS  USED  FOR  INPUT  DATA. 
!=METERS 
2=f EET 
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3=1 NCHES 


395  CSSS 
39  e  CSSS 

397  READI5,*)  IUNIT 

398  UNITS-UNIT! IUNIT) 

399  WRITE(6,4  1 01 )  (LABEUJ,  IUNIT), >1,2) 

400  4101  F0RMAK2H  *,5X,'ALL  THE  LINEAR  DIMENSIONS  BELOW  ARE' 

40!  2,'  ASSUMED  TO  BE  IN  '.2A3.T79, !H*> 

402  GO  TO  3000 

403  C - 

404  4 J 10  CONTINUE 

405  C -  US*  COMMAND  - 

406  CSSS 

4K7  CSSS  I UNST= INDICATOR  OF  UNITS  USED  FOR  HS  AND  HAWS  IN  THE 
408  CSSS  SC*  COMMAND. 

4fcV  CSSS  0=NAVELB!GTHS 

410  CSSS  l=METERS 

411  CSSS  2=FEET 

412  CSSS  3=1 NCHES 

413  CSSS 

414  csss  NOTE*  IF  ONE  SOURCE  IS  SPECIFIED  IN  WAVELENGTHS,  THEY  ALL 

415  CSSS  MUST  BE  IN  WAVELENGTHS. 

416  RE AD (5,*)  IUNST 

417  IF(MSX.EO.0)  GO  TO  4112 

418  IF(IUNST.EO.0.AMD.I!JNSP.EQ.0)  CO  TO  4112 

419  IF<IUNST.NE.0.AND.IUNSP.NE.0)  GO  TO  4112 

420  WRITE! 6, 4  111) 

42!  ‘Ill  FORMAT!'  ***  PROGRAM  ABORTS  IN  SOURCE  UNITS.  ALL  UNITS  NOT' 

422  2,'  SPECIFIED  IN  WAVELENGTHS!!!  ***') 

423  STOP 

424  4J12  CONTINUE 

425  IF! I UNST.EQ. 0)  GO  TO  4  1 1  4 

42o  WRITE(6,4 113)  (L/BEL! J , I UNST> , J= 1 ,2 ) 

427  ‘I  13  FORM AT! 2H  *,5X, 'THE  SOURCE  LENGTH  HS  AND  WIDTH  HAWS  ARE' 

428  2,'  ASSUMED  TO  BE  IN  '.2A3.T79, IH*) 

429  GO  TO  4 1 16 
4304114  WRITE(6,4 115) 

43  1  41  15  FORM  AT! 2H  *,5X,'THE  SOURCE  LENGTH  HS  AND  WIDTH  HAWS  ARE' 

432  2,'  ASSUMED  TO  BE  IN  WAVELENGTHS' ,T79, I H*) 

423‘!!6  IUNSP=IUMST 
434  GO  TO  3100 

43 0  4200  CONTINUE 

437  C -  HR*  COMMAND  - 

438  CSSS 

439  CSSS  FR0G=FRE0U ENCY  IN  GIGAHERTZ. 

440  CSSS 

441  READ(5,* )  FROG 

442  WL=. 2997  925/FROG 

443  WRITE(6,420I )  FROG 

444  4201  FORM AT (2H  *, 5X, ' FREQUENCY®  '.F7.3,'  GIGAHERTZ' ,T79, I H* ) 

445  WRITE! 6 ,3006) 

44o  WRITE (6, 42 02 )  KL 

447  <202  FORM  AT! 2H  *,5X .'WAVELENGTH-  '.F10.6,'  METERS', T79, IH*) 

44  8  GO  TO  3  (-'00 

44  9  C - 

450  32  0.)  CONTINUE 

451  C -  PDi  COMMAND  - 

4'j2  CSSS 

403  CSSS  THCZ ,  PHCZ=OR  I  ENT  AT  I  ON  OF  THE  ZPD  AXIS  REUTIVE  TO  THE 

454  CSSS  FIXED  COORDINATE  SYSTEM. 

455  CSSS 

45o  CSSS  THC  X , PMCX=OR I  ENT AT I ON  OF  THE  XPD  AXIS  RELATIVE  TO  THE 

457  CSSS  FIXED  COORDINATE  SYSTEM 

458  CSSS 

459  READ! 5, * )  THCZ, PHCZ, THCX , PHCX 

460  ZPD! I )=SIM(THCZ*RPD)*COS(PHCZ*RPD) 


461  ZPD( 2 )*S I N  (THCZ*RPD) *SIN ( PHCZ*RPD) 

462  ZPD( 3)-C0S(THCZ*RPD) 

462  XPD( I )-SIN(THCX*RPD)*COS(PFCX*RPD> 

464  XPD(2)=SIN(THCX*RPD)*SIM(PHCX*RPD) 

465  XPf)(  3)=C0S(THCX*RPD) 

460  C! ! !  INSURE  XPD  IS  PERPENDICULAR  TO  2 PD 

4o7  DZX-ZPD! 1 )*XPD< I )+ZPD(2)*XPD(2)+ZPD(3)*XPD(3) 

463  IF(ABSCDZX).GT.0. I )  WRITEI6.320I ) 

46V  3201  FORMAK  "  ***  PROGRAM  ABORTS  IN  PATTERN  CUT  SECTION." 

470  2,"  THE  COORDINATES  ARE  NOT  ORTHOGONAL! !!  ***"> 

471  IF(ABS(I)ZX).GT.O.t  )  STOP 

472  XPD(  I  )=>.PD(  1  )-ZPD(  I  )*DZX 

473  XPD(2)=XPD(2)-ZPD(2)*DZX 

474  XPD(3)=XPD(3)-ZPD(3)*DZX 

4/5  POT- XPD ( I )+XPD( 1 )+XPD(2)*XPD<2)+XPD(3)*XPDC3) 


476 

DOT-SORT (DOT) 

477 

XPD( 1 )=XPD( 1 >/DOT 

47f! 

XPD( 2 ) -XPD (2 )/00T 

47  V 

XPD ( 3 ) -XPD ( 3 ) /DOT 

400 

YPDC 1 )=ZPD(2)*XPD(3)-ZPDC3)*XPD(2) 

481 

YPD(2)=ZPD(3)*XPP( 1 )-ZPD( 1 )*XPD(35 

482 

YPD(3)=ZPD( 1 )*XPD(2)-ZPD(2)*XPD( t) 

403 

WHITE! 6, 3202 ) 

404 

3202 

FORMAT (2H  *,5X,"THE  PATTERN  AXES  ARE  AS  FOLLOWS*", 

T79,  IH*) 

405 

WRITE(6,3006) 

406 

WRITE(6,3203 )  (XPD(N) f N= 1 ,3) 

487 

3203 

F0R,MAT(2H  *,5X,"XPU(  !)="  .F10.5,"  XPD(2)-",F!0.5," 

XPD( 3)-" 

488 

2,F1W.5,T79,IH*) 

48V 

WRITE(e,3006) 

4V0 

WRITE<6,3204)  (YPD(N),N-I ,3) 

4V  1 

3204 

FORM AT (2H  *,5X,"YPD< I )-" ,F 10.5,"  YPD(2)-" ,F 10.5 ," 

YPD(3)»" 

4V2 

2,FI0.5,T79,IH*) 

4V3 

WRITE(6,3K06) 

4V4 

WR IT£( 6, 3205 )  (ZPD(N) ,N« 1 ,3) 

4V5 

3205 

F0RMAT(2H  +  ,5X  ,"ZPD(1  >="  ,F  10 .5,"  ZPD(2)-",FI0.5," 

ZPD( 3)-" 

4V6 

2 ,F 1 0.5.T79, 1 H*  > 

4V7 

CSSS 

4V6 

CSSS 

LCNPAT-I $  PATTERN  CONIC  CUT(T  OR  F)7 

4VV 

CSSS 

T-THETA  CUT( CONIC  CUT) 

500 

CSSS 

F-PHI  CUT ( PHI  CONSTANT) 

5v)  1 

CSSS 

502 

Csss 

TPPD-PA7TERN  ANGLE  THAT  IS  CONSTANT 

503 

csss 

IF  LCNPAT-T*  TPPD-THP  CONSTANT 

504 

csss 

IF  LCNPAT-F*  TPPD-PHP  CONSTANT 

505 

CSSS 

5G6 

READ<5 ,* )  LCMPAT.TPPD 

507 

WR I TE(  6,3006  ) 

50  B 

50V  3206 
510 

51  I 

512  3207 
5 !  2 

514 

515  CSSS 

5 1 6  CSSS 

517  CSSS 

51  & 

51V 

520 

52  1 

522 

523  3208 

524 

525 

526  C - 


IF(.NOT.LCNPAT)  WRITE<6,3206 >  TPPD 

F0RMAK2H  *,  5X,'TT!ETA  IS  BEING  VARIED  WITH  PHI-  ",FI0.5 
2,T7y, IH*) 

IF(LCNPAT)  WRI TE (6 ,3207 )  TPPD 

F0RMAK2H  *,5X,"PHI  IS  BEING  VARIED  WITH  THETA-  ",FI0.5 
2,T79,IH*> 

WRITEI 0,3006) 

IB, I E, I S=BEGIN , END, STEP 

READI5,*)  IB, IE, IS 
IF(IE.LT.O)  10=0 
IF ( I E.G7 .360 )  IE-300 
IF U S.LE.0 )  IS-I 
WRITF( 6, 32D0)  IB. IE, IS 

F0RMAT(2H  *,5X,"THE  RANGE  OF  PATTERN  ANGLE  INDICES  FOR  THIS" 
2,"  RUN  ARE •  ",I3,2(",",I3> ,T79, 1 H*) 

00  TO  3000 
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52  7  225.;  CONTINUE 

528  L - hCi  COMMAND  — - - 

52V  CSSS 

530  CSSS  RANGS=FAR  FIELD  RANGE  DISTANCE 

531  CSSS 


532  CSSS  NOTE  IF  RANGS  IS  GREATER  THAN  OR  EOUAL  TO  I.E30 

533  CSSS  THAN  LRANG  WILL  BE  SET  FALSE 

534  CSSS 

535  LRANG=.7RUE. 

526  READ(5,*>  RANGS 

537  IF{RANGS.GT.9.9E29)  GO  TO  3252 

538  RANG=UNHS*RANGS 

53V  WRITE(6,3251 )  RANGS,  (LABEL  (J  .ItINIT)  ,J*  1 ,2)  .RANG 

5sc  2251  FORM AT (2H  *,5X,'THE  FAR  FIELD  RANGE  SPECIFIED  IS  ',E12.6, 

541  2"  IN  ',2A3,T79,IH*,/2H  *,5X,'THE  RANGE  SPECIFIED  IN  METERS' 

542  2,'  IS  ',EI2.6,T79, IH*> 

543  GO  TO  3 tO0 

544  2252  CONTINUE 

545  LRANG*. FALSE. 

546  RANG* I . 

547  WRITE(6,3253) 

548  3253  FORMAT! 2H  *,5X,'NO  FAR  FIELD  RANGE  SPECIFIED.' ,T79, I H*) 

54V  CO  TO  3fc00 

550  C - 


551  33 00  CONTINUE 

552  C - PG»  COMMAND - - 

553  CSSS 

554  CSSS  PLATE  GEOMETRY  INPUT 

555  CSSS 

55o  LPLA=.TRUE. 

557  MPX=MPX* I 

558  IF  (MPX.GT.MPDX)  WRITH(6,90I)  MPX 

55V  VO  I  FORMAT  ('  *****  NUMBER  OF  PLATES*  ',13,'  PROGRAM  ABORTS', 


560  2'  SINCE  MAX.  PLATE  DIMENSION  IS  EXCEEDED.  ****♦') 

bo  I  IF  (MPX.GT.MPDX)  STOP 

562  WRITE(6,330I)MPX 

563  3201  F0RMAT(2H  *,5X,'THIS  IS  PLATE  NO,  ',13,'  IN  THIS  ', 

564  I 'SIMULATION. ',T79, IH*) 

565  MP=MPX 

5oo  WRITEto, 3006 ) 

567  WRITE<6,3006) 

568  WRITE(6,3006) 

50 V  CSSS 

570  CSSS  MEP(MP)*NUMBER  OF  CORNERS  ON  THE  MP-TH  PLATE. 

571  CSSS 

572  RE AD (5,*)  MEP(MP) 

573  MEX*MEP(MP) 

574  IF  (MEX.GT.MEDX)  WRITE (6, 903)  MP.MEX 

575  VU3  FORMAT  ('  *****  PLATE  #',I3,'  HAS  ',13,'  EDGES.', 

57o  2'  PROGRAM  ABORTS  SINCE  MAX.  EDGE  DIMENSION  IS  EXCEEDED.' 

87  7  '/  /  ***i*'M 

578  IF (MEX.GT.MEDX)  STOP 

579  DO  5  ME-I.UEX 

580  CSSS 

581  CSSS  XX(MP,ME,N)*X,Y,Z  COMPONENTS  OF  CORNER  #ME  OF  PLATE  #MP. 

582  CSSS  N*I(X),N«2<Y),N*3(Z).  INPUT  CORNER  DATA  AS  FOLLOWS* 

583  CSSS  l.,l.,U. 

584  CSSS  -i.,l.,0. 

585  Csss  -l.,-l.,0. 

58  6  CSSS  t,  — I,  0. 

587  csss  THIS  is  THE  INPUT  FOR  A  2  METER  SOUARE  PLATE. 

588  csss  NOTE  THAT  IF  THERE  IS  MORE  THAN  ONE  PLATE,  THEN  THE  CORNER 

58V  CSSS  DATA  FOR  EACH  PLATE  WOULD  FOLLOW  SEOUENTIAU.Y. 

5V0  CSSS 

5VI  READ!5,»>  ( XX( MP.ME.N)  ,N*t  ,3 ) 
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592 

5 

592 

594 

3302 

595 

596 

597 

3303 

598 

599 

60!) 

0,51 

602 

3310 

603 

004 

3311 

6fc5 

000 

3305 

60  T 

2304 

008 

609 

C-—  ■ 

oie 

3350 

0l  1 

C - 

612 

CSSS 

613 

CSSS 

614 

csss 

ol  6 

616 

617 

o  1 8 

3351 

61V 

620 

02  1 

C - 

622 

3400 

023 

C - 

624 

CSSS 

625 

csss 

626 

CSSS 

027 

o28 

629 

630 

904 

o3  1 

o32 

o33 

624 

2401 

o35 

0  3o 

63  7 

o3« 

OSSS 

639 

CSSS 

o4l 

CSSS 

04  1 

csss 

O'.  2 

CSSS 

64  2 

csss 

044 

CISS 

645 

CSSS 

046 

csss 

04"/ 

csss 

6<.J 

ci  ss 

64  >. 

csss 

050 

css: 

(5  1 

<::  ss 

05  J 

os 

<>’,■  :• 

ss 

f>5  ^ 

cs  s; 

f>‘  5 

CS  Si 

OMO 

s  s  s 

05  7 

CS  ss 

continue 

WRITE! 6 ,3302  )  ( LABEL!  J,  IUNIT)  ,J-1 ,2 ) 

FORMAT! 2H  *, 2X, 'PLATE#', 2X, 'CORNER#' ,3X, 'INPUT  LOCATION  IN 
I2A3.4X, 'ACTUAL  LOCATION  IN  MEIERS' ,T79, 1 H*> 

WRITE! 6,3303 ) 

FORMAT! 2H  *,2X,' - ',2X,' - ' 

1 ,2  !2X,2( ' - - - ) ,T79,  IH*) 

DO  3304  ME-I.MEX 
WRITE! 6,3006) 

DO  3310  I'»l,3 
XO!N)=XX(MP,f/E,N) 
no  3311  N= I ,3 

XX(MP,ME,N )=UNITS*(XQ( I )*XP(N)*XQ!2)*YP!N)*XQ!3)*ZP(N))*TR(N) 
WRITE!  6, 3305  HIP,  ME,  (  XQ(N  ),N- 1 ,3) ,  (  XX  <MP,ME,N)  ,N- 1 ,3) 

F0RMAT(2H  *,4X,I3,6X,I2.2X,2<2X,F8.3,2(',',F8.3> >,T79, IH*) 

CONTINUE 
GO  TO  3000 

CONTINUE 

HP*  COMMAND  - 

INITIALIZE  PLATE  DATA. 

LPLA=, FALSE. 

MPX=0 

WRITEI6, 3351  ) 

FORM AT (2H  *,5X,'  THE  PLATE  DATA  IS  INITIALIZED.  ',T79, IH*/ 
22H  *,5X,'  NO  PLATES  ARE  PRESENTLY  IN  THE  PROBLEM.  '.T79, IH*) 
GO  TO  3O0M 

CONTINUE 

' SG*  COMMAND  - 

MS X= NUMBER  OF  ANTENNA  ELEMENTS. 

LAMP=. FALSE. 

.'•'SX-MSX+  1 

IF  (MSX.GT.MSnX)  Vi  RITE  (6, 904  )  USX 

FORMAT  ('  *****  HUM. PER  OF  SOURCE S=  '.13,'  PROGRAM', 

2'  ABORTS  SINCE  MAX.  SOURCE  DIMENSIOfl  IS  EXCEEDED.  ***»*') 

IF  (MSX.GT.MSDX) ST OP 
WH  1 TE <0,2401  )  USX 

hORM AT! 2H  *,SX,'THISIS  SOURCE  NO.  ',13,'  IN  THIS', 

I'  COMPUTATION. ',T79, IH*) 

WRITE <0,3 !*<•;. ) 

WRIT -(6,2006) 

XSS(,“S.N)»XYZ  LOCATION  OF  MS-TH  ANTENNA  ELEMENT. 

I  MS!  MS  )=TYPE  OF  LINEAR  ANTENNA 
0= ELECTRIC  LINEAR  ELEMENT 
I  “MAGNETIC  LINEAR  H.  PI  ENT 

HAWS  IMS) -APERTURE  WIDTH  IN  WAVELENGTHS  <  NOTE  a  IF 
HAWS! MS )  IS  LESS  THAN  .1  LAMBDA,  SOURCE  IS 
CONSIDERED  TO  BE  DIPOLE  SOURCE 
HS(:.*.5)=LE:iGTH  OF  LINEAR  ELEMENT  IN  WAVELENGTHS 

V:02<MS),pi!OZ<MS>»0RlENTATION  ANCLES  USED  TO  DEFINE  LINEAR 
ILl'iL.IT  axis. 

T  lie:,  (ME ) ,  PIIDX!  MS  )“0R  I  ENT  ATI  ON  ANGLES  USED  TO  DEFINE  APERTURE 
PLANE  (».  DIPOLF  X-AXIS. 

I.v  (  m:: ) ,  *.P (  MB  i«itAfiN  ITUOE  and  PHASE  OF  EXCITATION  OF 
'’■.‘>-111  ELEMENT. 
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obS  CSSS 

ob9  MS-MSX 

oo'«:  READ (5,*)  (XSS(MS,N>,N-I ,3) 

oo I  R£AD(5,*)  THOZ(MS) ,PHOZ( MS) ,TKOX(MS) ,PHOX(MS) 

002  REA0!5,*>  IMS!MS),HS(MS),HAWStMS) 

oo  2  REAIX5,*)  KM  (MS)  ,WP(MS) 

004  I F( t MS! MS) . EO.0)  WR!TE(6,34I 1 ) 

oob  3411  FORM  AT! 2H  *,5X,"THIS  IS  All  ELECTRIC  SOURCE.  ",T79. 1  H*> 

000  IFdMSUSI.EC.  I)  KRITE'6,3412) 

007  3412  FORMAT! 2H  *,5X,"THIS  IS  A  MAGNETIC  SOURCE.", T79, IH*) 

668  WklTE(6,3006) 

ooV  IF( I UNST.EO.0)  CO  TO  3414 

070  UNS7S-1INIT!  IUNST) 

o7  I  WRITE(6,3413)  HS  (MS)  .HAWS!  ,‘»S ),  (LABEL  <  J,  IUNST) ,  J-  1 .2) 

07 2  34  13  FORM AT! 2H  *,5X, "SOURCE  LENGTH-". Ft 0.5,"  AND  WIDTH-' 
o73  2,FIU.S,tX,2A3,T79, IH*> 

o7  4  HS(MS)«UNSTS*HS(MS) 

67b  HAWS  (MS  )-UNSTS*HAWS  ( MS ) 

676  WRITE( 6, 3006) 

o77  HRITE!6,34I3)  HS(MS) ,HAWS( MS), (LABEUJ , I > ,J-I ,2) 

o7fl  CO  TO  3416 

o7v  3414  WRITEC6, 34 15 )  HS(MS) ,HAWS( MS) 

ofe0  34  15  FORM  AT  (2H  *,  5X, -"SOURCE  LENGTH-",  FI0.5,"  AND  WIDTH-" 

08  I  2.FI0.5,"  WAVELENGTHS", T79, tH*) 

o82  34lo  hiiITE(6,30«o) 

683  WRITE(6,2417)  KM(MS).WPCHS) 

684  3417  F0HMATC2H  *,5X,"THE  SOURCE  WEIGHT  HAS  MAGNITUDE-" 

685  2,FKi.5,"  Attn  PHASE-", FI0.5. T79. IH*) 

666  WRITE! 6,3006 ) 

o87  WHITE! 0,3006) 

088  WR  ITE(  o,342 1  )(  LABELt  J,  I  UNIT)  ,J-t  ,2  ) 

089  3421  FORMAT! 2H  *,T6, " SOURCE#" ,T1 7," INPUT  LOCATION  IN  ".2A3.T46, 

690  I •" ACTUAL  LOCATION  IN  METERS". T79, IH-) 

691  hRITE<6,3422) 

ov2  2422  FORMAT! 2 H  *,T6,7!"-"),7l6,27("-">,T45.27<"-">, 

093  IT79.IH*) 

oV4  WHITE <6, 3006) 

69b  DO  3424  N-l,3 

090  3424  XO(N)-XSS(MS,N) 
o97  PO  3425  N=t,3 

6vb  3425  XSS(MS,N)-l)NITS*(XO<  t)*XP(N)4X0(2)*YPCN)*XQ(3)*ZP(N))4TR(N) 
099  WRITE! 6, 3426) MS, (XO(N).N-l ,3), (XSSfMS.N) .N-1.3) 

700  3426  FORMAT! 2H  *,TB, I 3.T15.F8.3 ,2 (",",F8.3> ,T44,F8.3,2C ",",F8.3 > 

70 1  1,779,111-) 

702  TOR-THOZ(MS)*RPD 

703  PGH-PHOZ ( M  S) *H  PO 

7t)4  XOC I  >-SIHtTOR)-CQS(PQR> 

70b  X0!2  )=SIN(TOR)*SIN(POR) 

7U6  X0(3)-CCS(T0R) 

707  00  3431  N-1,3 

708  2-.3I  VXSS!3,N,MS)-XtU  D*XP(N)-XO(2>*YPCN)-X0(3)*ZPtN) 

709  TQH-THQX (MS) -RPO 

710  POR ■ PHOX ( M  S ) -RPO 

711  XO! U -SIN! TOR) -COS! POP) 

712  X0!2 ) -SIN (TOR) -SIN (POR) 

713  X0(3)»CCS(TQR> 

714  DO  3432  N-1,3 

71b  3*- 22  VXSS!  I,N,MS)-X0!  l)4XP!N)*X0(2)*YP(N)tX0(3)-ZPtN) 

7lo  PZX-VXSS(I , I ,MS)*VXSS<3. l,MS)-VXSS(t ,2,MS)-VXSS< 3.2.MS1 

717  2-VX SS( I , j,M5)*VXSS(3,3.MS) 

7ln  lFtAftStD2Xt.AJT.VM  1  WRITE!  6,34361 

/IV  _4j6  FORMAT!"  —  PROGRAM  ABORTS  IN  SOURCE  SECTION  IN  THAT  WE", 
/20  2"  COORDINATES  ARE  NOT  ORTHOGONAL  111  ** *"» 

721  !FfAftS!i:Z:<).CT.0.l  )  STOP 

722  VXSSd ,l.MS)«VXSSt l,l,«S»-VXSS(3,t.HS>*0ZX 

723  VXSS(l,2.MSl*VXSS( I ,2.HS)-VXS5<3.2 ,H5>*0ZX 
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724 

72  b 

726 

727 

72  a 

72V 

720 
*/  “  1 

1  w  1 

732 

732 

734 

73b 

726 

727 

2437 

73  H 

7oV 

740 

74  1 

3433 

742 

2434 

743 

744 

74  b 

C - 

740 

24  4.) 

74  7 

c - 

74a 

CSSS 

74V 

CSSS 

750 

CSSS 

751 

CSSS 

752 

CSSS 

753 

CSSS 

754 

CSSS 

755 

csss 

750 

757 

75a 

75  v 

7oi) 

2*41 

7c  1 

7  62 

7o3 

2442 

764 

765 

7oo 

76  7 

443 

7oS 

70V 

C-— 

77  0 

2450 

77  t 

v-  — 

772 

csss 

77  _• 

csss 

77  4 

c$  ss 

77  b 

77  0 

)77 

77  H 

77  v 

csss 

?H»' 

i,SiS 

/HI 

ct  ss 

7«2 

7a  4 

"5l4 

Ttjs 

.•A  77 

(0  0 

7fe7 

It  V 

/ttv 

VXSSC 1 ,3«MS)*VXSSt  l,3,MS)-VX£S(3,3,MS)*DZX 

D0T-VXS5!  I ,  I  ,MS)*VXSS<  I ,  I ,MS)*VXSS< I ,2  ,MS)*VXSSU  ,2,MS> 

2*VXSS( I ,3,MS)*VXSS< 1 ,3, MS) 

DOT*SORT(DOT) 

VXSS( I, l,MS)-VXSS( I, !,MS)/DOT 

vxssi  i  ,2.ms)*vxss( i,2,ms>/oot 

VXSSI  1 ,2,VIS)-VXSS<  1,3,MS)/D0T 

VXSS (2 , 1 ,  MS)  <*VXSS(  3 ,2  ,MS )* VXSSI 1 ,3»MS)-VXSSC3,3, MS )*VXSS( I .2 .MS) 
VXSS(2,2,MS)-VXSS(3,3,MS)*VXSSt I ,t ,HS)-VXSS(3, 1,MS)*VXSS(t ,3,MS> 
VXSS(2,2,MS)-VXSS(3,  l,MS)*VXSSO,2,MS)-VXSS<3,2,MS)*VXSSO,l,MS) 

WRITFto ,3«U6> 

»WITE(6,3(ie6) 

WRITE(6,343?) 

F0HMAK2H  *,SX.'TWE  FOLLOWING  SOURCE  ALIGNMENT  IS  USED*' 

2, T7V,  IH*) 

DO  3433  NI  ®l  ,3 
I»R  1  IE  (6,3006) 

WHITE* 0,3434)  (N1,NJ.MS,VXSS(NI,NJ.MS),NJ-I .3) 

F0RMAK2H  *,  IX,3(2X,'VXSS(',  1 1,',',  I  l,',',I2,')-',F9.5) 

2,17V, IH*) 

co  to  3e«ia 

CONTINUE 

PH»  COMMAND  - 

PH AD-TOTAL  PCHEf?  RADIATED  IN  WATTS. 

PRAD  CAN  ALSO  BE  SPECIFIED  AS  THE  POWER  INPUT  IN  WATTS. 

NOTE  ! F  PR AO  IS  LESS  THAN  OR  EQUAL  TO  l.E-30 
THAN  LPfiAD  WILL  BE  SET  FALSE 

LPRAD-.TRUE. 

READ (5,*)  PHAD 

I f (PWAO.LT .1 .  I  £-3ii>  GO  TO  3442 
WR ITE (6,344 1 )  PRAO 

rOIW AT (2H  *,SX ,'TOTAL  POWER  RADIATED  IN  WATTS*  ',E!2.<S 
2.T7V, IH* ) 

GO  TO  3m) 

CONTINUE 
LPHAD-. FALSE. 

PRAD-a. 

W»rfE(6,3443) 

FORM ATI2M  *,5X,'N0  POWER  RADIATED  IS  SPECIF I  ED', T?9, IH*> 

GO  TO  3MW 

CONTINUE 

AM*  COMMAND  —  - - 

PRAD-TOTAL  PCriER  RADIATED  IN  WATTS 

LPNAO-.TRUE. 

ReAIXS  ,* )  PRAO 
«HtrC(As344t )  PMAD 
WRITE  1 0.3206) 

sm-NUUIER  OF  ANTENNA  SEGMENTS 

LAUt»«,TRllfe. 
m’HA'.MS,*  )  MSX 

5rtu«..».0T,MSSX)  WRITE(S,34',7)  MSX 
Fv-m.i'  NUMBER  OF  SEGMENTS*  ',13. 

i’xOUHAM  ABORTS  SINCE  MAS.  SOURCE  DIMENSION' 

2.'  IS  EXCEEDED.  *•***') 

IMMSX.tT.MSUX)  stop 
*«r.l;(0,34SI )  MSS 
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/via 

4451 

7VI 

?V2 

7v  3 

/V4 

CSSS 

VV2 

CSSS 

7vo 

CSSS 

‘/V7 

csss 

7vt> 

CiSS 

7w 

CSSS 

010 

csss 

00  1 

csss 

002 

csss 

Ot)2 

CSSS 

004 

CSSs 

00  0 

csss 

title 

007 

Okie 

4454 

ewv 

OlO 

u  1 1 

012 

44  20 

O  1  4 

O  1  - 

dl2 

34  2/ 

O  i  0 

017 

d  1  o 

-4 ‘32 

olv 

o2s- 

4  •  IV 

o2  1 

©ti 

--23 

02  4 

02  4 

o.  5 

020 

V-4  74 

ok  7 

04(3 

--72 

t*2v 

dj© 

j4  7q 

04  1 

832 

j4  73 

0-4 

034 

835 

«3o 

34  2© 

03  7 

0*0 

OJV 

-*2V 

ti-u 

04  ) 

4)4  2 

il»3 

044 

04  5 

0-© 

0*7 

04  V 

fCK8AT<2H  *,5X. 'THERE  ARE  ',15/  SEGMENTS  IN  THIS'. 

2'  CuMPU'i  ATION. ',  T7V,  IH*) 

WHITE<©,3««6  ) 

WKlTE<0,3tfPd) 

XS(«S,.N)“XYZ  LOCATION  Of  NS- IN  ANTENNA  SEGMENT 
I MS< MS )•«* ELECTRIC  LINEAR  ELEMENT 
HS( MS) “LENGTH  OF  LINEAR  ELEMENT 

THOZIMS)  ,PHQZ(US)“ORIENTATION  ANGLES  USED  TO  DEFINE 
LINEAR  ELEMENT  AXIS. 

W.(MS),hP(.US)“REAL  AND  IMAGINARY  CURRENT  HEIGHT. 

HR  ITEi6,3i)t)6 } 

Wh1TE<0,3424 ) 

ruiiOATt  2H  *,T3 I. 'SEGMENT  COORDINATES', T79,'*' ) 

WHITE! 0,3000) 

UhliEtO, 30U6) 

i»H I  lh(0,34bo)  (LAflEUJ.m:iT),J*l,2) 

FUhMA7(2H  *,T7, 'MS', TI4, 'INPUT  LOCATION  IN  ',2A 3. 

2T43, 'ACTUAL  LOCATION  IN  METERS',T79,'*') 

HH1TE(0,34S'/) 

FORMAT (2H  «,To,3t'-'),TI :,26t'-'),T42,2Tt'-'),T70,'*') 
»Hlit(0,3000) 

DO  34*j2  MS“I  .USX 
I  .45  C  siS )  “i’ 

DO  3  I  IV  US»I .USX 
HA.tS(U$)=0. 

DO  34?3  «S»I ,MSX 

REAtKS,*)  (XSSSMS.N)  ,N«1 .3 } .  KSf  MS)  ,TNQ2(  MS) .  MK2CMS) 
WfcAiHS,*)  ( HM(  VS  ) ,  HP  (MS)  ,MS“  1,1'SX) 

DO  3473  MS“I ,MSX 
DO  3474  N* I , 3 
XOUl  )“Xi  Sf  MS,N) 

DO  3475  N‘»  1 , 3 

X<SC4S,N)“Wi!TS*iXn(  I  )*X?(N)^XfH2)“YP!N)*XQ(3)*ZP<N5)«TRtN) 
4HITfcto,347o)  MS,(XO(»),M“!,3),(XSS«as,N).H«i,3) 

Format C2)f  4.T6.1 3, TI3.FN. 3,2 PR. 5>.T43.FP. 3, 
22<'.',F>.3>,T?V, tH“) 

CONTINUE 
Ah  ( T  F  (  i> .  3lNW  ) 

<.Kim<v,;vfp«) 

;i«fTF(0,J45»>  t LAUEL  t  J .  I  UN  I T ) ,  J*  i ,  2 ) 

FOHKATtZh  *.n,'wS'.T)3,'HS»',2A3,T23.'HS»«ET583'. 

2T4  I  .'INPUT*  tHO,  PHO'  ,TA*3 ACTUAL 1  THO,  PM0',T7V,  )M* ) 

34So ) 

FOHJATtjF  «,rd.3f'-'),T»2,2a«'*'),T40, Ifit'-'J.TSV, 
2I7»'-').T?W, lit*) 
f.M  1 1  fe  i  o ,  3«’:’S  ) 

no  i4oj  us«i ,msx 

stssi 

RS(jiS)»usns*4iSQ 
5  0»v.*.-7  Mu.TCKS) 
t  I 

xoi  i  ?»:ii m  7c*;!PO)*coJ( PO*ie»D) 
iw  ( ,:  i »  5 1 IM  PO )  •  si  H(  5“i«aP0 ) 

lot  5  l»a?  !  ~tt  •*,?;)) 


vS+  >'V  3-01  S“  I  ,  3 

hS  i  ,4«t  l)“lPCV)»Xm2>*YPtN)*$Ot 

; TNvC  t  ISt»T »  SOU*  !)»SCi!f  i  i*XGSU  }*tQS(2  >)  ,£08(3)) 

j  |4S) t»CPS “NTANJ  t  £CJ« { 2  ) ,  10 US  I  ) ) 

•»V4  .‘‘•siits  to,  3464  )  MS,H7<J,H5«*5).TS5,SH3,THC2tMS)  ,9HP2t«) 

fe'.O  FvwSiATijJ?  «.To,i  3,31.2(2*. HI. 4>.5X.2t2X,fi?. 3, J) 
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660 

661 

666 

2484 

86V 

ttOfc) 

66  1 

602 

80-s 

80  4 

1}  06 

2403 

606 

807 

806 

86V 

2485 

870 

0  I  ) 

fc72 

24  Oo 

ti'i  j 

87  4 

Oib 

8/6 

btt 

2460 

8TV 

240-j 

do  1 

862 

c - 

do  3 

884 

— 

886 

CS45 

860 

vssi 

&h  i 

CJis 

ikrd 

dijv 

OVU 

sv  i 

24v; 

UV2 

6  V  J 

tv  4 

Hv; 

V - 

8V0 

-50U 

«v? 

i, - 

C'.iJ 

SW 

cist 

2vU 

Ci-JS 

>1,  l 

VC  2 

VVC8 

>A7* 

VC' 6 

26UI 

VA/l'i 

VC  6 

V*CV 

%  " 

v  jc 

-ftAJ 

V  a  i 

US  S  i 

Ci 

vU 

V'S 

vt*> 

>  >  '« 

Co  via 

V  l  *5 

V  S  V 

^  *  »  * 

v<?  4? 

i*  W  *■ » 

V*  ? 

2,T7v, IH*> 

DO  3464  N-1,3 
VXSS<3,ti,HS)*=XOK(N) 

VXSSU.  I.MS><OS<THOZ(MS>*RPD>*CGS(PHOZ<«$>*ftPf>> 

VXSSU ,2.US)*COS(TXOZCUS >*RPn>*SIN(PKOZ(US>*RPD) 

VXSSt  I  .3’.J4S)*-SlN(THOZ(MS)*«PO) 

VXSS12.I.HS)— Sl?.*IPH02CMS)*ROD) 

VXSS  (2.2  .iCS)  *COS  (PHOZC6S  >«WPD) 

VXSS(2,  2.MSJ-U. 

CONTINUE 

MHfTE<6.2s»56) 

«N!n;(6.3«»S) 

s»KITE<0,3485) 

t-OI(ilAT(2H  *,T33. 'CURRENT  Nc!GHTS'.T79.  IH*./2H  *.T7.'MS',Tt8. 
2'rfEAL'.13l .' IMAC. ',T46.'UAG,'.T57s 'PHASE'. T79, IH*> 
»klTfc‘(6.3486) 

FOkMA7(2H  *,To,3{'-'),Tt7,A('-')  ,T3iJ.7('-').T4S.6( 

2166.  7('-')  .T'.V.IH*) 

UO  3406  NS* I, USX 

wy .«»  8 abs  (  cm plx  ( im <  >’S  > .  np  ( u  S )  n 
WPP«D?f!«DTAfi2<  wp  C4S  )  ,WK(  US  ) ) 

WWITE(  6.3466)  yS,rty{8S).NPC><S)  ,Kf<W.WPP 

FORM  AT  (2H  •.T6.I3.6X.E!  t  .4.2X.EI  1.4.4X.EII  .4.2X.FH.3.T7V.16*) 

CONTINUE 

WRITS(6.36«6) 

eo  to  liioo 

CONTINUE 

NS*  C UNHAND - 

INITIALIZE  SOURCE  DATA. 
lamp*. false. 

MS  X<*1* 

«HtTEt6.j4V! ) 

E0H»AT(2if  TEE  SOUHCS  DATA  IS  INITIALIZED.  '.T7V.IH*/ 

22N  •  ,6X. '  fto  SOURCES  ARE  PRESENTLY  Ik  TVE  PROBLEM.  ' 

2.77V.  U<»} 

CO  TO  Iv'iSJ 


CONTINUE 

L?«  cOtfUAKD - — 

U&m-UUfc  IP  LINE  Ptt(KTC&  OUTPUT  Or  DATA  {5  PSSlftgC 

as*U(6.«.1  i.KRETs 

I  f  < .  Not .  I  e  « { T  fc I  «« I T  E  (  s .  5 

i*0«WAT«UN  •.Ss.'UQ  LINE  PRINTER  OUTPUT '. T?V,  Wi 

im .kot.lhrite j  ee  to  3i«aa 

(MIT El 6,  25c ! ! 

FOaaAftZN  *,>£.'  SaTa  *fLL  RE  OUTPUT  «&>  LIN'S  PRINTER  III', 
i  7  TV, fH*S 
CO  TO  TciS* 

OiNT  I  SIM¬ 
PS*  »  CftVMAWO  -  **.  — ~ 

U»U*?*i7C  if-  PEN  JH.0TTI*  OUTPUT  1%  RE*S*8Ec> 

RfcASii,*}  LfLT 

e  p « . Net  .mu  *®itstc»  tom  - 

tgamUh  «,Si.'K3  pfes  -'sESiagfi' ,T  H-.iu*. 

Ir?.K0T.L?U5  ce  TO  iAWS* 

}f  L5CT*TBU?  i»E»y  IN 


I 
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(•-WrhiriSTfot  r  r TESaS  : 


ViJ.  CiSS 
V23  CS5S 
V2<  GSSi 
v23 


«AD!'45=hAi)n:s  of  polar  plot, 

IPLT=ICFIELD  PLOT),  2<POWER  PLOT).  3<DB.  PLOT) 


RAPIUS.JPLT 
i»w !  rt<6,  3602  ) 

Lctti  FORMAT (21!  •*‘>X ,'DATA  WILL  9E  OUTPUT  TO  PEN  PLOTTER  !!!' 
2.T7V, In*) 
i-.NlT£(o,30CO) 
flRlTEC  >.3601  ifJAOlUS, IPLT 

io/l  F0HVA.(2h  *,SX,'  RADIUS-", F6.2.5X, "IPLT-', 13, T79,IK*> 

Co  TO  3t:&) 

37C.J  CONTINUE 

C - GP*  COMMAfiO - - 

INFINITE  GHOUNO  PLANE  EFFECT  INCLUDED. 

iGftfifJa.TNUE. 

Do  3702  N*l,3 

XX <14.  I . N >  ~ I  .E5*{X'>iN)*YP<N))*TR(K) 

XXt  I4.2,»;)*l  .E5*<-XP<N)*YP(N)>*TR<N) 

XX  < U,3,N>*I .Eb*<-XP{N)-YPJN))*TR(N) 

XX  < I4,4,N)=I .ES*tXP(N)-YPCN))*Tft(N) 

•■«kiT£(o,370t ) 

hjMA'{I2H  *,5X  INFINITE  GBOUNO  PLANE  INSERTSO  IN'. 

I'  STRUCTURE  i ! !' ,T79, 1 H* > 
ftUTeC6,3a«rt) 

WUT£(a,3?U3>  <TPtN),N*t .3) 

3703  FORMAT (2H  *,SX,'THE  ORIGIN  IS  AT  '  ,F  »P  .O.'.'.F  12  .6 
2. '.'.rl2.fi,'  MeT£RS',T79,l**) 
t.R  IT  St  0,34)06) 

NR  I  TEC  0,374)4  )  (2!>t*i)  ,N*l  ,3) 

FORMAT (2H  *.*>X,'TH£  NORMAL.  IS  '.FI2.6, ', ' ,F 12.6. '.' 

2,F 12 .o.TTv, IF* ) 

CO  TO  3uiW 


-'To 


CONTINUE 
hC  *  — 


:7*t 


vo,  i  a  » 
CSS* 

Wc-J 

VO') 

vCC 

y 

v£a 

V*»V 
V  i  i’ 


>  n 

V  t  ^ 

Vt4 

v‘H 

v“t 

V  *K 

yiv 

v*  5 

V# « 

■*** 

Aifitf  - 


S>  — 

* 


INITIAL!  is  GfcOW.p  PLANE  OaTa. 

LOKNfi».?ALSe, 

M«!TF.,0,37SI  ! 

Fiji .,»/  CSOfXO  PLANE  DATA  IS  INITIALIZED.  '.TT9.IM*/ 
22“  » , *j X , •*  NO  --SoyNO  Pt-«i£  IS  PRESENTLY  IN  THE  P809U.M.  * 

2.. Tv. )F»I 

GO  7  2 

CO-NT  1‘COi 

*V»  c.a«MASS  — 

T«(s)*UN?:a»  TRANSLATION  of  COOSDIKaTSS  from  t»*E  FIXED 

CO&HUXATf  $  fcf { 5 CH  in  vWIOISaLLY  SET  W>  BY  OPERATOR, 

!fSAins,*l  <73.- S)  ,N«!  .3) 

*,«/  {NP-UT  data  O'tvLN  In  Tfaaj  <*?.?  ',2*J,T?V,  m*s 
5 1  s  ( * ,  3  ■ W !  5 « t  A?S  t  *  -f  .  I U  N I T  i .  i  •  «  .  ?  1 .  <  T  3  *  K  l ,  »•  t .  .T  ) 
f&ouzwt  *,TX,' TSANTLATI5N1  IS  WU^.FD.J, 

i'  lP<j  ]*'  T5«IM*'.i5i-2.Tf9.  !.«*) 

fts  3P2V  ?'« i .  3 
TPtji»*?s*s)*«»iys 
«£IT§5  } 

•  stsiTf  ?*,  taps  *tu$fU  s,  i tetri ,s*i .  31 

f  j-  i  ’  :.2r*  t .  vl .  S  f  5*^  t  *  £  ?  *x  ! 

-''5  Jit?-',  J2W  ! 
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vi-c  ciii  iM/:p.?‘f??-cfttrriTATiov  or  the  zp  axi  ,  belative  to  the 

vfiv  t.JSC  FIXED  CfORDIMATE  SYSTEM. 

•AC  01 IJ 

vvi  cus  n •  xp , p: ix p= oii i r?rt at 1 0? i  op  the  xp  axis  pflative  to  the 

W7  etc?  FIXED  Otf'IcDI J.aTF  SYSTEM. 

VV3  CiSl 

**><  Kf:  Ain  ,  •  )  TM2  P ,  PHZP  ,THX  ^ , PMXP 

A‘j  i’P<  !  )«SI  V(TH7P*fiPf)/*C05f  PHZP*PPn) 

Wt  ZP(ZJ=Sir(^fZP*«PC)*Et.,»(PHZP*SPp) 

vv7  7?(j)=cc*rn‘7P*3Pnj 

>»fe  xp f  i  >!  S!f»o:xp«npo)*cos(Pnxp*fjpo) 

V  V  V  XP  <  ?  J  «5 1  .V  C  Tfl  XP*P  Pf) )  *S  l  ?i  <  PH  XP  *R  PC ) 

iwui  xp(3)=ccsrn'XP«HP.O) 

uvi  c •  • ;  [MSHi'E  xp  is  PErPEfinrc’iLAP  to  zp 

I  Oil 2  nz :<-2P(  l )  *XP  ( l  WP<2>*XPC2  >»2P  te  >»XPC3 ) 

i.vz  !F(At:5(02X).rr;.?.i  >KRi7£(i.3«o2) 

IJV4  3vr*3  FOB« AT t *  *H  PPOaiAJf  APOSTS  Ift  ROTATE  SECTtOfI  IK  THAT  THE". 
!iV«;  C 0030 1  "ATFS  ABE  HOT  CRTHCCONAL  ! ! !  ***>  ) 

uv«  trtAns(nzx).fTr.;?.i  i  stop 

t..V,  X?fl)»XPf  f  J-ZPCI  )*OZX 

i .  vh  xp  ( z )  *xp  ( 2  )-z?  (.?  >*nz  x 

I IV,  POT“STf?T  ( POT ) 

li'lii  X?(3  )*XPt  J  )-2?'f3  )*OZX 

to;  5  1CT=XP(  I  )*XPtl  )*XP<2  )*XP  t‘2  )♦  XP  C 3  )*XP 1 3 ) 

131^  x?{  I  )»XPf  I  )/DOT 

1013  X?l2  >»XP  (2  )/POT 

10 1 4  x?< 3>»xr(3)/noT 

l.ri‘,  Y?(  I  l»2P«2)*XP(3)-ZP(3i*X;5t2  > 

10  to  Y?«2  !<=2Pf  3  )*XP<  I  }-2Pt  I  >*XPt J) 

1017  Y?(3la2PC I !«XP 12 1-2? *2 )*X?< t  ) 

10  I  a  WBITEtO.  3lX3 !  ’ 

l.uv  :>:■  FOW.ATfZ.“  •.SX.'TUc  fOLLOWfflG  ROTATIONS  *ag  USED  FOS  ALL", 
i.tzt  i'  I?:PUTS»',r7v,  ih*> 


1  J2  1 

Kfi  tTEt  .x,  JvVa) 

to:  3 

-tfi  :  r  r  (  ft  ,  3  -  32  )CX?<:;>,  .V*  !,  3) 

l  .’23 

:v3z 

Fo;  •‘.»Tf2.l‘  *,5  C.'Xpt  i 

<Pt2) »',Fia.5.' 

XPO  >*', 

ir  ii’.H.r.-.  :?•••> 

t  0.’*. 

;  t  ci , .  ; 

!  .  -  t. 

.  .e :  I'  f  1 1. , :  ^  3  J :  t  r»  < :  i  j ,  r « t .  3 1 

l  7 

,v  >3 

p-OiVArtZ1.  *.,A.'Y3(  1 

yp«  2. >-'.r  i  a  .5.' 

yp(3}«'. 

t. sFto.i.r,  >,,  ;:?»> 

1 02 v  .Ti {:?»«, ,  ,■  i 

i  „•  :•  w  fid  j  T  (  <  a  .  :•  v '  *  i  s  " p  f  •<  i ,  H  *  r .  2 » 

■  ojt  ,V3<  rO=  ti*7U>'  2PCi>*'„ 

U'3_*  tr  10.5,77'.,  fH«i 

!.'2X  '.*7  TO  X-,  *.  *7 

I;'i5  catTifs*.*? 

i.'jr,.  —  _i'i  C c«.H / ;r  - - 

.  .  .  .  .  ... 

«  ',.5  5  ox  <5fr»«T«»Y  TrSrUT 

t .  .  0  *  *  * 

3  040  tC  H  *  •  Vi.Cg  . 

;  04 1  V  1  i i 

fZ-5.’  CSSS  ***'-Azrc&  CP  ON  X  CYtJ’CES  AS{  5 

1. -.  vtis  5»*#.VI|VS  »  CU.IP’Sg  e*  Y  CYtiKRgR  AXIS 

i »4s  v-si  Tv7i.;».^-*3fosr  xtrA'In  cap's  2  c«s»po»®ht 

•  .-<*  *S5«  4.V  SnSFMTt  KJTil  iJfS  RC.  CHISFWft  *»{? 

i.4  :  ;  *. ;  ,*.o.  i  s*c>;v;w  f’O  Ca«"S  /  CflsWif’iT 

v!!»  tic;;  «ar-^r  «  #;{»  ski  ae$.  cni«9t*  MIS 

‘  ^  ^  "'..•NX- 

»  v  ^  .  ♦  3  *  A  , 

3  5  s4  *r S <1.  * ♦  i  5!>, 

? *rs ;  tic*  y.t 

2, ^;  -  \  v  i.- 
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r.)5<  zono-zcn 

IUB‘j  2CP0-ZCP 

!2S6  /a=AA*UMT5 

iuti  r.B=!irt*iifiirs 

IDS.*!  ZCN«/CN*UMITS 

I  .:‘jv  ZCPaZCP*UN  ITS 

I  .560  W.  IT!:  ( 6 , 63  1 2 )  <  LAPEL!  J  ,  I  UN  IT) ,  J  - 1  ,2  ) ,  AAO 

t.f.;  031.)  FORMAT! 2H  *,5X,'X  AXIS  DIMENSION  IN  ', 

I.C2  22A3.  3.  T7V.  I  H» ) 

1263  MlilTRrt,  3HH6) 

lwr7E(o.o3  12!  (LABfcLU.I  ).J»I,2),AA 

i  ,:<•'!  t>k  I Tc ( o ,  jiivJo ) 

1260  SHJ7c(O,3C0O) 

1207  .'■«  I  7E( 6, 6320 )( LABEL! J,  IUNI T)  .3*1,2),  BI30 

1.56b  1 322  FQMtAT^H  *,5X.'Y  AXIS  DIMENSION  IN  ', 

I2CV  72A3 , *b+ ,73 .  3  ,T7V, 1 H*) 

i  0 1  it)  tiKITEf  0,-t)i)O ) 

1.371  ttXITF(&,632v3)  (LABEL! J.  I ) .  J*  1 ,2)  ,9i) 

1272  WIllTECe.  30{io) 

1.37  j  l<fitTS(4.3026) 

J  .374  W?I7F(o,o332)(  LABEL!  J.  IUNIT)  -J»l  ,2),ZCN0 

tu’7S  eC3o  FOMIATIZU  *,  5X , 'MOST  NEOATI VE  END  CAP  Z  COMPONENT  IN  * , 

I 27  o  22A3,'*',FB.3,T7P.IN*) 

1277  WhITE(o,3ili«0) 

U78  Kkl  Tc! o,o33»))  <  LABEL!  J ,  I  )  ,J«  1,2)  ,ZCN 

lOTv  .IH;  IF  (0,3006) 

!  26-0  hk  I7H(  ft,634(t)  THTN 

I2UI  o34j  rO),aAT(2M  *,5X, 'ANCLE  OF  N EC.  END  CAP  SURFACE  WITH  NEC.-', 
1082  2'  CYL.  AXIS  ', '"',F9. 3,77V, iH*) 

I  2a 3  I TE(o,  324)6) 

1204  KHI7FtA,3026) 

I  20  S  AwlTj  (<j,o3SU)(  LABEL!  J.IUNIT)  ,J-l  ,2>,ZCP0 

Ulya  &3S0  fOS.UATCZif  •.SX.-'MOST  POSITIVE  END  CAP  Z  COMPONENT  IN  ', 

i  oa  7  22a3  ,  ,F8.3 ,T7v,  I  »*») 

lOfco  A«nc'tO,32i’d) 

lIMv  .in  ITF(o,o3S0>  !  LABEL  (J,  I  ).J*l,2)  ,ZCP 

f  2v2  A fi I  Tr CO,  3226) 

12V  I  Am  I  TV (6. 6.3 62)  THTP 

I2V2  C.302  i-'0f.y»:(2>r  *,SX, 'ANCLE'  Or  PCS.  END  CAP  SURFACE  MI  TH  PCS.'. 

UV_  2'  CYL.  AXIS  FH.  3,  T7v,  IN-*) 

)2vm  2R ITc: 0.3226) 

12V';  DO  a3T0  ,  3 

!  2vo  XXC0(K>=73:NI 

I2v7  iCL(.'.»*>P!N) 

I2v.i  v:L!5:>*>P(N) 

i 2vv  t-72  Zclt.'.)«>£PC!i> 

tiw  <:3  To  3ivNJ 

1)21  C - - 

3 1 22  VW  CONTItKfE 

I  t  2.  C - NC«  COMMAND  — - 

I  tv  4  .  3  IS 

!  Iv"i  C5S!  INITIALIZE  TYLINUc a  data. 

I  U  5  Ciii 

lit)  LCYl*.  FALSE. 

,  ;,?•*  m&ITE :?  ,*2^t 1 


t  1  <?v 

1  !  !  4! 
till 

S  V  i  i 

F«fci»»Tt2J*  »,YI.'  tYLINDSB  DATA  is  lK«7iAUlS*».  '.TTo.iH*/ 
v3«i  m  CVL-titTeR  IS  p-LSEnTLy  In  T?-e  »SU*.  ' 

.  t  “v ,  s?-”*  t 

«3  Itiw 

lit,? 

Vf- - 

- * 

1  5 ' 4 

W; 

cos:  i  -juf: 

5 

5  3  5  5; 

u — 

t;.«  cCip  an;;  — - — 

:  ?  t 

j  j  ■  ) 

1  S  ii 

/  i  L  * 

i  -  ?  V 

V  *  *  - 

*6 : ;  i ;  5 . 3  22c  3 
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2.  Input  Conversion  Section 

This  section  converts  the  input  data  into  a  preferred  form  for 
computational  purposes.  This  involves  converting  angles  in  degrees 
to  units  of  radians,  linear  dimensions  into  wavelengths,  and  performing 
the  reference  coordinate  system  (RCS)  transformation  if  needed.  The 
RCS  transformation  is  done. if  a  cylinder  is  present  and  its  axis  does 
not  line  up  with  the  basic  coordinate  systeit  used  to  define  the  input 
geometry. 


!  147  C!  !! 
iUb  C!  ! ! 

I  14V  C I  !  i 
I  IbU  C)  ! ! 

!  i  b  1  C !  ! ! 

1  Ib2 
i  lb3 
l!b»  i 
i  Ibb 
1  1  bo 
Mb'/ 

I  lbfc 
I  IbV 
i  1  CD 
I  1  0  I 

I  I  c2  SI  01 

I I  c3 
I  I  6* 

1  I  Ob 

I  I  00 
I  I  o'/ 
i  ioy 
l  lov 
I  I/O 

1 17 : 

I  172  blO-j 
1172  b 1 Oo 

I  174  C*  !! 

II  7b 
I  170 
1177  t 
I  178 

I  17  V 
I  loo 
lib! 

I  182 
I  IbS 
I  lb* 

I  Ibb 

I  Ibo  C!  !! 

I  187 
I  I  bb 
I  IbV 

I  I  VO  tll\) 
I  I V i  t!  !! 

I  IV2 
I  I V  J 
I  I  V4 
I  IVb 
I  I  VO 

I  IV7 
I  IVb 
I  IW 
I2t0 
120  1 
12.12 
I  2l.  o 
1 2o'*  * 

1 2o b  US! 
I  20o 
I  2b  7 
I  2bb 
I  2i- v 
1 2  I  6 


2.  I NPIJT  CONVERSION  SECTION 

NuH.bAI.I2E  GEOMETRY  UNITS  (IN  TERMS  OF  WAVELEN(JTUS)  AMD 
PthrOKH  HCS  TRANSFORMATION  (TO  CYL  COORD  SYS)  IF  NEEDED 

SET  E  FI  ELDS  TO  ZERO 
DO  1  1=1,361 
ETHTv i )=(0. ,o.  > 

EPHTCI )=(0.,fc.) 

FACT  OR  =-  I , 

BPL=v). 

3LR=BPL*KPD 

LNROT=.THUE. 

UO  5 1  (J  I  N=  I  ,  3 
XPC(N)=XP')(N) 

YPC(  N)=]  PD(.b ) 

ZPC(K)=ZPi)(r) 

IM.ii07.LCYL)  CO  TO  4 
LkFC=.FALSE. 

Ir(.NOT.LPLA)  CO  TO  5106 
DC  5i«)b  MP=I 
LHFI (MP)=. FALSE. 

LRFSC-'P  )=.  false. 

■.'cX=Vb~(.'.'P) 

DO  510b  '.'.c=  1 ,1‘EX 
LDRC  .VE  )  =  . FALSE. 

lHDC(MP,,‘.'E>=.  FALSE. 

CONTINUE 

DETEWTf  E  IF  HCS  TRANSFORMATION  IS  NEEDED 

DO  b  M= I  ,3 

XCG<  M)  =  >.XCG(  f  )/l‘.L 

xwx  ?:)={;. 

LNie’J  r=.i  RUE. 

AXCL=AbS  ( XCL  ( I )~  I . ) 

AYCL=A2S(YCL  (2  )- 1 .  ) 

AZCL=A!>S  ( ZCL  ( 3 )- 1 ,  ) 

XCOA  =S01.7  ( XCC(  ! )  *XCO ( I  )+XCO(  2 )  *XCO (2  )+  XCO(  3 )  *XCO <  3  ) ) 

IF  (AXCL.GY.  1  ,E— 5.CR.AYCL.0T.  I.E-b)  Li::«OT=. FALSE. 

I F  ( A  ZCL .  CT .  I  .  K-5  .OR .  XCO.’I.CT  .I.E-b)  LI!!«OT=.  FALSE. 

Ir(LNHOl)  GO  TO  51  00 

REFER  PATTERN  AXES  TO  CYL.  AXES. 

CALL  ROTHANt XPC.XPD.XuO) 

C A LL  KOi'RA N (  ) PC ,  YP D ,  XCO ) 

CALL  ROTRAN(  ZPC,  ZPD,  XCO) 

CONTINUE 

normalize  cylinder  coordinates 

A=  AA/iV'L 

o=BB/l’L 

ZC< I  )=ZCP/WL 

2C(2)=ZCN/1M. 

thtpr=tht?*kpd 

SNCC  1  )=SlN(ThTPR) 

CNC(  1  )=COS(TI-TPR  ) 

CTC( I )=CMC( I )/SNC( I ) 

THTNR=TETN*RP!) 

SNC ( 2 )  =S  I N (Ti-TNR  ) 

CNC(2)=C0S(T!:TN;() 

CTC(2)=CMC(2)/S.IC(2) 

C0N7  I NUE 

NORMAL  1 2 1-  PL  Ail;  COOi.'PI  KATES 
1 F ( .  NOT.  L." LA  )  GO  TO  0 

ro  v  jp=i ,".f>;r 

A'FX=.‘  r PO  P) 
do  v  •'.:•=  i 
DO  V  !!=  i  ,3 


l 


i 


I 
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mu***  yru^-ia  *•- 


i«jii  s  xt.Mi', ,\it, i')=>>( 

12  i !Hbn(M )  (jo  to  wtry 
i2i~  do  win  np=i  ,mpxr 

12  14  KLX=..,i;'PU'P  ) 

12  lb  DO  b2  1 0  l.£=l,MtX 

1210  DO  t>22«  U=l,; 

1217  b220  XXX  ( il )  =X  ( v  P ,  Vt: , K ) 

12  lb  C ! ! !  REFER  PLATE  CCOKi).  TO  CYL.  COORD  SYS 
121V  CALL  h'OTRAtT  XXX,  XX)j,  XCO) 

1220  DO  ‘j250  N=  1 ,  L 

1 22  I  i-2  SO  X  ( MP fc ,  H )  =X  >X  (N) 

1222  L2I0  CONTINUE 
1 22 j  b2 (X)  CONTINUE 
1224  c  CONTINUE 
122b  C! !! 
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122  6 

o!  !) 

22  ■/ 

0!  !! 

1226 

0!  ! ! 

22  v 

23  Irt 

0!  !! 

25  1 

Oil! 

252 

Oil! 

25. 

254 

7 

23  5 

25o 

23  7 

256 

5507 

25  V 

240 

C!  !! 

24  1 

242 

0!  ! ! 

245 

244 

2'.5 

55o'j 

24C 
24  7 

24fc 

53  04 

24V 

55 

251 

1 

252 

C !  ! ! 

^55 

254 

255 

<i50 

5505 

‘257 

25). 

52 

25V 

2c. 

Oi  ! ! 

tO  ! 

55  C 1 

2c2 

2o5 

20- 

2o5 

5502 

2oc 

C!  ! ! 

2o7 

2ob 

2cV 

27 

o!  ! ! 

27  1 

o!  !! 

272 

0!  !! 

27  5 

0!  ! ! 

274 

0!  !! 

2/5 

O'  ! ! 

27  o 

C!  ! ! 

277 

27  a 

27  V 

•  1 

26 1 

2h  1 

“2 

2t2 

2a4 
265 
2  So 

.a  7 

2t  c 

26  V 

2  Vi- 

i  1  • 

24  1 

3.  "A  I/:  C  0*1  PU  TAT  I  or:  SECTION 
LOOP  THRU  VAPIOIJS  SOURCES 

do  i?oo  ps=i,?isx 

SPECIFY  SOURCE  OEOPETRY 

PERFORM  NORMAL  1 1  AT  I  OK  A?.'0  TR  ANSFCRf'ATI  CM  Or 

SOURCE  COORDINATES 

DO  /  N= I ,3 

XS(N)=XiS(f*S,N)/WL 

IM-HS(.‘.'S) 

DC  55w7  NJ= I , J 
DO  5307  f'l  =1  ,3 

VXS(  NI  , !! J )  =VXSS( MI  ,MJ,MS)  ! 

IKLNWOT)  GC  TO  53  CO 

RErER  SOURCE  LOCATION  TO  CYL.  CCCRt)  SYS 
call  R07r.'A::<xs,xs,xeo> 

REFER  SOURCE  COORD  SYS  AXES  TO  CYL.  COORD  SYS 
DO  53--4  NI = I ,3 
CO'  5303  NJ=I,3 

xxx(;:J)=vxss(i.'i,NJ,;:s) 

CALL  PUTNAM  >XX.  XXX, XCC) 

DO  5304  t!J=l,3 
VXSCNI  ,i’jJ )  =  XXX (NJ) 
corn  k;ul 

I r (LAPP)  00  TO  530  I 

ir (rinsT.NF.n  go  to  5305 

SPEC Ir Y  SOURCE  DIMENSIONS 
HAi'.*!:A>.X  < .V. i- )  ; 

ii=Hsns)  1 

CO  TO  55(  6  i 

HAR=ilARS(.V.S)/l.L  | 

H=HS(.«S)/.JL 

w;  =.;•,(  •;s)*CEXP(CJ*NP(MS)*trPD) 

CO  TO  5302 

SPECIFY  SOURCE  D I  NEK  SI  ON  S  FOP  NEC  iNPUT 
H=H$(J  S5/NL 

E.Ah*o.  i 

t. :  =c  l>.  (  r.p  <  ns  ) .  op  <  .vs ) )  . 

IrCH.Ll.2. IS)  f.I»J.5*PI*i"I 
CONTINUE 

Ctrl...;  VARIOUS  GEOMETRY  PRCPERTI ES  OF  STRUCTURE 

IFTLPLA;  CALL  CEO,'!  j 

IP(LCYL)  CALL  CEO"C  ; 

Ir <LPLA.AND.LCYD  CALL  GEUVPC 

NOTE «  AT  THIS  POItTT  THE  RCS  TRANSFORMATION  (TO  CYLINDER 
COORDINATES  >  IS  COMPLETE.  THE  CYLINDER  COORD  SYS 

AND  RCS  ARE  NON  THE  SANE  A.*'D  LIU.  BE  REFERS  EC  TO 
AS  THE  RCS  (REFERENCE  COORD' SYS) 

INITIALIZE  ARRAYS  USED  TO  DEFINE  DOUBLE  DIFFRACTION  SECTORS. 
CO  41  1=) , MEDX 
DO  4|  J-  I  ,  ,VPI)X 
ID( J , I )*-1 
DO  42  1=1, 3o I 

I DPI  I  )  =>.  1 

I  ] 

XE  =3  ■  .  . 

IF(LSCR)  00  TO  I  148 
I F < .NOT . LC YL )  CO  TO  1148 
IFiLPLA)  CO  TO  ! I4v 

,\==2 

CO  TO  I  MV  1 

i2=  I  | 

a  E  =  1  f 


I2V2  1 1 4y 

CONTINUE 

1 2V3  C! ! ! 

LOOP  THRU  NAJOH  0T!>  GROUPS 

I2V4  C! ! ! 

.<=1  PLATE  fields 

I2V5  Cl ! ! 

><=2  CYLINDER  FIB. PS 

12Vo  CJ  M 

.0=3  PLATE  CYLINDER  INTERACTION  FIELDS 

I2V7 

DO  I  ISO  i(=Kb,KE 

I2V8 

1 2V  V 

JE»JTX(K) 

1 3fc0 

IF(LSOR)  GO  TO  1  1*31 

1301 

l  F  ( .  NOT.  LPLA  .AND . .  [107  . LC YL )  GO  TO  1151 

1302 

IMMPX.NE.0)  GO  TO  1  152 

1303 

IFU.E0.2)  GO  TO  1 152 

1  >}(.  ** 

IFUB.6T.2)  Go  TO  1150 

130b 

JE=2 

1306 

GO  TO  1152 

1307  1 1 b 1 

JB-1 

1 3ko 

Jk=  1 

1  30v  1 1  b2 

CONTINUE 

1310 

IF(JH.iC.O)  GO  TO  1150 

I  3  i  1 

IFUE.L7.Jb)  GO  TO  1150 

1312  L!!! 

LOOP  THI.U  INDIVIDUAL  GTD  FIELDS. 

1313 

DO  1  HU  J*JP,JE 

1314  C!  !! 

LOOP  THRU  PATTERN  ANGLE 

131  b 

IF(LCNPAl)  THP=>TPPD 

1  ->  1  6 

:up»iu+i 

1317 

;ep=ie*i 

1318 

I F  (  Li JE  DUG.  Oh  . LTE  ST )  I  EP=  I B+ 1 

1  3 1  V 

DO  1 1  CO  I I =1 EP, I EP, I S 

!  320  CJ  !! 

CALCULATE  P/7TERN  ANGLES  IN  PATTERN  CUT  COORD  SYS. 

132  1 

1*11-1 

1 3*2 

PHP=  I 

1323 

I F  <  LCNPA'i )  GO  TO  1  102 

1324 

I H < I . GT . 180)  GO  TO  1 101 

1 32  b 

PHP=TPPD 

1  32  0 

7HP=I 

1327 

GO  TO  1 102 

132b  II Hi 

PHP=TPPL+I 80. 

132  V 

IF(PI;?.Oc.:oh.  )  PHP*PHP-36C. 

1  330 

THP»3oO-I 

1331  1 1 G2 

THPrt=THP*RPD 

1  332 

PHPrt=PHP*RPC 

1333  C ! ! ! 

CONVERT  PATiERII  ANGLES  TO  REF.  CCQRD.  SYS. 

1  334 

CALL  PA1R07OHSR  ,PHSk,TM?R,PHPR,  ALft) 

1  j3b 

S»HS»SIN( iNSk) 

l  J3  0 

cn;s=cosnHSR) 

1  •}»  1 

SPSaSI.N(PHSR) 

1  33b 

CPS»COS(PHSR) 

1  33  V 

A5=PI-Tl:Shi 

1340 

SASCSI  ii ( AS  ) 

134  1 

SASP=AIIS(SIN(AS-0.5*PI  )) 

1342 

CAS=COS< AS) 

1343  C! !! 

DEFINE  OBSERVATION  DIRECTION  AND  THETA, PHI  UNIT  VCCTOt.S. 

1  344 

D(  1  )=5THS*CPS 

1  3*.b 

P(2)«*STHS*SPS 

1  340 

D(3)=CTHN 

1  34  7 

UT( 1 )*C7HS*CFS 

1  3<<o 

L)T<2  )=C7HS*SPS 

134  V 

DT(3)«- STHS 

1  Jbk) 

DP  (  1  )— SPS 

1  Jb  1 

DP (2 )=CPS 

1  .-52 

elT=<0.  ,(*.  ) 

1  3  b  3 

EPH-U.,0.  > 

l.-b-  C!  !1 

BRANCH  TO  APPROPRIATE  GTD  SECTION  RASED  ON  V»LI'ES  Or  J  AND  K 

1  3bb 

CO  30  (  1  1  It.,  1 123,1  130)  ,R 

1 3b0  i  i 13 

CONTI. NUb 

1  bb7 

GO  TO  (  100,200, 31X,t6P0f7..V,8U{i,yt'D),  J 
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lobb 
I3b9 
I  300 
I  JO  1 

I  3o2 
I3o  j 
I  jo*. 
136b 
I3oo 
136'/ 
!  308 
1309 
1370 
137  1 
1372 
137  3 
1374 
137  b 
1370 

1377 

1 378 
137  9 
1300 
13b  I 
1 3b2 
I3b3 
13b* 
1 3bb 
1 3bo 
1 3b  7 
13fcb 
1 3b9 
1390 

139  1 
1392 
1  39  3 
1394 
1 39b 

1396 

1397 
139b 

1399 

1400 

140  1 
I  402 
1403 
I  404 
I  40b 
1  400 

1407 

1408 
I  40  V 
1410 
14  1  I 
1412 

141  j 
1414 
I4lb 
14  10 
14  17 

1418 

1419 
I  42.’ 

I  >2  l 
I  4, 

I  44  4 


•100  CONTI  NUfc 

Cl  I!  COMPUTE  THE  DIRECT  FIELD  FROM  THE  SOURCE. 

CALL  INCFLDl EITH,EIPH,LSOR) 

ETH»tITh 

EPH-EIPH 

IF(LOUT)  CALL  PHIOUT<100,0,0,0.EITH,EIPH5 
GO  TO  1 000 
200  CONTINUE 

Clll  COMPUTE  ALL  POSSIBLE  SINGLY  REFLECTED  FIELDS  FROM  PLATES. 
DO  25  MP« I ,MPXR 

Clll  IF  SLOT  ON  PLATE .THEN  NO  REFL.  FIELD. 

IF(L.SURFtMP) )  GO  TO  25 

Clll  IF  PLATE  SHADOWED, THEN  NO  REFL.  FIELD. 

IFCLSHU(MPJ)  GO  TO  25 
CALL  REFPLAt FRPTH.ERPPH.MP) 

ETH=t?rHfERPTF 

EPH=EPH-*-ERPPH 

IF (LOUT)  CALL  PRIOUT(2M0,MP,0,P,ERPTH,ERPPH) 

2b  CONTINUE 

GO  TO  1000 
3O0  CONTINUE 

cm  COMPUTE  ALL  POSSIBLE  DOURLY  REFLECTED  FIELDS. 

DO  31  MP=I ,  MPXH 

C!!!  IF  SLOT  CM  PLATS, THEN  MO  REFUREFL  FIELD. 

I  F’(  LSURF  ( MP ) )  CO  TO  31 

cm  IF  PLATE  #MP  IS  SHADOW  ED, THEN  NO  REFL.  FIELD 
It-  (LSHD(ttP))  GO  TO  31 
DO  30  MPP= I ,MPXR 
IF  (MPP.EQ.MF)  GO  TO  30 
IF(LIHD(MP,MPP))GO  TC  30 
CALL  HPLRPL(ERHPT,EHRPP,MP.MPP> 

ETH=ETH+ERRPT 

EPH*EPH+ERRPP 

IF  (LOUT)  CALL  PR  IOUT (300,'4P,?.,PP',G.ERRPT,EfiRPP) 

30  CONTINUE 

31  CONTINUE 
GO  TO  11/00 

oC0  CONTINUE 

CM!  COMPUTE  ALL  POSSIBLE  SINGLY  DIFFRACTED  FIELDS  INCLUDE 
CM!  A  CORNER  DIFFRACTION  TERM  IF  DESIRED  BY  INPUT  DATA. 

DO  61  MP= I ,MPX 

CIS!  IF  PLATE  SHADOWED, THEN  NO  DIFF.  FIELD. 

IF(LSHD(MP))  GO  TO  61 
MEX-MEP(MP) 

DO  6«  ME* I ,MEX 
FN°FHP(MP,ME) 

CM!  IF  WEDGE  ANGLE  INDICATOR  (FNXP.THEN  HAVE  COMMON  EPOE  CN 
cm  OTHEW  PLATE  COMPUTE  DIFF.  FIELD. 

IF(FN.L7.0.)  GO  TO  60 

CALL  QIFPLT(EDPTH,EDPPH.EDPCTH,EDPCPH,FN,ME,MP) 

ETH-ETH*EUP7'h+E()PCTH 

EPH»EPH4tDPPF>EDPCPH 

IF  (LOUT)  CALL  PRIOUT(6W,MP,ME,0,EDP7H,EDPPH) 

IF  (LOUT)  CALL  PRIOUT(6b0,MP,ME,C,EDPCTH,EDPCPH> 

C0  CONTINUE 
ol  CONTINUE 

GO  TO  UTW 
700  CONTINUE 

Cll!  LOOP  THRU  THE  VARIOUS  REFLECTED/DIFFRACTED  FIELDS. 

U!1  INCLUDE  CORN  Ex  TERM  IF  DESIRED  BY  INPUT  DATA. 

DO  72  Mx*l ,MPXR 

cm  If  SLOT  CN  PLATE, THEN  NO  REFiyDIFF  FIELD. 

If (LSURF (MR))  GO  TO  72 

c  i  ! !  Ir  Pl.ATL  IS  SHADOWED, THEN  HO  REFL.  FIELD 
It-  <l.S:*P(MK)>  GO  TO  72 
.  0  7  I  «F«I  ,MPX 


72 


'>2*-  Ir  fcC.Jfj)  CO  TO  '/I 

42  b  IFILHItHMW.KP)  )GO  TO  71 

MbXa.'.-IM  !■  P ) 

*27  00  7 it  V,L=  I  ,."fcX 

42 M  FN=FWP(  /.  p,  ,'1t  ) 

42V  U!!  Ir  Hl<«  THEN  HAVK  CO  AM  Oil  EDGE  ON 
4.0  C!  !  1  OTItLK  PLATE  COMPUTE  I  IFF.  FIELD. 

431  IFIFN.LT.U.)  GO  TO  70 

422  CALL  RPLDPLC  OR  PDT ,  Eli  POP  t  ER  PPCT ,  ERPDC  P,  FK  .'!P ,  MR ) 

422  ETH=  ETH+ER  PDT+  Ek  PUCT 

424  EPH^EPH+ERPf  ''♦b'RPDCP 

42 b  I  F < LOUT )  CAL;  PR10UT(70() , MR. 'IP , MO, ERPOT, ERPDP) 

42o  IF  (LOUT)  CALL  PRI 0UT(75U,MK .‘IP.ME.ERPDCT.EPPDCP) 

4«  i  ,0  CONT  I ,'IUfc 

43a  7!  CONTINUE 

42 V  72  CONTINUE 

440  GO  TO  low) 

441  too*  CONTINUE 

4-.2  C!  !  I  CONFUTE  THE  VARIOUS  Cl FFRACTEO/REFI.ECTEP  FIELDS. 

442  C •  i  ■  INCLUDE  CORNER  TERN  IF  DESIRED  BY  INPUT  DATA. 

A44  DO  d2  WP=I,/1PX 

44 b  C!!!  IF  PLATE  IS  SHADOWED, THEM  NO  DIFF/ftEFL  FIELD. 

44o  IF(LSHDCi'P))  GO  TO  02 

44  7  ,lLX=VeP(,Vp) 

«‘b  1)0  di  Kfc»l,(iEX 

44  V  FN=F;:PC/Pf.’1fc) 

*bb  I  r  (rN.LT  .0. )  Co  TO  HI 

4b  1  DO  UJ  ;•!!>=  I  ,.’!PXk 

4b2  IF(Mu.bC.AP)  GO  TO  SO 

4bo  IF(LIHD(.’‘P,NK)  )G0  TO  do 

404  CALL  UPLNPL(  ci.'RPV,  EDkrP,  EDCH P7 ,  F.iCk  PP.  FN  .V  E  ,  MP ,  N  K ) 

4‘j’j  ETF.="TF>EURPT*b;)Ci-.PT 

4bo  EPH=bPH*EDR;>P*EDCKPP 

4b  7  I  r  (LOUT )  CALL  PR  I  OUT  (UiV , 2P, R,  SDHPT,  EDRPP) 

4bL  Ir  (LOUT)  CALL  PHI  OUT  (MSC.MP.ME.V.K.E'CnPT.ErCPPP) 

4b  v  u  con  :;.ub 

*0C  Li  con  INNS 

4o  1  t2  COt.TINUF 

4c2  GO  TO  uru 

4o_  VV.0  CONT  [NUc 

404  US!  CHEC.x  TV  SEE  IF  DOUBLE  DIFFRACTIONS  OCCUR. 

4 co  o!!!  IF  SO.  INDICATE  IN  OUTPUT  FILE. 

400  !i-  ( I  .?D<  1 1 )  .GC.<’)00  TO  VII 

4o7  ,Mb=~I!.‘D(  1 1  )/4»nl 

•'•ob  «pa-lD»<  II  )/2U-)'E*2t.’ 

-iov  VPP—N  D(  1 1  )-VE*4.->t'-VP*2  i 

M  Ir  (LGRNl  . AM>.  U’P .CE.C.PXn !  00  TO  VII 

47  I  IrC.Pp.cG.o)  GO  TO  VI2 

472  i'-h IT  r  ( rt ,  V I  3  >  I  .MP.ME,)  P? 

47.  v  I  2  rOUL  A»'(  *  DCOTLF  nI  rr  ft  ACT  I  UN  AT  ANGLE-  ',13.'  FRO"  PLATE* 
474  2.1.’,'  EDGE*  M2.'  IS  SHADOWED  BY  PLATE*  ',!?> 

47b  GO  TO  vli 

47  y  V  I  2  ..kUEto.VU)  1. MP.ME 

*77  Vic  rOii~AT('  DOUDLE  1)1  rr  PACT  I  Jf  AT  ASCI  T—  ',13.'  FRO?*  PLATE* 
47d  2.12.'  EDGE  *  ',12.'  IS  SHADOWED  BY  THE  CYLl'DHR') 

47 v  vl  I  CONTIM.it 

•too  GC  TO  >k.wi 

4s  I  112  2  CON,  I  Due 

4dt  G-0  iu  I  I,*. I  .ly'.S.Vl.J 

.;«j  n  i  CUNT  Kill  b 

••to*  CM!  COMPOTE  DIiitCT  FIELD  FftC*  SOURCE 

•Rib  I »- 1 LPt.  A )  GC  TO  12 

4»>b  CALI.  I’.'CFLLt  EITH.EIPH.LSOn  3 

•*  to  7  2,n»c(TI 

•■It)  fPH»ri?H 

4Kc  irli.  0.< )  (,C  TO  I  DC;  l 
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i4Vo  12  continue 

HS.I  C !  !  !  COMPUTE  SCATTERED  hi  ELD  FrtCM  CV!  IN'DEP 
CALL  SCTCYL(  ESTH  ,ESPH, EHTH,  ERPH) 

I4v5  ETH=ETH+ESTH 

I4V4  EPINEPH+ESPK 

I  *V5  IF  ( .  LOT.  LOUT  )  GO  TO  IOOG 

I4VO  CALL  PRIOUT(  I  C.O.EITM.EIPH) 

14V  7  CALL  PHI  OCT  <  I2'.),t>,'.-,0,ERTH,ERPH) 

!4Vt  CALL  PMC'-T  ' UO, 0,G,0, ESTH, ESP>J) 

1 4  VV  GO  TO  U.O'U 

IbfcD  It >0  CONTINUE 

Ibwi  c!!!  COMPUTE  ALL  POSSIBLe  REFLECTED  FIELDS  FliOM  Em  CAPS 
lbW2  DO  lb  MC=1 ,2 

151.5  C!!!  ! F  ANTENNA  IS  OH  EJIDCAP  NO  REFLECTED  FIELD  FNOM  Elin  CAP 

1 504  IF(L5HFC(MC) )  GO  TO  15 

1505  CALL  NEFCAPC  ERCAT,  ERCAP,  MC ) 

I  bt,C  ETH= ETH+cRCAT 

I  5G7  EPINEPH+EHCAP 

15Gb  IF (LOUT)  CALL  PH  I  OUT  <150,  1C,  D, 0, ERCAT. ERCAP ) 

IbkiV  lb  CONTINUE 

lb  ID  GO  TO  IIDW 

lb  II  Let)  CONTINUE 

1  b  1 2  CM!  COMPUTE  ALL  POSSIBLE  DIFFRACTED  FIELDS  FROM  END  CAPS 
I  si  5  DO  50  MC  =  I  ,2 

I  b  I  4  CALL  ENDIFCEOC‘TH,EDCPH,"C) 

I  bib  ETH=£TU+EUCTH 

Iblo  EPINEPH+EDCPH 

I  b  1  7  IF(LCUT)  CALL  Pri  IOUT (500  ,MC,0,O,  EDCTH,  EDCPH) 

I  bib  Hi  CONTINUE 
lb  IV  CO  TO  I CCO 

I 52c  1 1  SO  CONTINUE 

I  b2  I  CO  TO  (250,4 CO .940 ,950 ) , J  • 

Ib22  250  CONTINUE 

1525  CM!  COMPUTE  ALL  POSSIBLE  FIELDS  DEFLECTED  FROM  THE  PLATES  THEN 
I  b24  CM!  SCATTERED  FROM  THE  CYLINDER  . 

Ib2b  DO  2 V  MPa I ,  MPXR 

1520  CM!  IF  ANTENNA  IS  OH  PLATE,  THEM  NO  REFLECTED  FIELD 
1 52  T  I  h  ( L SURF  (..IP ) )  CO  TO  2V 

152c  CM!  IF  PLATE  SHADOWED,  THEM  NO  REFLECTED  FIELD 
I b2 v  I r (L5HD( HP  ) )  GO  TO  29 

lo5c  CALL  HPLSCL(  Erf  PST,  ErPSP,  EHPCT,  ERPCP,  .VP  ) 

l 55  I  ETH*2rH+ERPST 

1552  EPH=EPH+ERPSP  * 

I b55  Ih(. NOT. LOOT)  GO  TO  2V 

I  b54  CALL  PRICUT(24(3,MP, 0,0, ERPCT, ERPCP) 

I  b5b  CALL  PRI CUT(250,MP  ,0  ,0,FHPST ,  ERPSP  ) 

I  b5o  2V  CONTirillfc  ! 

1557  CO  TO  It  00 

155b  *.00  CONTINUE  ! 

I  bjv  CM!  COMPUTE  ALL  POSSIBLE  FIELDS  SCATTERED  FROM  THE  CYLINDER  THEN 
I  54 c  CM!  REFLECTED  FROM  THE  PLATES  j 

.1541  DO  4.)  MP* I  ,M?XR  I 

1542  CALL  SCLkPL<EHSPT,ERSPP,ERCPT,ERCPP,NP) 

1545  ETH=LTII>ERSPT  [ 

1544  EPH»F.PH+ERSPP  ! 

15*5  IE (.NOT. LOUT)  CO  TO  40  ! 

1540  CALL  PRI0UT(4|O,MP,t1,V),ERCPT,EHCPP) 

i 5*7  CALL  PHICUY( 42<V"P,O.0,ERSPT,EKSPP) 

I 54o  *w  CONTINUE 

154  V  GO  ill  HOC 

I  55 C  V*0  CONTI  HUE 

155  1  CM!  COMPUTE  ALL  POSSIBLE  FIELDS  REFLECTED  FROM  THE  CYLINDER  THEN 
1552  CM!  UI  FERACYK’.)  FROM  THE  PLATES 

1555  DO  vl  MR- 1  , '.IPX  i 

1554  lM!  IF  PEA  ft:  SHAWLED,  THEN  HO  DIFFRACTED  FIELD 

155  5  I r  (LSI ID (  .IP  ))  GO  TO  91 


VPO 

55 
55  fc 

•Jb  V 
bOl 6 

bo  I 

bCl2 

bOo 

bo4 

•jc‘j 

oco 

bo7 

boe 

•jcv 
b7G 
57  I 
b7  2 

*J  l  w 
://  * 
i>  /  L> 
t)*i  O 
t/i7 
•j7« 
t>/y 
bt>U 
bbl 
bi<<> 

‘j&4 
DC‘J 
mj6  o 
bo  / 
bfco 

7b  V 

5VO 
bV  I 
bV2 
bV- 
Z>V4 

bv5 

t)y  O 
597 
Live 
bvv 

Ot.C 
Ob  1 
ot2 

oif>J 
04,  4 
Ul/b 


01. o 
oi.'7 
ov.e 

OCV 

o  I  / 
b  i  I 
o  1 2 
ol2 


,’.'HX=-.:b'P(P.P) 

DO  VO  ME=l,..lLX 
rN=FNP(MP,.,.’E) 

IF(F>!.Li.«J.)  GO  TO  VO 
CALL  RCLDPL(  EHDTU,  ERDPH,  HP) 

ETH=ETH+ERDTK 
E  PH=  t'P  M+  ER  HP  H 

1 F ( LOUT)  CALL  Ph  IOUT  <94.1 P , ME ,0 , ERDTr . ER[)»H ) 
VO  CONTINUE 

VI  CONTINUE 

GO  TO  It  to 


Vb.»  CONTINUE 

CM!  COMPUTE  ALL  POSSIbLE  FIELDS  DIFFRACTED  FROM  T:JE  PLATES  THEN 
CM!  REFLECTED  F.iC!  THE  CYLINDER 
CO  vo  ,"F  =  I  ,,'.TX 

0!!!  IF  PLATE  SHADCNEJ,  THEM  NO  DIFFRACTED  FIELD 
I  r  ( LEi  ID  ( .’■  P  ) )  GO  TO  06 
MEX=.MEP(."P) 

DO  vi  ME=I  ,NEX 

C!!!  IF  EJOE  DOES  NOT  HAVE  STRONG  FIELD  REFLECTED  FROM  CYLINDER 


C! 


Vb 

VC 

1 122 

CM! 

CM! 

CM! 

CM! 


I  I  GO 
i  I  Lk. 


1 2  02 


BYPASS  SOUR. 

I F ( . NOT . LDC ( KP , HE ) )  CO  TO  95 
FN=FNPUP,f'E) 

[FU-N.LT.O. )  GC  TO  95 

CALL  iiPLI-CLt  EDriCT,  EDRCP,  FN  ,M  E,  ’IP  ) 

FTH=ETI  l+HDRCT 

E'Ph'=EPH+ EDRCP  •  i 

IF  (LOUT )  CALL  PH  I  OllT(  950,. 'IP,  ME .  0,  EDRCT  .EDRCP ) 

CONTINUE 

CONTINUE  > 

CONTINUE  i 

IF  (LOUT)  CALL  PRIOUTU  .  I  ,J,  J.ETH.ePH  ) 

SUPERPOSITION  OF  THE  FIELD  COHFOfENTS,  HE  I  Grill  NO 
CF  RESULT  IN  TERNS  CF  THE  I) IP"!  EXCITATION.  AND 
THE  CONVERSION  OF  THE  POLARIZATION  TO  THE 
PATTERN  CUT  COORDINATE  SYSTEM. 

ETni  ( 1 1  )=cTHT<  1 1  )  +  RI *(  E7F*C0S(  ALR+FLS)  +FPH*SI'l ( AL.7+5LR  ) ) 
HPiiTdl  )*EPHT(  1 1  )•*■'..  I  *(  EPH*COC(  ALR+ELR )  -ETi>SIN  (  ALH+3L.V  ) ) 
CONTINUE 
CONTINUE 

IF  (.NOT. LOUT)  GO  TO  1200 
DO  1202  II»IEP,IEP,IS 
1=11-1 

CALL  PR  I  OUT  ( I  too,  1 ,1,1,  ETHT(  1 1 )  ,EPHT(  II)) 


1200 
0!  ! ! 


0!  ! 
C!  ! 
C!  ! 


CONTINUE 

E-THETA  AND  E-PHI  RESULTS  ARE  SENT  TO  t’NIT  *6(LINS  PRINTER). 
I  EE= I EP-  I  -• 

IF  (L  CRT  T  E  ?  C  /  LL  OUTPUT  ( ETHT,  EP  FT  ,  LCM^AT,  TPPO ,  I  -i,  IE  E,  I S  ) 

POLAR  PLOT  CF  DATA  IF  DESIRED. 

NOTE  THAI  THE  PLOT'  ROUTINES  ARE  NOT  INCLUDED 
SINCE  THEY  CAN  NOT  BE  USED  ON  ALL  SYSTEMS. 


IF ( •  NuT.LPLT  )  GO  TO  WO 
C  AOU  CALL  POLPLT(FTHT, RADIUS, IPLT.IS.36I > 
C  ADD  CALL  POLPLTN  EPHT, RADIUS,  IPI.T,  I  S,  26  I ) 
vvt;  CONTI  til  IF 

GO  TO  2VW 
VVV  STOP 
E'NL; 
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A  description  of  the  various  GTO  computation  sections  based  on 
values  of  J  and  K  follows.  A  partial  listing  of  each  section  is 
repeated  for  clarity. 


K--1,  j=l 

This  section  calculates  the  geometrical  optics  source  field. 


»Ou'S«  M*S<J 
'ciM  suVoot'*!*  !SC-El9I 


■f!3  !a  IQC0 


i  i*»e  UV 

cc?*  t  j  r*  -j  f. 

USv  •„!  !! 

7^{t  f^SfCT  ?i*LC  J-S2a  7H® 

! 

calc  tt r’i'.t  ;?k,iscs  » 

i  jt-: 

s;h«»?5  T> 

S  i?i- 

i 

:f{L:ur.  call 

I  >4* 

-.4;  «  r>  i  4  && 

K=1 , J=2 

This  section  calculates  all  fields  singly  reflected  from  plates 


I  3cB 
1  3CO 
I3o7 
l  job 
I  3oV 
137  0 
i  y,  i 

1372 

1373 
I  37  < 
I  37  b 

1376 

1377 


200  CONTINUE 

CM!  COMPUTE  /LL  POSSIBLE  SINGLY  REFLECTED  FIELDS  FROM  PLATES. 
DO  2  b  MP=  I  ,/‘PXR 

C! ? !  IF  SLOT  ON  PLATE, THEN  NO  REFL.  FIELD. 

I  F  (  LSURF  ( VP ! )  00  TO  2b 

CM!  IF  PLATE  SHAIXJWEM.TMEN  NO  REFL.  FIELD. 

IKLSMDIMP  ))  CO  TO  25 
CALL  HEFPLA<  ERPTM, ERPPH.MP )  i 

ETH-ETH+EKPiN  i 

EPH*EP!f*EHPPF  | 

IF ( LOUT)  CALL  PR  I  OUT (2  OP,  HP, P, 0, ERPTH, ERPPH ) 

2b  CONTINUE 

GO  TO  Ifc-tU 
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K  ! ,  J-3 


This  section  computes  all  possible  doubly  reflected  fields  from 

o ! ates. 


1  378 

2U0 

CONTINUE 

137  V 

C!  ! ! 

COMPUTE  ALL  POSSIBLE  DOUBLY  REFLECTED  FIELDS. 

1381) 

DO  31  MP= 1 ,MPXR 

1  38  1 

CM! 

IF  SLOT  ON  PLATE, THEN  NO  REFL/REFL  FIELD. 

1382 

I F ( LSURF ( MP ) )  CO  TO  31 

1  383 

CM! 

IF  PLATE  #MP  IS  SHADOWED, THEN  NO  REFL.  FIELD 

1  384 

IF  (LSHD(MP) )  GO  TO  31 

138b 

DO  30  MPP= 1 , MPXR 

1  388 

IF  (MPP.EO..MP)  GO  TO  30 

1387 

IF<LIHDUV,M!'P  MOO  TO  30 

1388 

CALL  RPLRPL(ERR;>T,ERRPP,MP,MPP) 

1  38V 

ETH=ETH+ERKPT 

1  3VC 

EPI!=EPH+EI!RPP 

1  3  V  1 

I F ( LOUT)  CALL  PR I OUT (300 ,.MP»MPP,0, ERRPT,  ERRPP) 

1  3v2 

20 

CONTINUE 

1  3v3 

31 

CONTINUE 

i  3  V  4 

GO  TO  ii  'v'iJ 
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J=4 


k=u 

This  section  computes  field  components  for  all  source  rays  singly  dif¬ 
fracted  by  plate  edges. 


79 


1  39b  COO  CONTINUE 

1390  C! ! !  COMPUTE  ALL  POSSIBLE  SINGLY  DIFFRACTED  FIELDS  INCLUDE 

1397  C! ! !  A  CORNER  DIFFRACTION  TERM  IF  DESIRED  BY  INPUT  DATA. 

1398  DO  <51  MP=!  ,  MPX 

1399  CM!  IF  PLATE  SHADOWED,  THEN  NO  DIFF.  FIELD. 

1400  IF(LSHD(MP  )  )  GO  TO  61 

1401  MEX=MEPCMP ) 

1402  DO  00  ME=I , MEX 

1403  FN=FNP(MP,.“E) 

1404  CM!  IF  WEDGE  ANGLE  INDICATOR  (FNX0.THEN  HAVE  COMMON  EDGE  ON 
Ui.S  CM!  OTHER  PLATE  COMPUTE  DIFF.  FIELD. 

I40o  IFtFN.Ll.3.)  GO  TO  60 

1407  CALL  DI FPLT ( EPPTH, EDPPH, EDPCTH.EDPCPH, FN ,ME , MP ) 

1408  £TH=ETH+£DPTF+EDPCTH 

1409  EPH=EPH+£DPPF+EDPCPH 

1410  I F  ( LOUT )  CALL  PR  l  OUT  ( 6<  M ,  P ,  M  E ,  9  ,  EDPTH ,  EDPPH ) 

1411  IF  (LOUD  CALL  PRI 0UT(65.  V’lP.ME, 0, EDPCTH.EDPCPH) 

1412  00  CONTINUE 

1413  cl  CONTINUE 

1414  GO  TO  I  100 


K  =  1 ,  J=5 

This  section  computes  field  components  for  all  source  rays  reflected 
by  a  plate  and  then  diffracted  from  an  edge  on  another  plate. 


I 

I 
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I  41b 
1410 
141', 

1 4 1  rt 
141V 

1420 
I  42  1 
1422 
1422 

1424 
1  42b 
1  426 

142  7 
142b 
142V 
1  420 

1421 

1432 

1433 
I  434 
1  435 
1436 

143  7 
I  428 
1  43V 
I  4*.0 


1 _ _ 

J 

Superimpose  reflected  diffracted 
field  components  with  those 
previously  calculated 

1 - 

Go  to  1000 

700  CONTINUE 

CM!  LOOP  mu  THE  VARIOUS  REFLECTED/DIFFRACTED  FIELD  TERMS. 
CM!  INCLUDE  CORNER  TERM  IF  DESIRED  BY  INPUT  DATA. 

DO  72  MR “I ,MPXR 

CM!  IE  SLOT  ON  PLATE, THEN  NO  REFL/DI  FF  FIELD. 

IF(LSURF(MR) )  CO  TO  72 

CM!  IF  PLATE  AMR  IS  SHADOW  ED, THEN  NO  REFL.  FIELD 
IF  (LSHD(MR) )  GO  TO  72 
DO  71  MP= I ,MPX 
IF  (MP.EQ.MK ;  CO  TO  71 
Ii-(LIHD(MR,MP) >00  TO  71 
MEX=v.EP(MP) 

DO  70  ME=  I , MEX 
FN-eHP(MP,ME) 

C!!!  IF  FN<0  THEN  HAVE  COMMON  EDGE  ON 
CM!  OTHER  PLATE  COMPUTE  PIFF.  FIELD. 

IF (FH.LT .0. )  CO  TO  70 

CALL  HPLDPLI  F.liPDT,  ERPDP,  ERPDCT ,  ERPDCP, FN  ,ME,  MP.MR) 

ETH=ET H+ ER  PDT+ ERPDCT 

epk=hph+e;<pl>p+erpdcp 

IF(LCJT)  CALL  PR  I  OUT (7 00, ME, MP , ME, ERPDT, ERPDP) 

IE  (LOUT)  CALL  Pkl  OUTHbO,  MR , HP, ME, ERPDCT, ERPDCP) 

70  CONTINUE 

71  CONTINUE 

72  CONTINUE 
GO  TO  1 000 


82 


K=1  J=6 


This  section  computes  field  components  for  all  source  rays  diffracted 
from  a  plate  edge  and  then  reflected  off  of  another  plate. 


i  44  1 

600 

CONTINUE 

1442 

C!  ! ! 

COMPUTE  THE  VARIOUS  DIFFRACTED/REFLECTED  FIELDS. 

1443 

CiU 

INCLUDE  CORNER  TERM  IF  DESIRED  BY  INPUT  DATA. 

1444 

DO  82  MP=1 ,MPX 

1  445 

C!  M 

IF  PLATE  IS  SHADOWED, THEN  NO  DIFF/REFL  FIELD. 

1440 

IF<LSHD(MP ))  GO  TO  82 

1  44  7 

MEX=MEP(.MP ) 

1  448 

DO  81  ME=! ,MEX 

1  44  Y 

FN=FNP<  MP, ME) 

1450 

IFCFK.LT.0.)  GO  TO  81 

1451 

DO  80  M f-  =  I  ,MPXR 

1402 

I F  ( MR.  EC’.MP)  GO  TO  80 

1453 

IF  (LIHDU'P.MR)  )G0  TO  80 

1454 

CALL  DPLRPLI  EDRPT, EDRPP, EDCRPT.EDCRPP,  FN,ME, MP, MR) 

1455 

ETH=  ETH+EDRPT+  EDCR  PT 

1  456 

£PH=  EPH+EDRPP+  EDCR  PP 

1  407 

IFCLOUT)  CALL  PRIOUT(809,MP,ME,MR, EDRPT, EDRPP) 

1 458 

IF  (LOUT)  CALL  PRIOUT  (H5i),MP,HE,.MR,EDCRPT,EDCRPP> 

1  45v 

60 

CONTINUE 

1400 

81 

CONTINUE 

1461 

62 

CONTINUE 

1462 

GO  TO  1000 

84 


J=7 


h 


K=l, 

This  section  identifies  double  diffraction  shadow  boundaries. 


1403  V0U 
!  404  0!  !! 

I4oo  CM! 

1400 

1407 

140b 

1  40  V 

147k) 

147  I 
I  472 

1473  VI 3 

1474 
147  0 

147  6  V  1 2 

14  77  V  I  4 

147b 

147V  V) I 
!4tiU 


CONTINUE 

CHECK  TU  SEE  IE  DOUBLE  DIFFRACTIONS  OCCUR. 

IF  SO,  INDICATE  IN  OUTPUT  FILE. 

I F  ( I  001 1 1 )  .GE.0) GO  TO  VI  I 

ME— I  DIM  1 1  )/<m 

MP—  I  DD<  II  )/20-ME*2O 

MPP— IDU(  1 1  )-ME*40O-VP*2vJ 

I F ( LGKND . AND..’.', PP . OE . MP XR )  CO  TO  PM 

IF(MPP.EQ.O)  00  TO  V 12 

WR  II  EC  6  ,  VI  3)  I ,  KP,HE,  MPP 

FOKMATC'  DOUBLE  DIFFRACTION  AT  ANCLE-  13,'  FROM  PLATE#  ' 
2,12,'  EDGE#  ',12,'  IS  SHADOWED  BY  PLATE#  ',12) 

CO  TO  VII 


WR!TE(6,VI4)  I.MP.ME 

FORMAT!'  DOUBLE  DIFFRACTION  AT  ANCLE-  ',13,'  FROM  PLATE#  ' 
2,12,'  EDGE#  ',12,'  IS  SHADOWED  BY  THE  CYLINDER') 

CONTINUE 


CO  TO  1000 
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K=2,  J=1 


This  section  computes  the  source  field  and  the  field  scattered  from 
the  cylinder. 

i 


I4«3  10  1 
Ut>4  c !  I ! 

I  400 
140  7 

141-0 
I  4dV 
I  4 VO  IJ 
I  4V  1  CM! 
I  4  V  ^ 

I  4  V  v 
I  4  V  4 
I  4V‘> 

I  4'-o 
I  4  V  *i 
I  4Vb 
I  4  VV 


CONTINUE 

COMPUTt  DIRECT  FIELD  FROM  SOURCE 

1KLPLA)  CO  TO  12 

CA  LL  I NCFLLH  E I TH , E I  PH . L3CR  ) 

E’lH-HITH 
kPH=El  PP 

IP(LSOR)  00  TO  HUM.’ 

CON  1  HUM: 

COMPUTE  SCATTERED  FIELD  FROM  CYLINDER 

CALL  SO'iCYL<  ES  TH, ESPH.ER TH , F. RP H ) 

fcTH-EYH+ESHI 

fcPH«  Ei’H+ESPfl 

IF<  .NOT. LOUT)  00  TO  iu;\i 

CALL  PKIOUK  ll0,i),L’,L*,EIT,i.EIPH) 

CALL  PR  I  CUT  (  l2i',i'1fr',f',F:kTH,F.fPr) 

CALL  PRIOUTI  U0,i),/,0,ESTH,F5PH) 

CO  TO  1 000 


K-2,  J-2 

This  section  computes  fields  reflected  from  cylinder  end  caDS. 


i'j 


IbU) 
ir><  i 
i  iW 
ibUj  <;• 
1  V>V.-1 
rjvt, 
t  bt/C 
l  Mi  7 
i‘jk.b 
ibti*v  ib 
‘bit 


u  CONTINUE 

"  mM^‘l-^l,P0SSIBL£  R  elected  fields  FROM  end  CAPS 

!!  "° tEaECI£0  FIEL“ rm  sm  c,p 

CALL  HtFCAPf  EHCa  i  ,  CRCAP,  MC ) 

b'7H-fiTH*EHCAT 

EPH«EPM*L:»CAP 

/•nwTfMM-  CALL  Pwl0UT(  '^V'C.O.fl.ERCAT.ERCAP) 

CONTIMUt 

CO  TO 
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K=2,  >3 


This  sectioii  computes  field  components  for  all  source  rays  diffracted 
from  the  cylinder  end  cap  rims. 


I  j  i  I  VCO 
i  '.i  i  i  l  : :  1 
i-ji. 

;m< 

i  3 1  ‘ 

I  vi  o 
I  *j  I  7 
t  -J  i  M  V-t 
lt)i  V 


COMl  1  HUb 

COMPUTE  all  POSSIBLE  DIFFRACTED  FI  FLITS  FROM  END  CAPS 
Du  6.)  MC *  I  ,2 

CALL  bNOIr(bDCTH,EDCPH,MC> 

LTH»=TH*EDCTH 

nPI'«tPH-»tDCPM 

I  FI  LOUT)  CALL  PRIOUT(S^W,MC,a,O.EDCTH. EPCPM) 

CONTINUE 
CO  TO  I i TO 


m 


K=3,  J=1 


This  section  computes  field  components  for  all  source  rays  which  are 
reflected  from  a  plate  and  then  scattered  by  the  cylinder. 


022  CONTINUE 

1WJ  CHI  COMPUTE  ALL  POSSIBLE  FIELDS  KEFLECTED  F»0*  THE  PLATES  THEN 
!W4  CM!  SCATTcHEO  F»0»  IKE  CYLINDER 
I  Wb  DU  2v  «!>« I  .BPXrt 

I  WO  CM!  If  ANTENNA  IS  ON  PLATE,  THEN  NO  REFLECTED  FIELD 

IW7  t  F  (LSUHF<  UP ) )  GO  10  29 

IW!J  CM!  tf  PLATE  SHAOO*£D,  THEN  NO  REFLECTED  FIELD 
IWV  IF(LS'tO!MP)>  UO  TO  2V 

IbJi;  CALL  HPLSCLtEHPST.EHPSP.EHPCT.EftPCP.MP) 

ISM  tT**«£f»I*£ti;*5T 

\oiJ  HPH-bPH*fe'HPSP 

1 1- (.NOT. LOUT)  00  TO  29 

fjj«  CALL  PHI0UT(240.':'>»i3.tJ,fcTtPCT.EnPCP) 

twb  CALL  PfllCUTt^H.^P.a.O.EHPST.ESPS®) 

1 5s jo  CV  CONTINUE 

IWT  GO  TO  U03 
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K=3,  J=2 

i 

This  section  calculates  field  components  for  all  source  rays  scattered  l 

from  the  cylinder  and  then  reflected  from  a  plate. 

i 

i 


I  ‘jjli  400 

I  j'r  c!  ! ! 
I  v. !  ! ! 
I  -j4  I 
I  t.42 
I  t)4  j 
1 1)  *4 
I  *j4  L 
I  ‘j4  0 
1  -dA'i 
t-jAti  40 
I  ‘j*V 


CONTINUE 

COMPUTE  ALL  POSSIBLE  FIELDS  SCATTERED  FROM  THE  CYLINDER  THEN 
REFLECTED  FRCM  THE  PLATES 
DO  40  .MPa I  ,,".PXR 

CALL  SCLRPLI EHSPT, ERSPP, ERCPT, ERCPP.MP ) 

STH-ETH+HRSPT 

EPH-EPIH-EHSPP 

IF  I. NOT. LOUT)  GO  TO  40 

CALL  PR I  OUT* 4 1 o, MP.0.H, ERCPT, ERCPP ) 

CALL  PF ICUT<  42M,  HP,  0,(),ERSPT,  ERSPP  ) 

CONTINUE 
GO  TO  I  *00 


j 
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K  =  3 ,  J=3 

This  section  computes  field  components  for  all  source  rays  reflected 
Iran  the  cyl inder  and  diffracted  from  a  plate  edge. 


A 


I  *>60  V40 
I  ob  I  C !  !  ! 
I  00.1  L  !  !  ! 
I  ObE 

I bb4  c !  ! ! 
I  bbb 
I  boo 
I  bb "/ 

I  bob 

I  00  V 
I  OOC 
I  OO  I 
I  OCT 
I  000 

I  004  >,0 

I  boo  VI 
I  boo 


CONTINUE 

COMPUTE  ALL  POSSIBLE  FIELDS  REFLECTED  FROM  THE  CYLINDER  THEN 
DIFFRACTED  from  the  PLATES  i 

DO  VI  M  P  =  I  .'.IPX  i 

IF  PLATE  SHADOWED,  THEN  NO  DIFFRACTED  FIELD 
IF (LSHD( MP  ) )  CO  TO  9!  | 

ME  X=.MEP(  M? ) 

DO  V'.i  ME=  1  ,.'.'EX 

FN-FIIP  (MP,ME  3  ! 

IFIFM.LT .0. )  00  TO  VC 

CALL  RCLDPL(ERDTH,EHDPH,FM,ME,MP) 

ETH*ETK  ••ERDTF 
EPH»EPHfb'R['DH 

:F(LOUT)  CALL  PRI0UT<V4e,MP,ME.0,ERDTH,ERDPH) 

CONTINUE 
CONTINUE 
CO  TO  It  0H 


K=3,  J=4 


This  section  computes  field  components  of  all  source  rays  diffracted 
from  plate  edges  and  then  reflected  from  the  cylinder. 


I  bo 7  V50  CONTINUE 

1566  CM!  COMPUTE  ALL  POSSIBLE  FIELDS  DIFFRACTED  FROM  THE  PLATES  THEN 
156V  CM!  REFLECTED  FROM  THE  CYLINDER 
!5?0  DO  96  MP=I ,MPX 

157  1  CM!  IF  PLATE  SHADOWED,  THEN  NO  DIFFRACTED  FIELD 

1 572  IF(LSHDU«P>>  00  TO  96 

1 57 o  MEX*MEP(MP) 

1574  DO  95  ME* I, HEX 

1575  CM!  IF  EDGE  DOES  NOT  HAVE  STRONG  FIELD  REFLECTED  FROM  CYLINDER 

1576  CM!  BYPASS  SU3R. 

157?  IFI.NOT.LDCUip.ME))  GO  TO  95 

1573  FN*FNP(NP, ME  5 

157V  IFIFN.LT.0.)  GO  TO  95 

1530  CALL  DPLRCLI EDRCT,EDRCP,FN,ME,MP) 

I5B1  ETH*ETH+EDRCT 

1 532  FPH=EPH+EURCP 

Ibdo  IF (LOUT)  CALL  PRIOUT<950,MP,ME.0,EDRCT,EDRCP) 
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SYMBOL  DICTIONARY 


A 

ALH 


AXCYL 

AYCYL 

AZCYL 

B 

BLR 

BPL 


CAS 

CMC 

CPS 

CTO 

CTHS 

HUC  PH 

EDCHPP 

HL'C  i’i  i 

tiUCP  P ’I 


EDPCPH 

EDPCTh 

EUPPii 

EUPTil 

HUi(CP 

EDhCT 

EUiiPP 

EUhPi 

HI  PH 
E  It  H 
EPh 
EPIu 

EhCAP 

t  KC  A I 

EnOPf 

E  iiO  P1‘ 

EuUi’il 

EitOTU 

;-.hpop 

UiiPOT 

EivPlVi 


HAL)! US  OH  CYLINDER  ALONG  X  AXIS  IN  WAVELENGTHS 
ANGLE  THAT  CONVERTS  FIELD  POLARIZATION  FROM 
REFERENCE  COORDINATE  SYSTEM  TO  PATTERN  COT 
COORDINATE  SYSTEM 
PI  -T  HSR 

VARIABLES  USED  TO  DETERMINE  IF  THE  CYLINDER  COORDINATE 
SYSTEM  IS  THE  SAME  AS  THE  REFERENCE  COORDINATE  SYSTEM 
(BEFORE  RCS  TRANSFORMATION) 

RADIUS  OF  CYLINDER  ALONG  Y  AXIS  IN  WAVELENGTHS 
BPL  IN  RADIANS 

ANGLE  THAT  CONVERTS  FIELD  POLARIZATION  FROM  PATTERN 
CUT  COORDINATE  SYSTEM  TO  A  RECEIVER  COORDINATE  SYSTEM 
(NOT  PRESENTLY  IVPLIMENTED) 

COSINE  OF  AS 

COSINE  OF  THTPR  AND  THTNR 
COSINE  OF  PH SR 
COTANGENT  OF  THTPR  AND  THTNR 
COSINE  OF  THSR 

PHI  COMPONENT  OF  FIELD  DIFFRACTED  FROM  END  CAP 
RIM  IN  RCS 

PHI  COMPONENT  OF  FIELD  DIFFRACTED  FROM  CORNERS  OF  EDGE 
ME  OH  PLATE  MP  AND  THEN  REFLECTED  BY  PLATE  MR  (CORNER  DIF) 
THETA  COMPONENT  OF  FIELD  DIFFRACTED  FROM  END  CAP 
HIM  IN  RCS 

THETA  COMPONENT  OF  FIELD  DIFFRACTED  FROM  THE 
CORNERS  OF  EDGE  ME  OF  PLATE  MP  AMD  THEN  REFLECTED 
BY  PLATE  MR  (CORNER  DIFFRACTION) 

PHI  COMPONENT  OF  FIELD  DIFFRACTED  FROM  CORNERS 
OH  EDGE  ME  OF  PLATE  MP 

THETA  COMPONENT  OF  FIELD  DIFFRACTED  FROM  CORNERS 
O-  EDGE  ME  OF  PLATE  MP 

PHI  COMPONENT  OF  FIELD  DIFFRACTED  FROM  EDGE  ME  OF 
PLATE  MP  IN  RCS 

THETA  COMPONENT  OF  FIELD  DIFFRACTED  FROM  EDGE  ME 
OF  PLATE  MP  IN  RCS 

PHI  COMPONENT  OF  FIELD  DIFFRACTED  FROM  EDGE  ME  OF 

PLATE  MP  AND  REFLECTED  FROM  THE  CYLINDER 

THETA  COMPONENT  OF  FIELD  DIFFRACTED  FROM  EDGE  ME  OF 

PLATE  MP  AND  REFLECTED  FROM  THE  CYLINDER 

PHI  COMPONENT  OF  FIELD  DIFFRACTED  FROM  EDGE  «E  OF 

PLATE  ME  AND  THEN  REFLECTED  BY  PLATE  MR  (EDGE  DIF.) 

THETA  COMPONENT  OF  FIELD  DIFFRACTED  FROM  EDGE  ME  OF 
PLATE  MP  AND  THEM  REFLECTED  BY  PLATE  MR  (EDGE  DIFF.) 

PHI  COMPONENT  OF  DIRECT  FIELD  FROM  SOURCE  IN  RCS 

TIT  ETA  COMPONENT  OF  DIRECT  FIELD  FROM  SOURCE  IN  RCS 

PHI  COMPONENT  OF  SCATTERED  FIELD  IN  RCS 

PHI  COMPONENT  OF  TOTAL  CALCULATED  E  FIELD  IN 

PATTERN  CUT  COORDINATE  SYSTEM 

PHI  COMPONENT  OF  FIELD  REFLECTED  FROM  CYLINDER 

END  CAP  IN  RCS 

THETA  COMPONENT  OF  FIELD  REFLECTED  FROM  CYLINDER 
END  CAP  IN  RCS 

PHI  COMPONENT  OF  GEOMETRICAL  OPTICS  FIELD  REFLECTED 
FhC.  CYLINDER,  AND  THEN  REFLECTED  FROM  PLATE  MR 

the;/  component  of  geometrical  optics  field  reflected 

I- ROM  CYLINDER,  AND  THEN  REFLECTED  FROM  PLATE  MR 

Pill  COMPONENT  OF  FIELD  REFLECTED  FROM  CYLINDER 

AND  DIFFRACTED  BY  EDGE  ME  OF  PLATE  MP 

THETA  COMPONENT  OF  FIELD  REFLECTED  FPOI.  CYLINDER 

AND  DIFFRACTED  RY  EDGE  ME  OF  PLATE  MP 

PHI  COMPONENT  OF  GEOMETRICAL  OPTICS  FIELD  REFLECTED 

BY  PLATE  MR  AND  THEN  SCATTERED  BY  THE  CYLINDER 

THETA  COMPONENT  CF  GEOMETRICAL  OPTICS  HELP  REELECTED 

BY  Pt.ATG  MR  AND  THEN  SCATTERED  BY  THE  CYLINDER 

PHI  COMPONENT  OF  FIELD  REFLECTED  RY  PLATE  MR  AND 
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DIFFRACTED  DY  THE  CORNERS  OF  EDGE  ME  OF  PLATE  VP 
(CORNER  DIFFRACTION) 

ERPIXY  Th'E'l A  COMPONENT  OF  FIELD  REFLECTED  BY  PIRATE  MR  AND 
DIFFRACTED  DY  THE  CORNERS  OF  EDGE  ME  OF  PI.ATE  MP 
(CORNER  DIFFRACTION) 

ERPUP  PHI  COMPONENT  OF  FIELD  REFLECTED  BY  PLATE  MR  AND 

DIFFRACTED  DY  EDGE  ME  OF  PLATE  MP  (EDGE  DIFFRACTION) 

ERPIU'  THETA  COMPONENT  OF  FIELD  REFLECTED  BY  PLATE  MR  AND 
DIFFRACTED  BY  EDGE  ME  OF  PLATE  MP  (EDGE  DIFFRACTION) 

ERP1.  PH I  COMPONENT  OF  GEOMETRICAL  OPTICS  FIELD 
REFLECTED  FROM  CYLINDER 

EKPPH  PHI  COMPONENT  OF  FIELD  REFLECTED  FROM  PLATE  MP  IN  RCS 
ERPSP  PHI  COMPONENT  OF  FIELD  REFLECTED  BY  PLATE  MR 
AND  THEN  SCATTERED  BY  THE  CYLINDER 
EWPST  THE'i A  COMPONENT  OF  FIELD  PEFLECTED  BY  PLATE  MR, 

AND  THEN  SCA1TERED  BY  THE  CYLINDER 
ERPTH  THETA  COMPONENT  OF  FIELD  REFLECTED  FROM  PLATE  MP 
ErkPP  PHI  COMPONENT  OF  FIELD  REFLECTED  FROM  PLATE  MP 
AND  THEN  PLATE  MPP  IN  RCS 

ERkPY  THEY A  COMPONENT  OF  FIbLD  REFLECTED  FROM  PLATE  MP 
AMD  THEN  PLATE  MPP  IN  RCS 

EKEPP  PHI  COMPONENT  OF  FIELD  SCATTERED  BY  THE  CYLINDER 
AND  THEN  REFLECTED  BY  PLATE  MR 
tKiPT  THEY A  COMPONENT  OF  FIELD  SCATTERED  BY  THE  CYLINDER 
AND  THEN  REFLECTED  BY  PLATE  MR 
ERYH  THEY  A  COMPONENT  OF  GEOMETRICAL  OPTICS  FIELD 
REFLECTED  FROM  CYLINDER 

ESPH  PHI  COMPONENT  OF  FIELD  SCATTERED  BY  CYLINDER  IN  RCS 
ESTh  THETA  COMPONENT  OF  FIELD  SCATTERED  BY  CYLINDER  IN  RCS 

ETH  THETA  COMPONENT  OF  SCATTERED  FIELD  IN  RCS 

EY'HT  THETA  COMPONENT  CF  TOTAL  CALCULATED  E  FIELD  IN  PATTERN 

CUT  COORDINATE  SYSTEM 

rN  HEDGE  ANGLE  INDICATOR  OF  EDGE  ME  OF  PLATE  MP 
FROG  THE  FREQUENCY  IN  GIGAHERTZ 

I  DO  LOOP  VARIABLE 

IBP  PATTERN  ANGLE  LOKEH  LIMIT  PLUS  ONE 

IEP  PATTERN  ANGLE  UPPER  LIMIT  PLUS  ONE 

II  UO  LOOP  VARIABLE  USED  TO  STEP  THROUGH  PATTERN  ANGLE 

IK  CHARACTER  STRING  USED  TO  INPUT  COMMAND  DESIRED 

IS  INCREMENT  ON  PATTERN  angle 

IT  CHARACTER  STRINGS  CONTAINING  COMMAND  VARIABLES  FOR 
DATA  INPUT 

ITT  CHARACTER  STRINGS  USED  AS  COMMAND  VARIABLES  GOR 
DATA  INPUT 

J  DO  LOOP  VARIABLE  USED  TO  STEP  THROUGH  INDIVIDUAL 

GTU  TERMS 

A  DO  LOOP  VARIABLE  USED  TO  STEP  THRU  MAJOR  OTD  GROUPINGS 

LAuEL  CHARACTERS  USED  TO  SPECIFY  UNITS  USED  TO  INPUT  DATA 
LAMP  LOGICAL  VARIABLE  SET  TRUE  IF  NEC  SOURCE  DATA  WAS 
INPUT 

LNHOi  LOGICAL  VARIABLE!  SET  TRUE  IF  RCS  TRANSFORMATION  IS  NOT 
TO  BE  PERFORMED 

MO  INDEX  VARIABLE  FOR  CORNERS 

Mb  INDEX  VARIABLE  FOR  EDGES 

MEUX  MAXIMUM  NUMBER  OF  EDGES  ALLOWED  ON  ONE  PLATE 

ME A  Number  OF  EDGES  ON  PLATE  MP  (NOT  AN  ARRAY) 

MP  INDEX  VARIABLE  FOR  PLATES 

MPDX  MAXIMUM  NUMLER  OF  PLATES  ALLOWED 

MPP  INDEX  VARIABLE  FOR  PLATES 

Mk  INDEX  VARIABLE  FOR  PLATES 

MS  INDEX  VARIABLE  FOR  SOURCES 

MSUA  MAXIMUM  NUMBER  OF  SOURCES  ALLOWED 

N  INUfcX  VARIABLE 

Nt  INDEX  VARIABLE 

NJ  INDEX  VARIABLE 

PUP  PHI  ANGLE  DEFINING  PATTERN  ANGLE  IN  PATTERN  CUT 


COORDINATE  SYSTEM 

Ptif'H  PHI  COMPONENT  OP  PATTERN  ANGLE  IN  PAT  CUT  COORD  SYS 

PUSH  PHI  COMPONENT  OF  PATTERN  (OBSERVATION)  ANGLE  IN  RCS 

SAS  SINE  OF  AS 
SASP  SIN( AS-PI/2) 

SNC  SINE  OF  THTPR  AND  THTTJR 

SPt  SINE  OF  PHSh 

STHS  SINE  OF  THSR 

THP  THETA  ANGLE  DEFINING  PATTERN  ANGLE  IN  PATTERN  CUT 
COORDINATE  SYSTEM 

THPR  THETA  COMPONENT  OF  PATTERN  ANGLE  IN  PAT  CUT  COORD  SYS 

THSR  THETA  COMPONENT  OF  PATTERN  (OBSERVATION)  ANGLE  IN  RCS 

THTNK  ANGLE  NEGATIVE  END  CAP  MAXES  WITH  Z  AXIS  (IN  X-Z  PUNE) 

THTPR  ANGLE  POSITIVE  END  CAP  MAKES  WITH  Z  AXIS  (IN  X-Z  PUNE) 

TPPD  PATTERN  ANGLE  WHICH  REMAINS  CONSTANT 
UNIT  CONVERSION  FACTORS  TO  CONVERT  FROM  METERS,  FEET, 

OR  INCHES  TO  METERS 

VXS  X,Y,Z  COMPONENTS  DEFINING  SOURCE  COORDINATE 

AXES  IN  RCS  COMPONENTS 

rtl  (COMPLEX )  WEIGHTING  COEFFICIENT  OF  SOURCE  EXCITATION 
XCL  X, Y,Z  COMPONENTS  DEFINING  AXES  OF  CYLINDER 
YCL  COORDINATE  SYSTEM  (BEFORE  RCS  TRANSFORMATION) 

ZCL  (IN  RCS  COMPONENTS) 

XCG  X, Y,Z  COMPONENTS  OF  LOCATION  OF  CYLINDER  COORDINATE 
SYSTEM  ORIGIN  IN  RCS  (BEFORE  RCS  TRANSFORMATION) 

XCO A  DISTANCE  BETWEEN  RCS  ORIGIN  AND  CYLINDER  COORDINATE 
SYSTEM  ORIGIN 
XOO  CONSTANT  (*t,0,0) 

XPC*\  X, Y,Z  COMPONENTS  DEFINING  AXES  OF  PATTERN  CUT  COORDINATE 

YPC  >  SYSTEM  AFTER  RCS  TRANSFORMATION 
ZPCi  (IN  RCS  COMPONENTS) 

XPU\  X, Y,Z  COMPONENTS  DEFINING  AXES  OF  PATTERN 

YPD  >  CUT  COORDINATE  SYSTEM  (IN  RCS  COMPONENTS) 

ZPD  J  (BEFORE  RCS  TRANSFORMATION) 

XS  X, Y,2  COMPONENTS  OF  SOURCE  LOCATION  (INSIDE  SOURCE 
LOOP) 

XXX  COMPUTATIONAL  VAR I  RLE 

ZC  POINT  WHERE  UPPER  AND  LOWER  CYLINDER  END  CAPS  MEET  THE 
Z  AXIS  OF  THE  RCS 


BABS 


PURPOSE 

This  function  computes  the  absolute  value  of  a  complex  argument. 
It  is  similar  to  CABS,  except  it  avoids  run  time  errors  when  the  real 
part  and  imaginary  part  of  the  argument  are  zero. 

METHOD 

The  system  function  CABS  is  used  unless  the  absolute  value  of 
the  real  part  and  the  imaginary  part  of  the  argument  are  close  to 
zero,  in  which  case  a  very  small  value  is  returned. 


SYMBOL  DICTIONARY 


x  absolute  value  oh  the  heal  paht  of  z 

Y  ABSOLUTE  VALUE  OH  THE  IMAGINARY  PART  OF  Z 

Z  THE  COMPLEX  ARGUMENT 


CODE  LISTING 


2  FUNCTION  BABS(Z) 

0  C !  ! ! 

4  ciii  THIS  RwlTINE  IS  USED  TO  GIVE  COMPLEX  ABSOLUTE  VALUES.  IT  IS 

5  cm  USED  RATHER  THAN  STANDARD  ROUTINES  TO  AVOID  EXECUTION 

o  cm  errors. 

•<  cm 

H  COMPLEX  Z 

V  X=ABS(RfcAL<Z)i 

U  Y»ABS(A1MA0(Z>> 

11  IHIX.LT. I.E-IU.AND.Y.LT. I.E-IO)  GOTO  10 

12  BABS-CAbSIZ) 

1 3  RETURN 

U  In  BASS-I.E-ltf 
i •  RETURN 

Ic  END 


BLOCK  DATA 
PURPOSE 

To  load  commonly  used  data  Into  the  common  area. 


CODE  LISTING 


1  t - - - — — — 

2  BLOCK  DATA 

3  Cl l! 

4  cm  LOAD  COAMONLY  USED  DATA  INTO  COMMON  AREA. 

&  cm 

6  COMPLEX  CJ,CPI4,T0P 

1  COMMON/PIS/PI, TPI,DPR,RPD 

B  COMMON/COMP/CJ ,CPI 4 

V  COMMON/1 OPD/TOP 

10  DATA  PI ,TPI, DPR, RPD/3. 14159265, 6.28318531, 57.2957795. 

41  20.0174532925/ 

12  DATA  CJ,CPI4/(0., I .>,(.707 10678, -.70710678)/ 

13  DATA  TOP/<-. 707 10678,. 707 10678)/ 

14  END 


BL0G10 


PURPOSE 

This  function  computes  the  logarithm  to  the  base  ten  of  the  argu¬ 
ment.  It  is  similar  to  AL0G10,  except  it  avoids  run  time  errors  when 
the  argument  is  zero. 

METHOD 

The  system  function  AL0G10  is  used  unless  the  argument  is  close 
to  zero,  in  which  case  the  logarithm  of  the  limit  number  is  returned. 


SYMBOL  DICTIONARY 

X  'iHh  AKOUMENT  OH  THE  FUNCTION 


CODE  LISTING 


2  FUNCTION  BLOGIfl(X) 

3  C!!! 

a  til!  THIS  kUUTINE  AVOIDS  THE  ERROR  ASSOCIATED  WITH  THE 
y  c!  ! !  ALOGlii  CF  A  ZERO  NUMBER, 

o  till 

IFIX.OT. I.E-tU)  GO  TO  I 
11  BLOG  I  Vi— HI. 

V  HbTUMN 

U5  I  bLOCIO-ALOGHHX) 

I  I  RETURN 

12  END 
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BTAN2 


PURPOSE 

This  function  computes  the  two  argument  arctangent  function. 

It  Is  similar  to  ATAN2,  except  It  avoids  run  time  errors  when  the 
second  argument  is  zero. 

METHOD 

The  system  function  ATAN2(Y,X)  is  used  to  return  the  angle  in 
radians,  whose  sine  Is  Y  and  cosine  Is  X  unless  the  second  argument 
or  both  of  the  arguments  are  zero.  If  the  second  argument  is  zero, 
either  n/2  or  -n/2  is  returned  depending  on  the  sign  of  the  first 
argument.  If  both  arguments  are  zero,  a  zero  value  is  returned. 


SYMBOL  DICTIONARY 

X  SECCND  ARGUMENT,  WHICH  IS  THE  COSINE  OF  THE  ANGLE  TO 
BE  COMPUTED 

Y  FIRST  ARGUMENT,  WHICH  IS  THE  SINE  OF  THE  ANGLE  TO 
BE  COMPUTED 


CODE  LISTING 

2  L  FUNCTION  8TAH2<Y,X> 

-  U  ! ! 

4  u !!  mis  ROUTINE  IS  USED  TO  COMPUTE  THE  ARCTANGENT ,  IT  IS 
t  til!  SIMILAR  TO  ATA N2  EXCEPT  IT  AVOIDS  THE  RUN  TIME  ERRORS. 
0  U  !i 

V  CONMON/r  IS/PI  ,TPI  ,nPR,Rf>n 

h  IF  (ARM  A)  .61 . 1  ,E-H')  CO  TO  50 

V  IF  CARSO  l.GT.I  •£•10)  GO  TO  10 

»6J  BTAN2-0. 

*1 1  RETURN 

12  U)  BTAK2-PI/2. 

li  IPC Y.LT.O, )  ETAN2«-0TAN2 

I  *  RSTUHN 

li>  U!  BTAU2»ATAM2tY»X> 

lo  RETURN 

IT  END 


CAP I NT 


PURPOSE 

To  determine  if  a  ray  traveling  from  a  given  source  location  in 
a  given  direction  will  hit  a  cylinder  end  cap. 

PERTINENT  GEOMETRY 


SIDE  VIEW 


TOP  VIEW 


Figure  48—  Geocaetry  of  ray  which  hits  an  end  cap. 


METHOD 


The  subroutine  checks  to  see  if  a  ray  emanating  from  a  source 
In  a  given  direction  hits  a  cylinder  end  cap.  First  It  checks  if 
the  ray  Is  aimed  toward  or  away  from  the  end  cap  plane  by  comparing 
the  sign  of  the  dot  product  of  the  scatter  direction  and  end  cap 
normal  (ON)  and  the  sign  of  the  dot  product  of  the  source  location 
vector  and  end  cap  normal  (AN).  If  the  ray  Is  directed  toward  the 
rnd  cap  plane  as  shown  In  Figure  48,  the  intersetlon  point  with  the 
►  ane  Is  found  from 

TT  »  -  0  $}  • 

The  distance  from  the  intersection  point  to  the  center  of  the  end 
cap  is  then  compared  with  the  radius  of  the  end  cap  to  determine 
if  the  intersection  point  lies  within  the  finite  limits  of  the  end 
cap. 
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SYMBOL  DICTIONARY 


AE  DISTANCE  FROM  CENTER  OF  EDGE  CAP  TO  EDGE  ALONG  LINE 
IN  X-Z  PLANE 

AN  DOT  PRODUCT  OF  VECTOR  FROM  END  CAP  TO  SOURCE 
AND  END  CAP  UNIT  NORMAL 
CVE  COSINE  OF  VE 

D  PROPAGATION  DIRECTION  IN  RCS 

DHIT  DISTANCE  FROM  SOURCE  TO  NEAREST  HIT  POINT 
DHT  DISTANCE  FROM  SOURCE  TO  HIT  POINT 
ON  DOT  PRODUCT  OF  END  CAP  UNIT  NORMAL  AND 
THE  RAY  PROPAGATION  DIRECTION 
LHTT  SET  TRUE  IF  RAY  HITS  END  CAP 
MC  END  CAP  INDEX  VARIABLE 

MD  INDICATES  WHICH  END  CAPS  ARE  TO  BE  CHECKED 

NC  SION  CHANCE  VARIABLE 

RHO  DISTANCE  FROM  Z  AXIS  TO  POINT!  WHERE  RAY 
CONNECTING  THE  HIT.  POINT  AND  THE  ORIGIN 
HITS  THE  CYLINDER  (2-D) 

RHOT  DISTANCE  FROM  Z  AXIS  TO  POINT  XT 
SVE  SINE  OF  VE 

VE  ELL  ANCLE  DEFINING  HIT  POINT 

XIS  < ENTER I NO  ROUTINE)  SOURCE  LOCATION 

(LEAVING  ROUTINE)  HIT  POINT  (IF  MD>0) 

XT  X.Y.Z  COMPONENTS  OF  POINT  WHERE  RAY  HITS 
END  CAP  PUNE 


CODE  LISTING 


,L 


i 

t. . 


f 

«r* 


■i 

a* 


i 

i 


\ 

J 

I 


1  c - - 

2  SUBROUTINE  CAPINTt XIS,D,DHIT,MD,LHIT) 

3  C!  !! 

4  CM!  DOES  RAT  HIT  END  CAP? 

5  CM! 

o  DIMENSION  XIS(3),D<3),XT<3) 

7  LOGICAL  Li! I T ,LDE BUG , LTEST 

8  CO.MMON/GEOMEL/A,  B,  ZC  (2  ) ,  SNCt 2  >  .CMC  (2 ) . CTC(  2 ) 

V  COMMON/1 EST/LDc BUG, LTEST 

10  LHIT=. FALSE. 

1 1  DHIT=0. 

12  CM*  STEP  THRU  END  CAPS 

13  DO  40  MC=1 ,2 

14  IFtMD.ME.il. AND.MC.NE.MD)  GO  TO  40 

1 5  NC=MC 

lo  I  Ft  VC. EG. 2 )  NC-" I 

17  AN=-XI S( 1) *NC*CNC( MC )+( XISC3 )-ZC(MC ) )*NC*SKC(MC) 

18  DN  =-  NC  *C  KC  t  MC )  *D  <  1  )+NC*SNC(MC)*Dt3 > 

IV  C* ! !  DOES  RAY  HIT  END  CAP  PLANE? 

20  IE(AN*DN.GE.O. )  GO  TO  40 

21  CM!  COMPUTE  POINT  XT,  WERE  RAY  HITS  END  CAP  PLANE 

22  DO  10  N= 1,3 

23  10  XT  (M  )=XISt  N )-AN*D(  N 1  /DN 

24  RHCT=XT(  1  )*XT(  1  )+X7(2)*:<T(2)+(  XT(3  l-ZCO'C)  )*(XT(3)-ZC<MC>) 

26  RHOT=SORT;RHCT) 

26  AE=A/SNC(VC) 

27  CM!  IS  HIT  PCINT  ON  END  CAP? 

2b  Ir (RHOT.GT. AE. AND.RHOT.GT. B)  GO  TO  40 

2 v  IFtRHOT.LT.AE. AND. RHOT.LT.B)  GO  TO  20 

30  VE=BTAN2(A*XT<2> ,B*XT( 1 > ) 

21  CV'ECOStVE) 

32  SVE=<SINtVE ) 

33  KHO=SORT (AE*AE*CVE*CVE+B*B*SVE*SVE> 

34  1  Ft  RHOT.GT. RHO)  GO  TO  4.) 

36  20  CONTINUE 

So  CM!  CALCULATE  DHT,  THE  DISTANCE  FROM  SOURCE  TO  HIT  POINT 
-T  l)HT=v>. 

3lj  DO  3»!  N-l,3 

3V  Sc  DHTsDHT+(XT(N)-XIStN ))*( XT(M)-XIStN) ) 

40  DHT=S0int.)HT)+l.E-5 

4  1  IFtLHIT./ND. (DHT.CT.DHIT) )  GO  TO  40 

42  LHITa. TRUE. 

4  3  DHIT  =OH'i 

*.4  IF (MD.LE.O)  GO  TO  40 

46  DO  36  N= I , 3 

40  S6  XI  St  N)  =XT  ( 11) 

47  40  CON! !UUE 

*.b  I  Ft. NOT. LTEST)  RETURN 

4  V  WRITE to,  VOv!) 

60  Veil  FORM Alt/,'  TESTING  CAPINT  SUBROUTINE') 

61  WIITEto,*)  XIS 

62  WRITE(6,*)  D 

63  FRITHtb,*)  DHIT,.’!D,LHIT 

64  RETURN 

66  END 
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CYLINT 

PURPOSE 

To  determine  if  a  ray  travelling  from  a  given  source  location 
in  a  given  direction  will  intersect  the  elliptic  cylinder. 

PERTINENT  GEOMETRY 


Figure  49a— I (lustration  of  ray  that  hits  infinite  cylinder. 


Figure  49b— Illustration  of  ray  that  doesn’t  hit  finite  cylinder 
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Figure  50b— Illustration  of  ray  that  hits  finite  cylinder 


Figure  51—  II lustration  of  source  which  cannot  Illuminate 
curved  cylinder  surface.  RH0S<RH0E. 


METHOD 


This  subroutine  determines  if  a  ray  eminating  from  a  source 
in  a  given  direction  hits  the  finite  elliptic  cylinder.  First  the 
distance  from  the  source  to  the  cylinder  axis  Is  compared  to  the 
radius  of  the  cylinder  to  see  if  the  source  can  illuminate  the 
curved  surface  of  the  cylinder  as  illustrated  in  Figure  51.  If 
it  can  not,  then  the  subroutine  checks  whether  the  ray  hits  an  end 
cap.  If  it  is  possible  to  hit  the  curved  surface,  the  ray  is  checked 
to  see  whether  or  not  it  is  aimed  in  the  direction  of  the  infinite 
cylinder  as  shown  in  Figure  49. 

If  the  ray  travels  towards  the  cylinder,  the  routine  compares 
dot  products  in  order  to  determine  if  the  ray  will  hit  the  infinite 
cylinder: 

If  D*Tj>T]^T2  and  D^Tg^T^Tg,  the  ray  hits  the  infinite  cylinder 
(see  Figure  49a). 

A  A  A  A  A  A  A  A 

If  D«T,<T,.T2  or  D«T2<T,.T2,  the  ray  does  not  hit  the  infinite 
cylinder  (see  Figure  49b)7 

The  subroutine  then  solves  a  quadratic  equation  to  determine 
the  intersection  point.  The  details  are  given  on  pages  90-96  of 
Reference  1.  A  test  is  then  made  as  to  whether  or  not  this  inter¬ 
section  point  lies  on  or  off  the  limits  of  the  finite  cylinder  (see 
Figures  50a  and  50b). 


FLOW  DIAGRAM 


CYLINT  (XS.O.PHSA.DHIT.LHIT.LBOF) 

INPUT  VARIABLES 

XS  x,y,2  components  of  source  location 
(or  point  from  which  ray  originates) 

In  ACS 

0  x,y,a  coaponcnts  of  ray  propagation 
direction  In  ACS 

PNSR  phi  component  of  propagation  direction 
In  ACS 

L80F  set  true  If  ray  origin  point,  W,  Is  not 
the  actual  source  location 

OUTPUT  VARIABLES 

DHIT  distance  froa  source  to  nearest  hit  point 

LHIT  set  true  If  ray  hits  cylinder  or  end  cap 


LHIT  •  .FALSE. 


source  Illuminate 
^cylinder  curved  surface^ 
^  J.v.nipare  radljjx^ 


Does 

ray  travel  towards 
eyl Inner? 


Specify  unit  vectors  of  source 
rays  tangent  to  cylinder  (2*d) 


Does  ^ 
ray  hit  Infinite 
cylinder? 

(compare  dot  products). 


SYMBOL  DICTIONARY 


BM  PARAMETER  USED  IN  COMPUTING  HIT  POINT  t 

BPL  PARAMETER  USED  IN  COMPUTING  HIT  POINT  2 

BTD  X  AND  Y  COMPONENTS  OF  UNIT  VECTORS  OF  SOURCE  RAYS  TANGENT 
TO  CYLINDER 
CPS  COSINE  OF  PHSR 

CVE  COSINE  OF  VE 

D  RAY  PROPAGATION  DIRECTION  IN  REF  COORD  SYS 
012  DOT  PRODUCT  OF  SOURCE  VECTORS  TANGENT  TO  THE  CYLINDER 
UN  X-Y  PLANE) 

DDI  DOT  PRODUCT  OF  THE  PROPAGATION  DIRECTION  AND  Tl  TANGENT  • 

UNIT  VECTOR 

DD2  DOT  PRODUCT  OF  THE  PROPAGATION  DIRECTION  AND  T2  TANGENT 
UNIT  VECTOR 

DHIT  DISTANCE  FROM  SOURCE  TO  {NEAREST)  HIT  POINT 
DM  DISTANCE  FROM  SOURCE  TO  HIT  POINT  I 

DPL  DISTANCE  FROM  SOURCE  TO  HIT  POINT  2 

DTD  DOT  PROOUCT  OF  SOURCE  VECTORS  TANGENT  TO  THE  CYLINDER  (X-Y  PLANE) 

DXY  DOT  PRODUCT  OF  RAY  FROM  ORIGIN  TO  SOURCE  AM)  PROPAGATION 

DIRECTION  (IN  X-Y  PLANE) 

F  COMPUTATIONAL  VARI ABLE 

FG  COMPUTATIONAL  VARIABLE 

FGH  COMPUTATIONAL  VARIABLE 

FH  COMPUTATIONAL  VARIABLE 

G  COMPUTATIONAL  VARIABLE 

GH  COMPUTATIONAL  VARIABLE 

H  COMPUTATIONAL  VARIABLE 

LBDF  SET  TRUE  IF  RAY  ORIGIN  XS  IS  NOT  THE  SOURCE  LOCATION 

LHIT  SET  TRUE  IF  RAY  HITS  CYLINDER  OR  END  CAP 

PHSR  PHI  COMPONENT  OF  PROPAGATION  DIRECTION  IN  RCS 
RHOE  RADIUS  FROM  Z  AXIS  TO  POINT  WERE  RAY  FROM  ORIGIN  TO  SOURCE 
INTERSECTS  Tf€  CYLINDER 
RHOS  DISTANCE  FROM  SOURCE  TO  Z  AXIS 

SPS  SINE  OF  PHSR 

SVE  SINE  OF  VE 

TOP  COMPUTATIONAL  VARIABLE 

TXI  X  COMPONTNT  OF  TANGENT  UNIT  VECTOR,  Tl 

TX2  X  COMPONENT  OF  TANGENT  UNIT  VECTOR,  T2 

TY1  Y  COMPONENT  OF  TANGENT  UNIT  VECTOR,  Tl 

TY2  Y  COMPONENT  OF  TANGENT  UNIT  VECTOR,  T2 

VE  ELL  ANGLE  OF  SOURCE  LOCATION  IN  ERCS 

VM  ELL  ANGLE  DEFINING  HIT  POINT  I  ON  CYLINDER  IN  ERCS 

VPL  ELL  ANGLE  DEFINING  HIT  POINT  2  ON  CYLINDER  IN  ERCS 

VT  ELL  ANGLE  DEFINING  HIT  POINT  ON  CYLINDER 

CLOSEST  TO  SOURCE 
VTD  „  NOT  USED 

XPN  f  USED  IN  SEVERAL  CASES  TO  DEFINE  HIT  POINT 
YPN  {  (X.Y.Z  COMPONENTS  IN  RCS)  ON  CYLINDER 
ZPM  (  (USED  IN  VARIOUS  FORMS) 

XS  SOURCE  LOCATION  (OR  POINT  FROM  WHICH  RAY  ORIGINATES)  IN  RCS 
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CODE  LISTING 


2  SUBROUTINE  CYLINTt XS,D,PHSR,DHIT,LiiIT, LBDF) 

2  cm 

4  Cit!  DOES  MAY  HIT  CYLINDER? 

t>  cm 

0  DIMENSION  D(3)  ,XSt3)  ,VTDi'2 ),  BTD(4) 

7  LOGICAL  LHIT ,LBDF,LPLA,LCYL, I.0EBlK>,l  TEST 

b  COMMON/OEOMEL/ A , B,  ZC <2  > , SUCC 2 ) ,C NT (2 ) , CTCI 2 ) 

V  COMMON/PIS/PI,TPI,DPR,RPD 

10  COMMON/EflDSCL/DTS,  VTS<2) , BTSC4) 

•I  I  COMMOfl/LPLCY/LPL  A .  LC YL 

12  C0MM0M/1EST/U)EBUG,LTES7 

13  LH1T*. FALSE. 

14  DHIT=W. 

15  IF(.NOT.LCYL)  GO  TO  50 

lo  RH0S*SQR1 ( XS( l J*XS( 1 )*XS(2  )*XS(2  )> 

17  cm  CAN  SOURCE  ILLUMINATE  CYLINDER  SURFACE? 

IU  IF  tRHQS.CT.A.AtJD.RHOS.GT.3 )  CO  TO  5 

IV  IFtRHOS.LT.A.AND.HHOS.LT.B)  GO  TO  20 

20  VE*UTAN2 (A*XS(2) ,3*XS( f ) ) 

21  CV E-COS <VE) 


22  SVE-SIfl(VE) 

23  HHOE=>S0RT(  A*A*CVE*CVE*B*B*SVE*SVE) 

24  IF(RHOS.LE.iiHOE)  GO  TO  30 

25  5  CONTINUE 

20  CPS»COSCPHSK) 

27  SPS-SI '!( PHSH ) 

2b  0XY=XS( 1 )*CPS*XS(2)*SPS 

2V  cm  DOES  «A\  TRAVEL  TOWARDS  CYLINDER? 

-O  cm  (CHEC.<  SIGN  OF  DOT  PRODUCT  Or  PROP.  DIR  AND 

21  cm  SOURCE  LOCATION  VECTOR) 

32  I'FCI  XY.GT.O. )  CO  TO  50 

23  IFiLNDr)  go  TO  Ilf 

24  cm  SPECIFY  CYLINDER  TANGES  UNIT  VECTORS 

45  -I2-DTS 

2b  TXl-HTSil) 

j?  TYI-BTSI2) 

3b  7X2«t)7S<3) 

2v  TY2®B»’S«4) 

40  00  TO  20 

*  I  10  CALL  TANGIDTO.  VTD.RTD.XS) 

42  DI2«0TQ 

43  TM*BY0t  l  > 

*4  TY 1*815(2) 

«5  »X2*3TDfj> 

4o  TY2*sST0(4> 

4>  20  CONTINUE 
4U  LO I •CPS*?  X l ♦ SPS*  T Y I 

4  V  Ei)2*C?5*T>;2*S?S*7Y2 

W  C!U  (.WARE  DOT  NOOUCTS  TO  De7iRf«IK£  IP  RAY  HITS 

51  cm  I  Nr  i  Kile  CYLINT^D 

52  JrtL3l.LT.DI2.iM.082.LT.Di2>  GO  TO  5** 

54  r*A*S?S 

Hi 

55  MXSii)iSi>S-X5t2)*CPS 
5® 

5 1  Fv*r*r«t«6 

5v  K»H»rH*F3(»FG*Cji 

«*?  SFiFai.LT.D. )  3J  10  50? 

61  FPL* ( l FI  * SSsil l  j'-GP,)  > /F«l 

fe2  t4MHHK»QiSTtpSii  *)*■*£) 

a.  ’  7C£P»{-.-*rU-*L*F»A: 

64  V>X*r.-M-?<»5SP,SPU 

65  Jv^ififclM'l/l! 

tfc  cm  cocwiTb  tho  nr.  «auj:s  aio  coifcr.  distajcs 
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0?  Cl  li  FROM  SOURCE  10  EACH  POINT 
OB  VM*BTAN2 ( TOP , DM ) 

OV  XPM*A*COSC VPL) 

?0  YPM*B*SIN(  VPL) 

7  1  DPL»S0R7(  ( XPU-XS(  I  ))**2*(YPM-XS(2) )**2 ) 

*.2  XPH«A*COS<  VM ) 

73  YPM»B*SIN(VM) 

74  OM»SQRT<(XPM»XS<  I ))*«♦< YPM-XS(2))**2) 

75  Clll  SPECIFY  HIT  POINT  CLOSEST  TO  SOURCE 

70  VT*VM 

.77  IFtDPL.LE.ON)  VT-VPL 

78  XPH- A*CCSCVT1 

7  V  ZPR-D(3)*<XPM-XS(I)>/D<I) 

Bid  ZPS*ZPM*XS(3) 

81  Clll  IS  HIT  POINT  ON  FINITE  CYLINDER? 

82  IF(ZPS.GT.ZC(I  )4XPK*CTCM).0R. 

83  2ZPS.LT. "C(2)*XPH*CTC<2)>  (JO  TO  40 

84  XPM*XPM-XS( I ) 

85  YPH»B*S1N(VT)-XS(2) 

80  Clll  CALCULATE  DISTANCE  FROM  SOURCE  TO  HIT 
87  DHIT»SGhT(  XPU*XP«*  YPU*  YPR^ZPWZPM » ♦  i  .E-5 

SB  LHIT-.TRUE. 

8V  CO  TO  SC 

VO  :t)  CONTINUE 

VI  cm  IF  SOURCE  CANNOT  ILLUMINATE  CYLINDER  SIDES,  IS  SOURCE 
V2  C!!!  INSIDE  CYLINDER? 

vj  if(xs(3).gt.(zcm>4XS(  i>*cTcm>>  co  to  40 

V4  1F(XS(3).LT.  <ZC(2)*XS<  I )*CTC(2)!)  GO  TO  40 

VS  LHIT-.TMJE. 

VO  CO  TO  5« 

V?  *0  CONTINUE 

VB  cm  n-  RAY  IS  NOT  SH ADORED  BY  CYLINDER.  CHECK  TO  SEE  IF  9 
WCII!  HITS  END  CAP 
lfc«  CAa  CAPINTCXS,O.DHir,0,LHIT> 

101  SO  IF(.NOT.LTEST)  RETURN 
182  NRITEtO.900) 

103  vea  FORMAT!/,'  TESTING  CYLINT  SUBROUTINE') 

104  NRITE(6,*>  XS 

105  *RITE<8,*)  D 

10o  NRITE(6,*)  PhSR.DHIT.LHIT.LiWF 

107  RETUUN 


PURPOSE 


diffraction  points  are  then  Improved  by  a  first  order  Taylor  series 
Interpolation  scheme.  The  details  are  given  on  pages  125-127  of 
Reference  1 .  The  two  to  four  correct  diffraction  points  are  veri¬ 
fied  by  checking  to  see  which  of  the  remaining  points  satisfy 
the  laws  of  diffraction. 


FLOW  DIAGRAM 
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Perform  eekuletions  to 
lapreve  KCuricy  of  root 


Celeulete  S?SQ,  tn«  difference  In 
dot  products  of  the  edge  vector 
end  incident  *na  dfffrected 
unit  vectors 

. — J  -I 1  „ . 


fes 


f»s 

i 


ifii  rsei  »3  t‘s;  s( 
correct  reels 


Setv-ri* 
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SYMBOL  DICTIONARY 


At 

C 

CC 

CV 

D4 

DD 

DEEX 

DEEY 

DEEZ 

DEL 

DENI 

DEN2 

DEN3 

DEN5 

DM 


DOTQI 

D0TQ2 

DSSX 

DSSY 

DSSZ 

DV 


EEX 

EEY 

e:-2 

EP50 


•- 

. 


ERCS 
E/C  7 


HALF  LENGTH  OF  END  CAP  (HALF  LENGTH  OF  LINE  CREATED 
BY  INTERSECTION  OF  END  CAP  AND  XZ  PLANE) 

COSINE  OF  VR 

POLYNOMIAL  EO.  COEFFICIENTS 
COMPUTATIONAL  VARIABLE 
COMPUTATIONAL  VARIABLE 
COMPUTATIONAL  VARIABLE 

X,Y,Z  COMPONENTS  OF  VECTOR  FROM  DIFFRACTION 
POINT  TO  CENTER  OF  END  CAP  IN  RCS 
TEST  VARIABLE 

MAGNITUDE  OF  UNNORMALIZED  EDGE  UNIT  VECTOR 
DISTANCE  FROM  SOURCE  TO  IMPROVED  DIFFRACTION  POINT 
LENGTH  OF  INCIDENT  RAY  VECTOR 
COMPUTATIONAL  VARIABLE 

X,Y,2  COMPONENTS  OF  UNIT  VECTOR  OF  PROPAGATION 
DIRECTION  IN  END  CAP  COORDINATE  SYSTEM 
DOT  PRODUCT  OF  EDGE  VECTOR  AND  INCIDENT  RAY 
DOT  PRODUCT  OF  EDGE  VECTOR  AND  DIFFRACTED  RAY 

X,Y,Z  COMPONENTS  OF  VECTOR  TANGENT  TO  DIFFRACTION  POINT 
IN  END  CAP  PUNE  IN  RCS 

CHANGE  IN  ELL  ANGLE  V  CALCULATED  TO  IMPROVE 
ACCURACY  OF  DIFFRACTION  POINT 

X,Y,Z  COMPONENTS  OF  RAY  TANGENT  TO  DIFFRACTION 
POINT  IN  RCS 

DIFFERENCE  IN  DOTQI  AND  DOTQ2  (ERROR  TEST 
VARIABLE) 

(NOR  A  VARIABLE)  ABBR.  FOR  ELLIPTICAL  REFERENCE 
COORDINATE  SYSTEM 


EYU  X.Y.Z  COMPONENTS  OF  NORMALIZED  EDGE  UNIT  VECTOR 
EZO  J  IN  RCS 

I  DO  LOOP  VARIABLE 

I  DEL  TEST  VARIABLE 

IV  ELL  ANGLES  DEFINING  PERMISSABLE  DIFFRACTION  POINTS 

IN  ERCS  (IN  DEGREES,  ROUNDED  OFF  TO  NEAREST  INTEGER) 
J  ELL  ANGLE  DEFINING  DIFFRACTION  POINT  IN  ERCS  IN  DEG. 
K  DO  LOOP  VARIABLE 

N  INDEX  VARIAELE  (ALSO  NUMBER  OF  PERMISSABLE 

ROOTS) 


NC  END  CAP  WHERE  DIFFRACTION  OCCURS 
NCC  SIGN  CHANGE  VARIABLE 

P  POLYNOMIAL  EQ.  VARIABLE 

Q  POLYNOMIAL  EQ.  VARIABLE 

OC  COMPLEX  CONJ.  OF  Q 

R  POLYNOMIAL  EQ.  VARIABLE 

RC  COMPLEX  CONJ.  OF  R 

ROOT  ROOTS  OF  POLYNOMIAL  EO  RETURNED  FROM  SUB.  POLYRT 

S  SINE  OF  ELL  ANGLE  V  (ALSO  POLY.  EQ.  VARIABLE) 

SSXl 

SSY  )  X,Y,Z  COMPONENTS  OF  VECTOR  INCIDENT  ON  EDGE 
SSZ  J  IN  RCS 

SXQ  1 

SYQ  >  X,Y,Z  COMPONENTS  OF  UNIT  VECTOR  OF 
SZQJ  PROPAGATION  DIRECTION  OF  INCIDENT  RAY  IN  RCS 
V  ELL  ANGLES  DEFINING  DIFFRACTION  POINTS  IN  ERCS 

VQ  ELL  ANGLE  DEFINING  DIFFRACTION  POINT  (IMPROVED 

ACCURACY) 

VR  ELL  ANGLE  DEFINING  DIFFRACTION  POINT 

VT  ELI.  ANGLE  DEFINING  DIFFRACTION  POINT  (IMPROVED 

,  ACCURACY)  IN  DEGREES 

xsm7 

YSM>  X,Y,Z  COMPONENTS  OF  SOURCE  LOCATION  IN 
ZSMj  END  CAP  COORDINATE  SYSTEM 
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CODE  LISTING 


1  c - 

2  SUBROUTINE  OFPTCL(V.NC) 

3  c!  n 

4  Cl ! !  DETERMINES  THE  DIFFRACTION  POINT  ON  THE  CURVED 

b  CU!  EDGE  OF  THE  ELLIPTIC  CYLINDER  END  CAP 

6  0!!! 

7  COMPLEX  CC ( 9 ) ,  ROOT ( 8 ) ,  CV  ,0  ,QC,  R ,  RC 

b  DIMENSION  IV (8 ) , V(4) ,DM(3) 

V  COMMON/CEOMEL/A, B,ZC(2 ) , SNC<2) ,CNC<2 ).CTCC2> 

1 0  CQMMON/SOR I NF/XS <  3 ) ,  VX  S<  3 , 3 ) 

•il  COMMON/PIS/P  I,  TP  I,  DPR,  RPD 

12  COMM  ON/D I R/D  <  3 ) , THSR , PHSR , SPS, CPS, STHS , CTHS 

1 3  NCC=NC 

U  IF(NC.CT.I)  NCC=-i 

lb  DO  ID  1  =  1, 8 

10  IV(t)=<-m}0 

17  IFU.LE.4)  V(n=-tt?£P, 

18  10  CONTINUE 

IV  DM  ( 1  )=SNC<  NC  )*D(  1 )  +CHC  f  NC)  *D  (3 ) 

20  DM(2)=D<2) 

21  DM ( 3 ) =-CNC ( NO ) *D ( 1 )+SNCCNC)*D(3) 

22  XSM*SNC(NC )*XS(  I )+CNCCNC)*(XS<3>-ZC<NC)) 

23  YSM*XS(2 ) 

24  ZSM=~CNC(NC)*XS< I  )+SNC(NC)*(XS<3  >-ZC(?:C) ) 

2  b  AE=A/.cNO(NC) 

2c  CU!  SET  UP  POLYNOMIAL  EQUATION 

27  P=AE*AK-B*8 

28  IF(ABS<AE-B).LT. l.E-V)  P=0. 

2  v  Q-CM  PLX  ( AE  *X  S.V ,  -  B*  YSV ) 

2kj  GC<<C0NJ0<0  > 

3  I  K=CMPLX ( b*DiV<2  ) ,  AE*DM(  1  ) > 

32  KC=CONJC(H) 

33  S=AE*AE+6*B+2.*(XSM*XSM+YSM*YSK+ZSM*ZS>.0 

34  CC(9)=P*(P+R*R) 

3b  CC< 8 )*-4. *C*(P+R*R) 

30  CC  <  7  )=2 .  * ( 2.  *Q*Q>S*R*R+P*R*RC) 

37  CC ( 6 )= 4 . *  <  OC* ( P-S*R ) -2 . *Q*R*RC ) 

38  CC(5)»O.PlX<fc, ,0.) 

3  V  CC  <  5 ) =CC  C  5 ) + P* ( R*R+RC*RC ) -2 .  *(  P*P+4 .  *-->*00 )  +4 .  *S*R*RC 

4t  00  (4  )=CCNJG(  CC  ( 6  ) ) 

4  1  00(3 )=CCNJG( CC < 7  >  > 

42  00(2  >=CCNJG( CCC8 ) > 

43  CC ( I  )=CGNJ G<  CC  ( V  ) ) 

44  C J ! !  SOLVE  POLYNOMIAL  EQUATION 

4b  CALL  POL YHT(b,OC, ROOT) 

46  N=0 

47  0!!!  STEP  THRU  ROOTS 

48  DO  200  1=1 ,S 

4 V  0!!!  CHECK  TO  SEE  IF  ROOT  IS  VALID 

50  HM=bAES( ROOK  I ) ) 

bl  IF(RM.LT.0.1 )  GO  TO  200 

b2  CV=DPH*CMPLX (0. , -1 . ) *CLOG( ROOTC I ) ) 

bo  VT=ADS( l.-RM) 

b4  IFCVT.G1.0.I )  GO  TO  200 

bb  IF (REAL(CV ) .CE.0. )  J=REAL(CV >+.5 

bo  IF(PEAL(OV).LT.O.)  J»REALCCV)-.5 

b7  I F( J.LT.0)  J=J+36o 

bb  I F (J.Gfc.360)  J=J-360 

bV  IF(N.EO.0)  GO  TO  151 

00  DO  150  K=l ,N 

ol  IDEL=IALS(J-IV(K )) 

02  Oil!  IS  ROOT  UNIQUE?  IF  SO  ADD  TO  LIST  OF  PER.MISSABLE  ROOTS 
6o  JFUDEL.LE.I  .OR.  IDEL.GE.3bV)  GO  TO  200 

64  ibil  CONTINUE 

ob  Ibl  N=N+ I 

co  IV (N )=J 
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6 7  200  CONTINUE 
08  IF(N.EQ.0)  GO  TO  303) 

09  J*0 

70  Cll!  STEP  THRU  PERMISSABLE  ROOTS 

71  DO  300  1*1 ,N 

72  CIS!  PERFORM  CALCULATION  TO  IMPROVE  ACCURACY  OF  ROOT 

73  VR*I V( I )*RPD 

7  S*SIN(VK) 

7b  C«COS(VR) 

7o  DSSX*-A*S 

•77  DSSY=B*C 

78  DSSZ*-A*CTC(NCi*S 

7V  DEEX=-A*C 

80  DEEY*-B*S 

81  DEEZ*-A*CTC(NC>*C 

82  SSX*A*C-XSM 

83  SSY=B*S-YSM 

8  4  SSZ*  A*CTC ( NC ) *C- XS  C  3  5+ZC  <  NC ) 

8b  DEN3*SQRT<SS X*SSX+SSY*SSY+SSZ*SSZ) 

So  EEX*DSSX 

87  EEY*DSSY 

88  EEZ®DSSZ 

89  DD=<EEX*SSX+EEY*SSY+EEZ*SSZ)/DEN3 

90  DEN5=>DEN3*(  EEX*DM< 1 )+EEY*DMC2)+EEZ*DM( 3) )-EEX*SSX-EEY*SSY-EEZ*SSZ 

9 1  D4*EEX*DSSX+EEY*DSSY+EEZ*DSSZ+DEEX*SSX+DEEY*SSY+DEEZ*SSZ 

92  D4*D4-DD*(  EEX*DM(  I  )+EEY*DM  (2  HEEZ*DM(3  )) 

93  D4«=D4-DEN3* ( DEEX*DM ( 1 ) +D EEY*DM (2 )+DEEZ*DM< 3 ) ) 

94  DV=DEN5*DPR/D4 

9b  IF(ABS(DV) .GT.2. )  GO  TO  300 

9o  VT*IV{ I )+DV 

97  VQ*VT*RPD 

98  S*SIN(VC) 

99  C=COS(VQ) 

1 00  DEN  I «A*A*S*S+B*B*C*C+A*A*S*S*CTC ( NC ) *CTC ( NC ) 

101  DENI*SQkT(DENt) 

102  DEN2  »< A*C- XSM ) * ( A*C-XSM)  +  ( B*S- YSM ) * ( B*  S- YSM ) 

103  DEN2=SORT(DEN2+<A*CTC(NC)*C-XS(3)+ZC(riC)) 

104  2*<A*CTCCNC)*C-XS<3)+ZCCNC>)> 

10b  EXQ«-A*S/DENI 

106  EYQ=B*C/DEN1 

107  EZQ=-A*CTC(NC)*S/DEN1  ' 

108  SXQ*(A*C-XSM)/DEN2 

109  SYQ= ( B*S-Y  SM ) /DEN2 

110  SZQ“< A*CTC(NC) *C-XS( 3)+ZC(NC  )>/DEN2 

111  I  Clll  CALCULATE  EPSQ,  THE  DIFFERENCE  IN  DOT  PRODUCTS  OF  THE  EDGE 

112  Cl  11  VECTOR  AMD  INC.  AND  DIF.  PROPAGATION  UNIT  VECTORS 

113  DOTQ1«SXQ*EXQ+SYO*EYO+SZO*EZO 

114  DQT02*DM( 1 )*EX(HDM(2 )*EYQ+DM(3 )*EZQ 

lib  EPSQ«DOTQI -DOT02 

116  Clll  DO  INC.  AND  DIF.  RAYS  SATISFY  LAW  OF  DIFFRACTION  (EPSQ-0) 

117  IF(ABS(EPS0).GT.l.E-3)  GO  TO  300 

118  IF(VT.GE.360.)  VT-VT-360. 

119  IFIVT.LT. 0.)  VT«360.+VT 

120  IFCJ.EQ.0)  GO  TO  289 

12  1  DO  288  K*l  ,J 

122  DEL«ABS<VT-V<K>> 

123  Clll  IS  THE  ROOT  UNIQUE?  IF  SO,  ADD  TO  LIST  OF  CORRECT  ROOTS 

124  IF(DEL.LT.0.5.OR.DEL.OT.359.5)  GO  TO  300 

12b  288  CONTINUE 

120  289  J-J+l 

127  V(J)«VT 

12b  300  CONTINUE 

129  3031  RETURN 

130  END 
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DFPTWD 


PURPOSE 

To  determine  the  diffraction  point  akmg  the  line  tangent  to  edge 
ME  of  plate  MP  for  given  source  location  XS  and  diffracted  ray  direction 
D. 


PERTINENT  GEOMETRY 


Figure  53— Geometry  used  in  defining  diffraction  point  on  plate  edge. 
METHOD 

TheAdjffraction  point  is  found  using  similar  triangles.  Since 
cos0o  =  D«V  is  known,  then 

7IJ  =  7  +  (S  coteQ  +  P}V  . 

7?  «  x  XS(1)  +  y  XS(2)  +  z  XS{3) 

XD  =  x  XD(1)  +  y  XD(2)  +  z  XD(3) 

7  =  x  X(MP,ME,1)  +  y  X(MP,ME,2)  ♦  z  X(MP,ME,3) 

D  =  x  D(l)  +  y  D(2)  +  z  D(3) 
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■T^'W  7T*Tt7i~  V  *?  PV.7'1  ’■*}  O  PC  JJIJJ-  K  i 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


CTB  COTANGENT  OF  BETA 

OV  COSINE  OF  BETA 

ME  EDGE  INHERE  DIFFRACTION  OCCURS 

M°  PLATE  WERE  DIFFRACTION  OCCURS 
N  DO  LOOP  VARIABLE 

P  DOT  PRODUCT  OF  EDGE  VECTOR  AND  VECTOR  FROM  CORNER 
ME  TO  SOURCE 

S  PERPENDICULAR  DISTANCE  FROM  SOURCE  TO  EDGE  ME 
SP  DISTANCE  FROM  SOURCE  TO  DIFFRACTION  POINT 
SX  VARIABLE  USED  TO  CALCULATE  S 

VI  INCIDENT  HA)  UNIT  VECTOR 

XD  LOCATION  OF  DIFFRACTION  POINT 

XS  SOURCE  LOCATION 


CODE  LISTING 


1  c - — - 

2  SUBROUTINE  DFPTWD< XS ,DV, VI ,SP, XD,ME, KP ) 

2  C!  II 

4  C: ! !  DETERMINATION  OF  THE  DIFFRACTION  POINT 
b  C!U 

6  DIMENSION  XS (3) , XD(3),VI (3) 

'/  COMMON/GEOPLA/XC  I4,6,3),V(  14, 6, 3), VP (14, 6, 3)  ,VN(  14,3) 

8  2,MEP( 14),MPX 

V  CTB»DV/SOST( 1 .-DV*DV ) 

It)  P-0. 

11  DO  10  N« 1,3 

12  10  P-P+ ( XS  <  N ) -X  <  MP, ME , N ) ) *V ( MP, ME , N ) 

13  S— 0. 

14  DO  20  N-l,3 

lb  SX-XS(N)-X(MP,ME,N)-P*V(MP,ME,N) 

lo  20  S=S+SX*SX 

r»  S-SORT(S) 

18  DO  30  N*!,3 

IV  20  XD(N)»XU(P,ME,N)+<S*CTB+P)*V<MP,ME,N) 

20  SP*0. 

21  DO  40  N-1,3 

22  VI(N)=XD(H)-XS(N> 

23  40  SP-SP+VI (N >*VI <N) 

24  SP-SORT(SP) 

2*3  DO  50  N-1,3 

26  50  VI  (Nl-VKHl/SP 

27  RETURN 

28  END 
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DFRFPT 

PURPOSE 

To  determine  the  ray  path  for  a  source  ray  which  is  diffracted 
off  of  a  given  edge  on  a  given  plate  and  then  reflected  in  a  olven 
direction  by  the  cylinder. 

PERTINENT  GEOMETRY 


z 


xs 

Figure  54— Ray  diffracted  by  plate  and  then  reflected 
by  the  cylinder* 


METHOD 


The  diffraction  point  on  a  plate  edge  and  the  reflection  point 
on  un  elliptic  cylinder  for  a  diffracted-reflected  ray  In  a  given 
observation  direction  are  calculated  via  an  Iterative  process.  The 
equations  are  based  on  a  first  order  Taylor  series  approximation  to 
the  equations  governing  the  laws  of  reflection  and  diffraction.  The 
details  of  the  analysis  are  given  on  pages  155-161  of  Reference  1. 

The  iteration  process  follows  the  same  basic  scheme  outlined  In  the 
write  up  for  subroutine  RFPTCL.  The  Initial  start  up  procedure  for 
this  subroutine  is  composed  of  defining  a  known  reflection  point  which 
is  taken  to  be  on  the  rim  of  the  finite  cylinder  closest  to  the  plate 
edge  under  consideration  and  then  determining  the  corresponding  dif¬ 
fraction  point  on  the  plate  edge.  The  details  of  this  procedure  are 
discussed  on  paces  161-163  of  Reference  1. 


FLOW  DIAGRAM 


* 


OHW  (V*,tt,OOTP,$IIH,VIH,¥I.XO.VSOH,VSD. 

0£,HE,HP,ll*C) 

MWT  VM1AU.ES 

HP  mmtotr  of  plate  where  diffraction  occurs 

HE  edga  on  piste  HP  «ftare  diffraction  occurs 

IfiRC  Mt  true  If  starting  point  data  exists 
frt*  previous  pattern  angle 

OUTPUT  VMIAU.ES 

v*  elliptical  angle  defining  reflection 
point  on  cylinder  (2-d) 

XB  x.y.z  ceaponents  of  reflection  point 
location  on  cylinder 

OOTP  test  variable  used  to  Insure  reflection 
■as  computed  properly 

SPH  nagnltude  of  unnomaiiied  cylinder  aortal 

V1H  distance  trim  diffraction  point  to  reflection 
point 

VI  x.y.z  components  of  propagation  direction 
of  ray  Incident  on  Cylinder  In  PCS 

TO  x.y.z  components  of  diffraction  point 
location 

VSOH  distance  fron  tse  source  to  the  diffraction 
point 

VSD  x.y.z  conponents  of  propagation  direction 
of  source  ray  incident  on  diffraction 
point 

DC  dot  product  of  Incident  ray  propagation 
direction  and  unit  edge  vector  of  edge  H 

LC2C  set  true  if  starting  infomation  exists 
for  nett  patter*  angle 

Slot e  -  L0*C  is  used  both  as  an  input  variable  and 
an  output  variable 


SYMBOL  DICTIONARY 


CSCE  DOT  PRODUCT  OF  RAY  FROM  CORNER  OF  EDGE  ME 
TO  SOURCE  AND  EDGE  UNIT  VECTOR 
UPSh  PHI  ANGLE  INCREMENT  SIZE 

OR  REFLECTED  HAY  PROPAGATION  DIRECTION 

ORP  X.Y  COMPONENTS  OF  PHI  POLARIZATION  UNIT  VECTOR 
FOR  FIELD  REFLECTED  FROM  CYLINDER  IN  RCS 
DRY  X,Y,Z  COMPONENTS  OF  THETA  POLARIZATION  UNIT 
VECTOR  FOR  FIELD  REFLECTED  FROM  CYLINDER 
DISK  THETA  ANCLE'  INCREMENT  SIZE 

UU  CHANGE  IN  UR  FOR  ONE  ITERATION  USING  TAYLOR  SERIES  EXPANSION 

UV  CHANGE  IN  VR  FOR  ONE  ITERATION  USING  TAYLOR  SERIES  EXPANSION 

EkC  ERROR  DETECTION  VARIABLE 

FI  EQUATION  COVERNINC  THE  LAN  OF  REFLECTION 

FP  PARTIAL  DERIVATIVE  OF  FI  WITH  RESPECT  TO  PHI 

FT  PARTIAL  DERIVATIVE  OF  FI  KITH  RESPECT  TO  THETA 

rU  PARTIAL  DERIVATIVE  OF  FI  MITH  RESPECT  TO  UR 

FV  PARTIAL  DERIVATIVE  Or  FI  NITH  RF.SPEC1  TO  VR 

Cl  EQUATION  GOVERNING  THE  LAN  OF  REFLECTION 

CP  PARTIAL  DERIVATIVE  OF  GI  WITH  RES>ECT  TO  PHI 

GT  PARTIAL  DERIVATIVE  OF  GI  NITH  RESPECT  TO  THETA 

GU  PARTIAL  DERIVATIVE  OF  GI  WITH  RESPFCT  TO  UR 

GV  PARTIAL  DERIVATIVE  OF  GI  WITH  RESPECT  TO  VR 

IVD  NUKtER  OF  STjEPS  USED  IN  ITERATION 
UWC  SET  TRUE  IF  TfARTING  POINT  DATA  IS  AVAILABLE 
FRO*  PREVIOUS  PATTERN  ANCLE 
PHCR  PHI  COMPONENT  OF  REFLECTED  RAY  DIRECTION 

PKCk  PHI  COMPONENT  OF  REFLECTED  RAY  DIRECTI  Of! 

FMOfc  PREVIOUS  TIME  DFttFPT  WAS  CALLED  tCft 
PMESENT  VALUE  FOR  NEXT  TIME  ROUTINE  IS  CALLED) 

PHURP  PHI  ANGLE  OF  REFLECTED  RAY  DIRECTION  IN 
ROTATED  RCS  SYSTEM  ( BRANCH  CUT  PLACED 
BEHIND  CYL) 

PHSPu  PHI  ANGLE  OF  REFLECTED  RAY  DIRECTION  iff 

ROTATED  RCS  SYSTEM  lijMAUCN  CUT  PLACED  BEHIND 
CYLINDER > 

Sfc’PX  PARTIAL  DERIVATIVE  OF  SNX  WITH  RESPECT  TO  VR 

SNPY  PARTIAL  DERIVATIVE  OF  SNY  WITH  RESPECT  TO  VR 

SNX  1  X  Ai.P  Y  COMPONENTS  OF  NORMAL  TO  CYLINDER 
■'NY  l  ttt  PCS  COMPONENTS 
S.  P  *  NTfMEER  Or  STEPS  USES  IN  ITERATION 
|HU.<  THEU  COMPONENT  CF  REFLECTED  HAY  DIRECTION 
tfcLk  THETA  COMPONENT  CF  REFLECTED  RAY  DIRECTION  FROM 
MEVtCGS  TIRE  KFDFPT  WAS  CALLED  (OR  FOR 
NET  TIME  ROUTINE  IS  CALLED) 

URL  2  UHfmi&T  Or  STARTING  REFLECTION  PCI  iff 
coca.:  on  UN  CYLINDER 

VI  UNIT  VECTOR  OF  INCIDENT  RAY'  C*  CYLINDER 
VIU  PARTIAL  DERIVATIVE  6?  v{  WITH  RESPECT  TO  -IB 

VIV  PARTIAL  OCRIVaTJVI  OF  VI  wfTH  RESPECT  TO  VR 

VRU  ELL  ANGLE  OfcFiND'O  STARTING  REFLECTION 
POINT  ON  CYLlS&Tf 

vSO  t.Y.l  CUifPONcNTS  OF  PROP ~GAT{&N  VECTOR  OF  RAY 
FROM  SOURCE  TO  OIFK^TfCSt  POINT 
*U  *.Y,2  COMPONENTS  OF  S^RACTIGT  P»I«T  LOCATION 
tv  POINT  along  LINE  GRANT  TKS3MCH  EDGE  «? 

CLOSEST  TO  SOURCE 

M  X.Y.2  C*«POKKJTF  8F  REFLECTION  VOtuT 
L5ACATIOIN  OK  CYLSN8SR 

AMU  PARisAL  DEUIVATiVS  OF  8)  WITH  SESPl^TT  ?0  OS 

**V  PARslAL  LFHIVAUVF  OF  M  WITH  RESPECT’  TO  *‘8 


CODE  LISTING 


1  c — 

2 
j 

-  Cl !  I 
V  C 1  1 1 
C  Cl  1 1 
CiM 


V 

n 
1 1 
12 

13 

14 
l*J 
U 
1*. 

1.4 

IV 

i.V. 

2  i 

22  U  !! 
22 
2  *> 

2v 

it 

2*. 

Zl  Z 
2* 


*1 


c!  !! 
v!  M 

«.!  !! 

l!!! 

cl  l! 


4« 
.  k 


«k  « 
»  V 

»v 

.'1 


Av 


V* 

vv 

Vi 

V* 

•.**  *  in 

*s  »  . 


SUUItOUTI’Ib  M.rPT<VIl,XINnOTP,SNN,VIM.VI,XD,VS>f*,VSO 
2.DE,ae,ap,LDHO 

UETEWtltES  llffi  RAY  PATH  Kit)  A  CIPFHACTIOM  FHOR  A  PUTS  THEN 
A  REFLECTION  rl(0‘.’  A’J  ELLIPTIC  CYLINDER 

DIKENSICH  Lli t j),ISiP(2)  .!)(IT(  j),VI  (3), VI  /<  3)  .VlUm.VSW  3) 
DIMENSION  XP(3>,  XJ<  (3  ),Xk’(2>  ,XtiV(3)  ,Xi.  lit 3),XO<3) 

UIKEHSILH  I  vn«  l4,o),PHnHCU,6),TF0R<  M,6>,VR0U4,6),U«0<  14,6) 
DIMENSION  PSC.kPt  14,6) 

LOGICAL  LDiiC 

CO:-r.Ctl/CEOPL//X<  14,6,3), V(  I4,6,3),VP(14,6,3),VN<  14,3) 

2,aIiP<  14)  ,fcp* 

COMv.NG/SCM  I  NF/XS  <  3 ) ,  VXS<  3,3) 
CO,.::..Oil/;,l,j/n{3).T!fSK,l>HSt{.5PHS,CPHS,SrHS.CTHS 
CO.S.-Jt./CEOV.EL/A,H,7.CC2),S:;CC2),CfC(2),CTC(2) 
CU.*.'.(V)/lViJCCL/V;)CU4.o),UCC(2>,PtX:R(  14 ,6,2) , TOOK  ( 14,6,2) 
2,UT0C<  U,6),:in'C(!4,6,4)  ,£MX)(  14,0,2) 
r;Olftu”/LUNPi-iy?HKWC  K,A) 

COiJ<G}./PIS/PI.TP!,DPH,SPn 
PLACE  bUHCK  CUT  DEM  HU  CYLINDER 
Pt;SPH»P(  EU-3I  »hC.**P,f  =) 

Ir  {pr?SPi..GT.PI  )  PHSPK-PHS3R-TPI 
Ir  t PKSPL.LT.-? I )  PHS?a«PS-SPK*TPI 
CSCE«c. 
ro  ?  '>i,3 

each  esc £♦  ( :<$(  :;>  -x  { i*p,  me  ,h  )  )*v  ( ?;p,  ke  .” ) 

To  2  :>l,3 

X?  l  K )  C :  CE*v  <  a?,  ME  ,;:)*xt.“P  ,:t  S ,  j! ) 
vs:>»$$;><xscr:)-x;'(tn  )*cxs<r>-XPCN)) 
sssn 

IS  ST ikW.'A  POINT  DATA  AVAILABLE  FRO)'  PREVIOUS 

PATteiiN  A.'-OLt 

IHLDiC)  OQ  TO  40 

COJW»E  ma'A'-G  PC. I f  T 

STEP  eCiNS&S  ON  EDGE  »e.  A  HD  CHOOSE 

-4HCH  CffcNSN  TO  USE  AS  START  ISC  PIP. 

CFL’COi  ( PUIfc  f  HP  .BE ,  t) ) 

SPDC*SIMPiX*ft<VP,Bt;,  D) 

S»K»StNlTDCh{  JP,”g,  m 

cscict  £  s  «a*  m^stpcc*  <  2  >  «s  ?x*srrx:  <>  <  3  >  *tx;  t  *;>.  -  s .  i » 

CPPCCGS « Ppes  np ,  j: .i ,  2 )  l 
s?ro ps  i t  •»  ,3 g, 2  > ) 

STUC-SI?  ITlCMrP.  s,2)) 

vCvJCt  1  )<PCC*STLK>f  j2>*5Pf<e*fS3e*m3)*K)C»,<*.'*?:,2> 

I  Ft»CC*»GT  -Vi'C  I  i  4J*2 

fi-.Cit  1  i  ? ,  vt >»?;  -C4ssi>, 

?4c«  •rwgs  t  ip  ,»I )  “P  ,*E> 

teiPfSMPtiP.rM.GJ.PH  iwwsiw.t) #<«( Pt YS* ,  ) -T* ! 

J  e ;  »-*,  it*  £  S  A9 . i « » .  u  -  «*P  n  PHOR  p<  MP .  -4F  )  I  ,  ••E  )•  TP ! 

r«4  isi  '«? , :  :f )  «<  £  tvt  -8J ) 

Inrf  -t>.i  fj*s 

?**>«%  OP  fTPPS  J“  tlEWTt** 
rjt 

c-p?«*s?'5-*.*.;-n  » »/$?» 

,  .i~*r,U*>W* sip,' ? )»/§;» 

%*;.•%  i^Z&t  VI 

•1  t  ITStATlO*^  TO  W|#IC»IL» 


o7  Ul!  COPPUiK  THE  DIFFRACTION  AIH>  REFLECTION  P01HTS. 
06  OH  STEP  THIiU  AHCLES 
oV  00  5H  IV-I.IVDP 

Is.  PHC'i-PHCiK(MP,f*E>»UV-l  I*RPSH 

*.  1  THCil*THtK <  HP ,;*E ) ♦(  I V~ I  )*RTSH 

i  CPCS«COi(PHC8) 

i:  3PCS*SlK<PHCfi) 

7*  CTCS-COSITKCtil 

7b  STCS«SIf:<THCR) 

~0  D8< I )»CPCS*STCS 

V#  Ok  <2  )»SPCS*STCS 

73  PM3J-CTCS 

*,V  HhPC  l)f  spcs*stcs 

bo  RltPI  2)«CPCS*STCS 

61  DHT( I )"CPCS*CTCS 

t!2  I«JT<2>*SPOS'»CTCS 

fci  0tlT(3I— STCS 

a 4  csv«oos(V8) 

tb  SNv»snuvm 

00  S5iX*E*CiV 

U7  SJIY«A*St.V 

tb  sm«-o*s;iv 

bV  St.‘PY«A*CSV 

Vs,  X«<  I  )*A*CSV 

vl  XK<2)«0*SNV 

V2  Xk(3)*UI» 

V3  XHV(  I  )«-A*S?!V 

v-  XHV{2)«E*CSW 

vS  Xim3.'«C. 

vc  xmitn-c. 

V'<  Xiil)C2>»i . 

V6  XtUH-»l»l.  __ 

W  OH  SOLVE  O6ADKA0IC  EOUATICW  TO  OBTAIN  ROT  PROfWCT 
Uu  OH  OF  VECTORS,  SATISFYING  LAW  OF  DIFFRACTION 


Ul 
U2 
U- 
lc< 
U5 
U  o 
U-'. 
Ivt 
Uv 
1  ly 
HI 
112 
IU 
in 
i  is 
<10 


>U 


OH 

win 


SSRPws*. 

00  13  !l«  t ,  2 
xf:PHii»xau:)-XP(*i> 

SS»iP«SSWP*XRPtM)*X8PtHI 

C8Pv»xartll*vu:P,ag,i>*XRPI2l*VCltP,HE,2J*XPPO>*vtMP.ME.3> 
?A«t  S*ikP-$S«  >*f  SS«P-SSHI»4  .•SSi‘*a»W*CBPV 
88«-2.*<  SS.!*SSRP  >*CSPV*C8PV 
COC8PV*CRPV«C«PV*C8PV 

S02AC«Sv.RltLg*6S«A.*AA*CC)  »««ih 

OSTE«iiU«E  MUCH  SCLUT t QH  5I0ST  CLOSELY  SATISFIES 

THE  LAU  CF  DiM'R  ACTION 

AiiSA*t«t&-SRMC*/2./AA 

ANSB-t -i*»50f  AC  I S2  ./M 

gCI  v*A?UA 

tFHC8SA.LT.C.>.G8.CAJfSA,G£.  Ml  CCiV«A)»SS 
CSw*-SflRrit£IVS 


!l  V 

1 13  u 

II  V 

»2*4 

Qi 

1 22  ill! 
1 2.X 
IS* 

•2> 

Ufe 
827  II 
124 
Uv 
Jj* 

I.  3 
02 


jeiv«u 

JCI«*iClv>: 

VSSSwis* 

VjM. 

OW  ll  N*l,3 

cc»s»s»i’!  otoiMcrttti  poikt 

l/SC-PTU  .-OSIV» 

%S®WS»«»**l8»-XSfKI 
v  *«.•%  !&;*•*  KWSJW8 » 


t  Sir*  v|  .wv|  cr  5*vs  i»u 
vn^s»i*Ttvi*'} 

;«-*« VI i  i  vrn * )*V{ 5 2!»vt*tl\5*8.a »*V|tS**¥l»,»6.l» 
PSJ'.nSI'.i  >■»,  j  t-P^sst,  I  J»v  S>s  3  J»Vs  fcP,  fc‘E.2 1  ♦WHS  3  5*VI  HP,,  Ac ,  31 
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•  -  -•  kK(j=i  e— i  s;>  i 

I  -  *■  EnCIi=ANS(i:|tC)  ! 

I-1-  Ik  ( l-.HCJJ.LT  I )  GO  10  lb 

Gc  C I  V*-C  I V  I 

1 O*/  IFUCIV.LT. 2)  CO  TC  14  ! 

ub  l‘j  CONTINUE 

Gv  irnv.Eo.iv:;p>  go  to  60 

I  *.■  Cil!  PERFohM  "i  AYLCR  SERIES  EXPANSION  TO  DEFINE  DV  AND  DU 

1*  I  CXi/V  E=XI;V  C  I  )*v(MP,  IE,  1  >+XRV(2  >*V  (VP,  i/F.  ,2  >*XRV(3)*V  dP,  >1E,3  ) 

N- 2  cxrfv r=o.-;v(  i >*vi n  )+xkv<2)*vi(2>+xr<v<3  >*vi  o  >>/vim 

I  a „  Cl  V E= ( CAh v  L-CXrtV I*C I V ) /( V I V+SM/SCRTC I . -CCI V ) ) 

i ‘ *>•  cxrii:n=x;.ij<  i  >*vcmp,me,  i  )+xsm2>*v(Mp,*<n.2>+xaii(3>*v(«p,vE.3> 

I4-J  CXkU  I  =  (  kill)  ( I  )*VI  ( I  )  +  xr<U{2>*VI(2)+XR!)(3)*VI(35)/Vri 

Ut.  GIIJE=ICXR(JE-CXRUI*CIV>/<VI»'+SM/S0R7(  l.-CCIV)  ) 

I  * '/  DO  1 2  N=  1,3  t 

Uc  V1VC  )»i’'*ClVE*(  l.+CCIV/n  .-CCIV))/SORT(  l.-CCIV) 

U>  VTVC.)=XF:V(r.)-VIV<N)*V(.MPf?iE,*l>  f 

ib.;  v i u ( ;. )  =s.v*c i  re  *<  i.+cciv/<  i  .-ocivd/sork  i.-ccrvi 

ibi  i2  vr.j(:i)*AifUr;)-vi::(ri)*v(Mp,‘.!Etfi)  j 

rv  =  (s;;px»v!  ( i  )+snx*viv<  i  >+sn'py*vic2>«-sny*viv(2  )>* 

Ib3  2<5NX*Dn(2)-3I  Y*Di.'(  I  ))  j 

id*  Fv=rvxs;;x*vic  i >+sny*v:<2) >*<SNPX*nR(2 >-sn°y*dr<  i )) 

I  bb  FV=FVX  S'  PX*VI  (2  )*SNX*VI  V(2)-SNPY*VI  ( I  )-SNY*VIV<  I  )  >* 

ibu  2(i?:x*ui<n)*Ery*na(2))  ; 

I  -j  7  R=F»  +  <F!:X*V1C2)-SNY*VI<  I  )  )*(SNPX*DR  ( I  >*SNPY*DR( 2 )  ) 

Ibk  rO=<S:;X*n;f(2)-SNY*DI?(  I  ) )  *(  SNX*VI  U(  I  )+«NY*VIU<2  ))•*• 

iy,  < sr;x*-t>ii <  i  >*s::Y*on(2)  )*<snx*viu(2;-sny*viu(  i  )> 

I  Ok  GV=b.<(  3  )*(  S:'F<*V!<  n+Sf':<*VIV(l  }*3,lPY*v'I(2)+SNY*VIV(2  )) 

I  c  I  v:  v=G\  >V  1  (2  )*  (S'NPX*DR  <1  )  +  £:!PY*l)R(  2 ) )  * 

I c2  Gv=C/+v;V(3>*<SNX*I)R(  I  )+SNY*DR(2  ))  | 

It:  CC=D:.(3)*<S;.X*VI!I(  I  )+SHY*VIU<2  >  >«-VIU(3  )*(SNX*DR(  I  >«-SNY*DR(2)  ) 

If-  FP = {  b;;;>V!  (  l  )+S!IY*VI  (2  )>*<SNX*»-RP<2>-SMY*DRP(  I  ))♦ 

If.  2CGNX*VI <2)-SNY*VI(  I  ))*(5N'X*DRP(  1  >  +  SNY*r>RP(2  ) ) 

loo  OP=»V  I  < 3  )*< S.'i'X*DRP(  I  )*SNY*DR°<2  )  >  ! 

Ic7  CT=D;.VU)*(SNX*VI(  I  )+S’lY*VI(2>  )+VI  (3>*(3NX*DR7(  I  )+SNY*DRT(  2  ) ) 

I oF  F I  =  (  C! : » V I  ( I  )+SNY*VI  (2  ))*(S*IX*DR(2  >-SNY*DR<  I  ))♦ 

lev  '  2  (  SN  X*i  if.  (  1J  +SNY*DR(2  )  )*(SMX*V  I  ( 2)-SNY*'.'  I  (  I  )) 

I  V.  01=;',i(3)*cs::x*vl  (1  )+SNY*VI  (2  >>+VI(3>*(  SNX*DE(I  >  +  SNYOk<2  >) 

171  DE7*FC*CV-FV*OU  [ 

172  :;v  =  <  (rT*r:|-OI*FU)  +  (CU*FP-rU*GP)*PPER-rl'*CT*DTSR)/DET 

17  j  DU  =  <  (GI  »pV-r  I  *GV  )+<FV*0P-0V*FP)*nPSk+pV*07*D7SR>VDET 

r,..  c;  :.\  compute  new  reflection  point  on  cylinder 

17b  UR=Ui.+!)L  •  S 

l7o  <0  Vk-VE+PV  ’ 

17*  bo  CCNTINGfc  }  . 

1 70  CD  CONTINUE 

I  7  V  C*!!  TEST  TO  GEE  IF  CON PUT  ED  SCATTER  POINTS  SATISFY 
IrtG  oil!  LAWS  OF  DIFFRACTION  AND  REFLECTION  • 

lb  i  SMM=S(.R7  (  snx*.snx+s:jy*sny )  J 

It,.:  S!IX*ShX/SiJ.  ' 

ico  Si'.YaSNY/s:n  I 

104  CO  20  ;i«  1 , 3  i 

ib  vsD(:;j*vsD(K)/vsf7/‘.  { 

if:.-;  2.)  VI  JaVi  CN)/VI.M 

1 1>7  SHAD=SN»IX  1  )  +  Sf.'Y*i><2)  ? 

I  Ft,  S:tA!/C*5N>*vI  (  I  >  +  SNY*VI  C2  >  i 

lev  E«C*S,;*1  -*-SiJAr'C  1 

I  Vi  l\’  rp=.b*  ( FKAi>SHAi'C)  | 

lv  I  H;<CA=/ TjME.-.C  )  f 

Iv2*  l;uC«Et<C/* 

i  v  3  I F  <  EiiClbCi.  HitC  )El?CnERCP  ! 

IV4  U  !*  Ir  Er.iOK  IS  VERY  SVALL.  CUT  NUMBER  OF  ITERATIONS 
Ivb  v !  ! !  IN  HALF  FOi,  NEXT  TIME  ROUTINE  IS  CALf-ED 

i '■  c  ir (Er.c.LT ..'.i'i  )  rx)  to  ro  I 

l v 7  l!!!  Ir  IS  1  <-0  PI G,  DOUPLE  NUMBER  OF  INCREMENTS 

lv, i  k. !  !  !  (UP  TO  32)  A  VP  REPEAT  ITFliATION  I 
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IW  IF ( I  VD( HP,  ME )  ,'GE , 32 )  GO  TO  70 

200  I VD  ( MP ,  A  E )  *1 VD  ( W  P,  ME ) 

20 1  -  .  GO  TO  40- 

202  70  CONTINUE 

203  WkITECo,  I )  PHSft, THSR,JAP  j ME, VR,1JR , tRCA, ERCP 

204  I  '  FORMAT < *  ShftCR  IN  DFRFPT-  /,2Ft2.6,2I5,4Fi2.6i 

20 5  LOSC =. FALSE.  . 

206  RETURN 

2k) 7  kfl  CONTINUE 

208  IF(EHC.GE.0.00I)  GO  TO  90 

20V  IF(IVD(NP,ME).EO.I )  GO  TO  90 

210  IV0<MP,AiE>aIVD(HP,ME)/2 

2  1 1  Vlv  CONTINUE 

212  Oil!  STOKE  PARAMETERS  FOR' NEXT  TIAE  DFRFPT  IS  CALLED 

213  VRO(MP,A.E)«VR 

214  UkO(MP,Mn«UR 

21b  PHOR  ( Ai  P  ,  A*E )  -  PH  SR 

216  PHOR  P ( M  P , M  E ) aPHS  PR 

217  THOR(MP,ME)=THSR 

218  IF <  .NOT.LDSC):  IVD(  MP,ME>«1 

21V  LDRC-.TRUE. 

220  RETURN 

221  END 


DI 


PURPOSE 

To  calculate  the  incident  part  or  the  reflection  part  of  the 
wedge  diffraction  coefficient  or  the  corner  diffraction  coefficient. 

METHOD 


This  subroutine  computes  either  the  incident  part  or  the  reflec¬ 
tion  part  of  the  wedge  or  corner  diffraction  coefficient.  The  uniform 
Geometrical  Theory  of  Diffraction  [4]  has  been  used  to  derive  these 
terms.  For  wedge  diffraction  the  coefficient  is  given  as 


DlfR.B.sinft  n)  = 

0  2nj2iik  sine 


siH?) 

V 


F[kRa+(B)] 


where 


+  cot(?^)  F  1; 


g  _  J^',  for  the  incident  case 
p  for  the  reflection  case. 


StZnyr-»  \  > 


a~(B)  =  2  cos 

4 

in  which  N"  are  the  integers  which  most  nearly  satisfy  the  equations 


V 


ana 


2TmN+-(B)  =  it 
2irnN~-(B)  =  -ir, 

F(x)  is  the  transition  function, 
n  is  the  wedge  number  (FN). 


For  the  corner  diffracted  term  (L0G=.TRUE.),  the  coefficient  is  given 
as  [9l: 

-jir/4 

DI(R,B,sinBrt,n,RJ  =  -=® - 


2ny/2ii<  sinB 


cot(^)  F[kRa+(B)] 


o  ^ 


[Ra+ 

1  TcRT 


(g)A 


c°t(li r)  pfkRa’(B)]  F 


Ra"(B)A 


kRca(Tr4B0-Bc7 


where  Rc  is  the  corner  distance  parameter  and  Bc  is  the  theta  type 
angle  measured  from  the  corner.  An  illustration  of  the  geometry  is 
given  in  Figure  55. 
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FLOW  DIAGRAM 


OI(OIRtRt8ETtS80tFN,D£LL«LOG) 

INPUT  VARIABLES 

R  distance  parameter 

BET  PH+PHP  or  PH-PHP 
SBO  sine  of  8. 

FN  wedge  angle  number 

DELL  part  of  argunent  for  the  corner  tran¬ 
sition  function  correction  term 
LOG  a  logical  variable  set  true  If  the  corner 
diffraction  coefficient  is  to  be  computed 

OUTPUT  VARIABLE 

DIR  Incident  or  reflection  part  of  diffraction 
coefficient  _ _ 


. 

Compute  N+  p 
coefficient 

-  ■ 

art  of  diffraction 

Compute  K-pa 
coefficient 

rt  of  diffraction 

Return 


SYMBOL  DICTIONARY 


A  ANGULAR  FUNCTION  FOR  TRANSITION  FUNCTION 

ANG  BET  IN  RADIANS 

BOTL  ARGUMENT  OF  TRANSITION  FUNCTION 

C  REAL  PART  OF  FRESNEL  INTEGRAL 

COM  CONSTANT  FOR  DIFFRACTION  COEFFICIENT 

COTA  COTANGENT  TIMES  THE  SOUARE  ROOT  OF  THE  A  FUNCTION 

DEL  CORNER  PART  OF  ARGUMENT  FOR  TOE  CORNER  TRANSITION 
FUNCTION  CORRECTION  TERM 
DELU  INVERSE  OF  DEL 

DEM  4*PI*FN*SIN(B0> 

DN  INTEGER  WHICH  MOST  NEARLY  SATISFIES  THE  EOUATION, 

2*PI*FN*DN-BET«PI  OR  -PI 
DNS  COMPUTATIONAL  VARIABLE 

EX  CEXP( J*K*R*A ) 

FA  TRANSITION  FUNCTION  WITHOUT  SORT(A) 

N  COMPUTATIONAL  VARIABLE 

RAG  ARGUMENT  OF  COTANGENT  TERM 

S  IMAGINARY  PART  OF  FRESNEL  INTEGRAL 

SON  SIGN  OF  DNS 

SOR  SORT  (2*PI*R) 

TS  ABSOLUTE  VALUE  OF  TSI.N 

TSIN  SINE  OF  ARGUMENT  OF  COTANGENT  TERM 
UNPI  N-  COMPONENT  OF  DI 

UPPI  N+  COMPONENT  OF  DI 


CODE  LISTING 


1  c - 

2  SUBROUTINE  DHDIR,R,BET,SBC,FN,DELL,LOG) 

3  Cl !! 

4  C! II  I NCI DENI  (BET-PH-PHP)  OR  REFLECTED  (BET-PH+PHP) 

5  C!M  PART  OF  WEDGE  DIFFRACTION  COEFFICIENT 

6  C  1 1 

7  LOGICAL  LOG, LDEBUG.LTEST 

8  COMMON/7EST/LDE3UG. LTEST 

9  COMPLEX  FFCT.TOP.COM, EX, U°PI ,UMPI,FA,DIR 

It)  COMM  ON /TOP  D/TOP 

41  COMMOH/PIS/PI.TPI.DPR.RPD 

12  IF  (LDEtUG)  WRITE  (A,  II) 

13  II  FORMAT  (/,'  DEBUGGING  DI  SUBROUTINE') 

1 4  DEL-DELL 

15  IF<ABS<DEL).LT.I.E-I0)  DEL-SIGN( I.E-UJ.DEL) 

lo  IF(LOG)DELU=l ./DEL 

17  ANG-BET*RPD 

18  DEM*2.*TPI*FN*SD,0 

I V  COM-TOP/DEM 

20  SPH=SORT<TPI*R) 

21  C!l!  N+  PART  OF  DIFFRACTION  COEFFICIENT 

22  DNS=(PI+ANG)/(2.0*FN*PI) 

23  SGN-SIGMCI  .,OMS). 

24  N= IF IX ( ABS ( DNS )-H).  5 ) 

2b  DN*SGN*FLOATU:> 

20  A-ABSI I .0+CCS1 ANG-i.O*FN*PI*DM)) 

27  BOTL  =  2.0*SORT(ABS<fi*A) ) 

28  EX*C  EX  P  { CM  PL  X  ( 0 . 0 ,  TP  I  *R*  A ) ) 

29  CALL  FRNELS  (C.S.BOTL) 

30  C«SORT(PI/2.0)*(«.5-C) 

31  S-  SORT ( P I /2 . 0 ) *  <  S-0 . 5 ) 

32  FA=C;.!PLX<0.,2.  )*SGk*EX*C.’’PLX(C,S) 

33  RAG=  ( PI  +  ANG )  /  ( 2 . 0*Fli ) 

34  TSIN=SIN(RAC> 

3  b  T5=ABS(TSI  N) 

Go  IF (TS.GT. I .E-5 )  GO  TO  442 

37  COTA=-SCRT(2.0)*FN*SIN<ANG/2.C'-F!,*PI*:’t:> 

38  I F ( C OS ( AMG/2 . 0 ~r N* P I *DN ) . LT . 0 . 0 )  COTA=-COTA 

39  GO  TO  4«3 

40  442  COTA =SOK T ( A ) *C CS  ( li AG ) /TS I N 

4  1  443  UPPI  «COA.*COTA*FA 

42  IF<LOO)UPPI=UPPI*BABS(FFCT(R*A*DEL!.1)  > 

43  IF  (LDEbUG)  WRITE  (6,*)  D!!,A,FA,UPPI 

44  Clll  N-  PART  OF  DIFFRACTION  COEFFICIENT 

4b  DNS=(-PI+ANG)/(2 .0*FN*PI ) 

46  SCN=*SIGN<I  ..DNS) 

47  N»IFIX<ABSCDNS)+0.5> 

48  DN=SO;i*FLOAT(») 

49  A=ABS<  1 .0+COS1  ANG-2.f)*FN*PI*DM)) 

50  BOTL  =>  2.0*SORTUBSCR*A)  ) 

bl  £X=CEXP(C.MPLX(i),0,TPI*R*A) ) 

b2  CALL  FRNELS  (C.S.BOTL) 

b3  C»SQRT(PI/2.0)*(0.5-C) 

b4  S»  SORT! PI/2 .0)*(S-P).5 ) 

bb  FA-CMPLX(».,2. )*SQf;*EX*CMPLX<C,S) 

bo  HAG-(PI-ANG)/<2.0*FN) 

57  TSIN=SIt;(RAO) 

58  TS-ABSCiSIN) 

bv  IF (TS.GT. 1.0-5)  GO  TO  542 

01)  COTA=  SCRT(2  .1)  )*FN*S  IN  ( ANG/2  .')-FN*Pl  'ON) 

0  1  I F ( C  OS ( ANO/2 . 0 -F  N*  P I *DN ) . LT ♦ 2 • 0 )  COTA— COTA 

02  GO  TO  123 

03  542  COTA=i()liT<  A  )*00S  (II  AO )/TS IN 
o4  123  UNPI  =COI.  *COTA*FA 

05  I F  ( L  iX) )  l 1 1 N  P I *> I  IN  P I  *B  A  0  S<  FF  C  V  ( R  *  A  *: )  EL  U ) ) 
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IF  (LDEEUG)  WHITE  (6,*)  DM,A,FA,UHPI 

DIH-UPPI+UNPI 

IF  ( .NOT.LTEST)  GO  TO  2 

WHITE  (6,1 ) 

-FORMAT  </,'*  TESTING  DI  SUBROtTCIME') 
WRITE  <6,*>  DIR, R, BET 
WRITE  (6,*)  SBO.FN 
HETUHN 


PURPOSE 


To  calculate  the  far  zone  electric  field  for  a  source  ray  which 
is  diffracted  off  of  a  given  edge  on  a  given  plate. 


Figure  55— Edge  diffraction  geometry. 


$Q  *  x  80(1)  ♦  y  80(2)  ♦  2  80(3) 
8op*  x  B0?(1)  ♦  y  B0P{2)  ♦  i  B0P(3) 
1  =  x  PH{1)  +  y  PH(2)  ♦  2  PH(3) 
i'  =  x  PH0(1)  +  y  PH0(2)  +  2  PH0(3) 
=  PSOR 
♦  =  PSR 


Figure  56— Comer  diffraction  geometry. 

METHOD 

The  diffracted  fields  fron  the  edges  of  the  Plates  are  calculated 
by  uiing  the  Geometrical  Theory  of  Diffraction  [4J .  The  diffracted  field 
in  the  far  tone  has  the  for*  £43 

t*  -  f^Qg)  •S£(s'.4.#\80,RO  /T  silli  , 

where  Q_  is  the  diffraction  point.  The  incident  field  can  be  written 
in  the  Torn 

rtQg)  ♦  EIPL  BopJ-r-  . 
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The  diffraction  coefficient  can  be  written  as: 


Ttys', VF">  *  -K  Vo  -  w  W  • 

The  slope  diffracted  field  in  the  far  zone  has  the  formflO] 

Es.d.  .  1  ar1(QE)  .  *  rr,  e‘jks 
1  '  3F  sinff“ 'ST  r”  W  Js  T 


whereaiT  =  V 


sirfo 


ar1 

W 


The  incident  slope  field  can  be  written 


where  EIPRP  and  EIPLP 


aT1  a-jks‘ 

in  the  form  |jj-  =  1EIPRP$'  +  E IPLPS^l5-^ — 

are  computed  in  subroutine  SOURCP.  The  corner  and  slope  corner  dif¬ 
fracted  fields  have  similar  form  19]  and  are  included  if  the  logical 
variables  LSLOPE  and  LCORNR  are  set  true.  The  edge  and  slope 
fields  are  combined  and  the  phase  is  referred  to  the  reference  co¬ 
ordinate  system  origin  by  the  factor  The  form  of  the  field 

is  therefore  given  by 


=  ujeothB  ♦  com) 


nr  * 


Similarly  the  corner  and  slope  corner  diffracted  field  is  given  by 

„  -jkR 

r  =  Hffl(ECTH§  ♦  ECPH*)  t 

-jkR 

where  the  factor  -  k —  and  the  source  weight  (W_.)  are  added  elsewhere 
in  the  code. 


* 


FLOW  DIAGRAM 


OIFKT  (EOTH,EOPH.ECTH,ECPH,F«ME,MP) 

lEPUT  VMIMIES 

fm  *t<9*  angle  indicator 

ME  edpe  M  plate  MM  where  diffraction  occurs 

MM  pitta  where  diffraction  occurs 

OUTPUT  VMIMIES 

EOTH  theta  eoeponent  of  (Ope  diffracted 
E  field  In  ECS 

EflPH  phi  coaportwt  of  edge  diffracted 
E  field  in  ECS 

CCTH  theta  component  of  comer  diffracted 
£  field  In  ECS 

ECPH  phi  conponent  of  comer  diffracted 
E  field  in  ECS 


1.  Perforn  diffract too  point  geonetry  calculations 
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3.  Calculate  diffraction  wglet  and  related  9ee«etry, 


SYMBOL  DICTIONARY 


AIW  DOT  PHOOUCT  CF  VECTOR  FROM  PLATE  MP  TO  THE  SOURCE  AND  THE 
PLATE  UNIT  NORMAL 
AFN  AEOOE  ANGLE  NUMBER 

BULL  VARIABLE  USED  TO  EXPAND  DIFFRACTION  ANCLE  RANCE  IF  CORNER 
DIFFRACTION  IS  USED 

BDHI  UPPER  LIMIT  FOR  BD,  THE  COSINE  OF  THE  DIFFt?JICTIOH  ANCLE  BETA 

SDLCM  LONER  LIMIT  FOR  BD,  THE  COSINE  OF  THE  DIFFRACTION  ANGLE  BETA 
SETN  DIFFERENCE  IN  DIFFRACTED  AND  INCIDENT  PHI  ANCLES 
BETP  SUM  OF  DIFFRACTED  AND  INCIDENT  PHI  ANCLES 
BO  DIFFRACTED  FIELD  BETA  POLARIZATION  UNIT  VECTOR  UN  EDGE 
FIXED  COONDIATE  SYSTEM)  IN  SCS  COMPONENTS 
BOP  INCIDENT  FIELD  BETA  POLARIZATION  UNIT  VECTOR  (IN  EDGE 
FIXED  COORD  SYS)  IN  HCS  COMPONENTS 
CNP  COSINE  OF  HALF  WEDGE  ANGLE 
CONN  CORNER  DIFFRACTION  COEFFICIENT 
GPH  COSINE  OF  PSR 
CPHG  COSINE  OF  PSCR 
CTH  COSINE  OF  THR 
CTHP  COSINE  OF  TKPR 

OEL  PAFitMETER  USED  IN  TRANSITION  FUNCTION 
DH  DIFFRACTION  COEF.  FOR  HARO  BOUNDARY  CONDITION 
DHIT  DISTANCE  FROM  SOURCE  TO  NEAREST  HIT  (FROM  SUBS.  PLAINT  OP  CYUNI) 

DPH  SLOPE  DIFFRACTION  COEFFICIENT  FOR  HARD  BC'-fBAF.Y  CONDITION 

OPS  SLOPE  DIFFRACTION  COEFFICIENT  FOR  SOFT  BOUNDARY  CONDITION 

DS  DIFFRACTION  COEF.  FOR  SOFT  BOUNDARY  CONDITION 

DV  DOT  PRODUCT  OF'  EDGE  VECj'OR  AND  PRO  PA  CAT  10?:  DIRECTION  UNIT 

VECTOR ,D  WHICH  IS  THE  COSINE  OF  BETA 
EC3I  EDGE  DIFFRACTION  COEFFICIENT  (FRCM  SUB.  DI  >  FCR  INCIDENT 
01 FFRACTEO  FIELD  MODIFIED  FOR  CORNER  DIFFRACTION 
ECbfc  EDGE  DIFFRACTION  COEFFICIENT  (FROM  SUB.  DU  FOR  REFLECTED 
DIFFRACTED  FIELD  MODIFIED  FOR  CORNER  DIFFRACTION 
EC PH  PHI  COMPONENT  CF  CORKER  DIFFRACTED  E-FIELD 

ECTH  THETA  COMPONENT  CF  CCftNER  DIFFRACTED  E-FIELD 
EOPH  PHI  COMPONENT  OF  EDGE  DI FFRECTED  E-FIELD 
fcUFL  COMPONENT  OF  OIFFSA.CTiO  FIELD  PARALLEL  TO  THE  EDGE 
cDPh  COMPONENT  Or  DIFFRACTED  FIELD  PERPENDICULAR  70  THE  BOGS 
fcDTH  THETA  COMPONENT  CF  EDGE  DIFFRACTED  E -FIELD 
E)  THETA  COMPONENT  CF  CORNER  DIFFRACTED  FIELD  IN  RCS 
EG  PHI  COMPONENT  CF  CORNER  DIFFRACTED  FIELD  IN  SCS 
eiPL  COMPONENT  OF  INCIDENT  FiaD  PA»AU.a  TO  T*S  SJGL 
EIPIJP  PAHEKN  FACTOR  FCR  COMPONENT  0?  SOURCE  « {(CIDeNT)  SL^E  FIELD 
PAhaULcl  TO  THE  EDGE 

El  PM  COMPONENT  OF  INCIDENT  FIELD  PERPENDICULAR  Tj  THE  EDGE 
etPMP  PATI&N  r ACTOR  FOR  CGHPCNgNT  OF  SOURCE  (INCIDENT)  SLOPE  FIELD 

1  PERPENDICULAR  TO  THE  EDGE 

SOURCE  PATTaiOi  FACTORS  FOR  t.V,  AND  Z  COMPONENTS  OF 
INCIDENT  E  FIELD 

e*PH  CUMPLEX  PHASE  TBR»  t  REFER  PHASE  TO  8CS.  ORIGIN) 

trh  MfeSC-S  ANGLE  8UMSE8 

Ft*  KgOGS  ANGLE  INDICATOR  . 

rf.P  angle  exterior  tc  AgOGE  IN  OCBBSCS 

gam  out  product  cf  thi  propagation  direction  ahc-the  victor  pms* 

T??s  REF  COCrt)  SYS  CRISIS  TO  THI  glFFSACTICK  POINT 
to  ARRAY  §F  FLAGS  INDICATING  »56Tiiii  C«  NOT  DIFFRACTION  *AS  PSSSE« 
THE  LAS)  TIME  05 FPLA  «A$  C*Uf&  F3S  &*C£  »£  OF  PUTE  *s» 

INDICATES  mFFRACTtOM  FftSSSW ) 

tm  &&&IM  P!F?kAeTt«K  SHASUM  NOCKDaRY  tOmiFtCAHIHt  ASSAY 
ISM  SIGN  CHANGE  VAFJ  AgLS 

LHtt  SBT  TRUE  IF  SAY  HITS  A  PLATE  OS  CYU63ES  iFSGM  PUINT  GO  CYMffTl 
«C  CORNER  At  8®  OF  EGGS  if. 

a£  W&  ON  PLATE  m?  MKS8I  OtFlRACTtCN  OCCURS 
MP  PC. Ale  FOt  WHICH  CIFFSACTICfi  OCCURS  . 

N  £©  LOOP  VARIApy? 

PD  OUT  PRODUCT  Of  'EOOe  SI  NORMAL  AKD  OSFr  RAY  PROPAGATION  0T9 


U3 


PH  DIFFRACTED  FIELD  PHI  POLARIZATION  UNIT  VECTOR  <!K  EDGE 
FIXED  COORD  SYS)  IN  RCS  COMPONENTS 
PBIK  PHI  COMPONENT  OF  INCIDENT  RAY  PROPAGATION  DIR  IN  RCS 
PHO  INCIDENT  FIELD  PHI  POLARIZATION  WIT  VECTOR  (IN  EDGE 
FIXED  COORD  SYS)  IN  RCS  COMPONENTS 
PKSR  PHI  COMPONENT  Of  DIF  NAY  PROPAGATION  DIRECTION  IN  RCS 
PP  NEGATIVE  DOT  PRODUCT  OF  EDGE  81 NORMAL  AND  INCIDENT  RAY 
JPAGATION  DIRECTION 
PS  PS  ft* DPR 

PSD  DIFFRACTED  RAY  PH!  ANGLE  IN  EDGE-FIXED  COORDINATE  SYSTEM 
PSO  PS  0*?  *0  PH 

PSCD  INCIDENT  RAY  PHI  ANGLE  IN  EDGE-FIXED  COORDINATE  SYSTEM 
PSOK  PHI  COMPONENT  OF  INCIDENT  RAY  DIRECTION  IN  EDGE 
FIXED  COORDINATE  SYSTEM 

PS#  PHI  COMPONENT  OF  DIFFRACTED  RAY  PROPAGATION  DIRECTION 
IN  EDGE-FIXED  CCOHDI ANTE  SYSTEM 

QD  DOT  PRODUCT  OF  PLATE  NORMAL  AND  DIFF  RAY  PROPAGATION  DIR 

QI  NEGATIVE  CF  DOT  PRODUCT  OF  PLATE  NORMAL  AND  INCIDENT  RAY 

PROPAGATION  DIRECTION 

RN  „  MAGNITUDE  OF  VECTOR  FROM  CORNER  HE  TO  SOURCE 
RX  I 

RY  )  X,Y,  AND  Z  COMPONENTS  OP  VECTOR  FROM  CORNER  MC  TO  SOURCE 
«Z  ) 

SflO  SINE  OF  BO,  THE  ANGLE  THE  DIFFRACTS)  RAY  MAKES  WITH 
THE  EDGE  UNIT  VECTOR 
SNP  SINE  OF  HALF  HEDGE  ANGLE 

SP  DISTANCE  FROM  SOURCE  TO  DIFFRACTION  POINT  (FROM  SUB*  DFPTKO) 

SPH  SINE  OF  PSR 
SPHO  SINE  OF  PSGfe 

SPP  DISTANCE  FRJM  SOURCE  TO  DIFFRACTION  POINT 
STHfc  SINE  OF  THR 

TERM  COEFFICIENT  CF  CORNER  DIFFRACTED  FIELDS 
THIR  THETA  COMPONENT  OF  INCIDENT  RAY  DIRECTION  IN  REF  COORD  SYS 
TNPN  ANGLE  DIFFRACTED  RAY  MAKES  *ITH  EDGE 
THR  ANGLE  BETWEEN  EDGE  UNIT  VICTOR  AND  RAY  FRCM  SOURCE 
TU  CONFER  MC 

TPP  DISTANCE  PARAMETER  USED  IN  CALCULATING  DIFFRACTION  COEFFICIENTS 
VECT  VICTOR  USED  TO  MOVE  DIFFRACTION  POINT  OIFF  EDGE  FOR 
SHAD OKING  TESTS 

VI  UNIT  VECTOR  Or  INCIDENT  PAY  PROPAGATION  DIR  (FROM  SUB*  QFPPOJ 

YIP  WIT  VECTOR  FRO#  SOURCE  TO  DIFFRACTION  POINT  ' 

VMG  DISTANCE  A<Mj  THE  EDGE  FROM  FIRST  CORNER  OF  EDGE  TO  BIFF 
POINT 

VXS  3X1  MATRIX  DEFINING  THE  SOURCE  CCOBCINATE  SYSTEM  AXES 
XO  DIFFRACTION  POINT  (CALCULATED  IN  SUB.  CfPT*0> 

XCP  DIFFRACTION  POINT  (USED  FOR  SHAMMING  TESTS) 

XS  SOURCE  LOCATION  IN  REF  COORD  SYS 
2P  DOT  PRODUCT  Qf  DIFFRACTED  RAY  PROPAGATION  DIRECTION 
UNIT  VECTOR  t  AMO  VECTOR  FROM  OIF  POINT  TO  CORNER  KC 
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CODE  LISTING 


1  c — — - - — - ———————— 

2  SUBROUTINE  C I F PL7 (  EDTH ,  E  DP  1’,  ECTH ,  ECPK,  FNN,  *4E ,  MP> 

3  C!  1 1 

4  Cl!!  DETERMINES  THF  DIFFRACTED  FIELD  FRO."  EDGE  *ME  ON  PLATE  #WP 
b  CM!  WITH  THE  PHASE  iEFERRED  TO  ORIGIN, 
o  CM!  SLOPE  AND  CORNER  D1FF.  IS  OPTIONAL  FROM  INPUT  DATA. 

7  CM! 

COMPLEX  EF , EG,  El  PR,  E! PL,  EXPH,EDPR,ED:,L,EDTH,EDPH 
COMPLEX  ECTH.fcCPH.ECBI .ECBR.DS.DH, DPS, CPH 
COMPLS X  El  PR P,  E I  PL? , E I X ,  El  Y ,  El  Z , CORN  ,FFCT 

DIMENSION  VM3),X0(3>,o‘i0(.>>,PH<3),B0O(3)f?lC(3),XnP(3>,VIP<3) 
LOGICAL  LSURF.LMIT.LSLOPE,  ICORFR.LD!  r,  [.DEBUG, LIES! 
CONMON/CEOPL A/ X ( 14,6,3 ),V< |4,d,3>,VP(|4,6,3>,VN( 14,3) 
2,MEPM4),aPA 
COWON/EDfl AG/V HAC(  1 4, 6) 

COMM  ON/SGR I  f  1 F/ XS <  3 ) , VXSf  3, 2 ) 

CQ)UCN/DIrt/Dt3  ),7riSH,PHSR,  SPHS.CPHS,  STFS-CTHS 
CCNMCJI/LtNOFCL/aD  114,6,2) 

COMMON /THPK1-V/GT  ( 3 ) ,  P?<2> 

COA’MON/F  I  S/P  I ,  TP ! , :  PR .  HP  D 
coNMON/Lcciii  f/lslcps  ,icou::u 

COVMON/1  EST/U)E?UO,  LIE  5T 
CWMON/CCtJRLE/lOKtuOl ) .I’M  14,6),  IA*IG 
COMMON/K  I  TPLT/*i°H 

COWlN/SUHFAC/LS'iart »<> 

FN»FNN 


27 

C!  !! 

INITIALIZE  FIELDS 

2b 

SDTH»{».  ,3.) 

2v 

E0Ph-<0..P.) 

2o 

cCTKoUI.  ,41. ) 

21 

fc’CPH-Cy.,0.) 

32 

IF  tLDSELt?)  WJITe  (o,r.*6) 

33 

ICQ 

FORMA.  C/.>  DecUaUNC  FPLT  SUL ROUT  ’PE'  1 

34 

CM! 

t.  PERFORM  DIFFRACTION  POINT  GEOMETRY  CALCULATIONS 

3b 

KC«At~*  i 

33 

IFCVC.tn.iEPt-P)!  *N>i 

-  f 

J  1 

AFJs*rN 

3» 

I F !  f :« .  a .  2 . )  af  ;  i  #6 .  -f.nn 

3V 

CtiP«CCSIA?N*?  [/2.1 

4  it 

SSP*Sl.\{ArN*Pf/2.> 

4  1 

DV*0. 

42 

DO  13  ?£• 1 , 3 

»3 

10 

DV«D'.*0£.N>*. 

%4 

t?(  A53tCVS.tr,..!.  VW)  GO  TO  4| 

u~i  uL  **♦ . 

4(i 

IF  : LCOFNh !  LUtL»2.2 

*.‘l 

SCL0a»=3L«-4^,MT. i  r-TTAL 

4*1 

4V 

C?  M 

ensN-t^^  i?  ■. ,*FT.-f /,r, : ^  ssmts 

*2 

PC  4  i 

i  t 

CM! 

CfctSCU  fcSGf  ;  I  FACTION  ?C!’T 

s2 

CALL  3rPr«£<  *S.3V.Vf  .SS.Xf .  *?,  *  Pi 

.  . 

vi  < » i*vj  t 1*,:  a  >*vt  ss  ntvm» 

PHt8*?7AS2tvi:2».¥f  t  ui 

ba 

V#0/, 

y» 

f4i  }$  V*i,i 

v« 

ri*ih.  <,ii 

bv 

V*0*<  •» 2i.it}  j-tf ,1? ,:  t 

•V 

4US«  S i' t  J  » -5 i NP. 

fci 

UrtF*. 
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CMS 

In  oiffw/ctiLN  -ci't  a*  pi  at?.  r«'<s? 

fcr 

CS  !! 

IF  55*,;' .  «.  r-If/bACTJCS  S9I7I  *r  .C5C  3* 

6*4 

Cl  l\ 
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0 

HI 

1  I 
>2 
13 
I< 
lb 
io 
17 
lb 
lv 
20 
21 
22 

23 

24 

2b 

2  o 


66  IF!VMG.LT.VMAG!MP,ME)-I.E-OGO  TO  132 

67  DO  103  N-l ,3 

68  103  XDP(N>-X(MP,MC,N)-I.E-4*V!MP,ME,N) 

69  LD IF-. FALSE. 

70  GO  TO  102 

71  .10)  DO  104  N-l  ,3 

72  104  XDP!N)-X!MP,HE,N)* I .E-4*VCMP,ME,N) 

73  LDIF-. FALSE. 

74  102  DO  16  N-l, 3 

75  VECT-VP  <  MP ,ME, N) *CNP+VN<  MP ,N )*SNP 

76  16  XDP! N)-XDP!N)+VECT*I .E-5 

77  05 !!  2.  CHECK  TO  SEE  IF  RAY  IS  SHADOWED 

78  C!U  DETERMINE  IF  DIFFRACTED  RAY  HITS  ANOTHER  PLATE 

79  CALL  PLAINT!  XDP,D,DHIT,MP,LHIT> 

80  IF(LHIT)  GO  TO  42 

81  C!!I  DETERMINE  IF  DIFFRACTED  RAY  HITS  ANOTHER  CYLINDER. 

82  CALL  CYLINT! XDP,D, PHSR,DHIT,LHIT,.TRUE.) 

83  IFCLHIT)  GO  TO  44 

84  SPP-0. 

85  DO  1 1 1  N-l ,3 

86  VIPCN)«XDP!N)-XS!N) 

87  111  SPP-SPP+VI PCM) *VIP  CNJ 

86  SPP-SQRTCSPP) 

89  DO  112  N-l, 3 

90  J 12  VIP(N)-VIPCH)/SPP 

91  C! !1  DOES  RAY  FROM  SOURCE  HIT  ANOTHER  PLATE  OR  A  CYLINDER 
92CJ1I  BEFORE  DIFFRACTION? 

93  CALL  PL  A I  NT !  XS ,  V I P ,  DHI T,  MP  ,LHI  T ) 

94  IFILHIT.AND. CDHIT.LT.SPP)>  GO  TO  42 

95  CALL  CYLINT! XS.VIP ,PHIR,DHIT ,LHIT, .FALSE . ) 

96  IFCLHIT.AND. (DHIT. LT.SPP))  GO  TO  44 

97  IF  CLDEEUG)  WRITE  (.6,*)  SP,VI,XD 

98  IF  fCDEBUG)  WRITE  !">„*>  SPP.VIP.XDP 

99  CH!  3.  CALCUATE  DIFFRACTION  ANGLES  AND  RELATED  GEOMETRY 

100  01-0. 

101  P?*0. 

102  00-0. 

103  PD-0. 

104  DO  20  N-l, 3 

105  QI«OI-VN!MP,N)*VICH) 

106  PP«PP-VP(MP,ME,N)*VI!N) 

107.  QD-QD+VN(MP,N.'*D!N> 

108  20  PD-.PD+VP!MP,VE,N)*DCN) 

109  Oil!  CALCUl.ATE  PSO  AND  PS,  THE  INCIDENT  AND  DIFFRACTED  PHI  ANGLES 

110  Cllt  IN  EDGE-FIXED  COORDINATE  SYSTEM 

111  PS0R-BTAN2 ! Q I , PP ) 

112  PSO-DPR*PSOR 

113  IF1PSO.LT.0. )  PSO-360.+PSO 

114  PSR-BT  AN2 ( OD , P D ) 

115  PS«DPR*PSR 

116  IFCPS.LT.0. >  PS-360. +PS 

.117  PSOD-PSO 

118  PSD-PS 

.119  IFCFN.LE.2.1C0  TO  21 

120  FN-FN-2 . 

121  P SOD-360. -PSO 

1 22  PSC-360.-PS 

123  21  FNP-FN* I 80 .+ I . E-4 

124  IF! PSOD .GT.FNP.Oft. PSD. GT. FNP )  CO  TO  41 

125  Cll!  IF  RAY  IS  NOT  SHADOWED,  CHECK  TO  SEE  IF  DIFFRACTIONS  JUST 

126  CUl  APPEARED.  IF  SO  SET  FLAG  IN  IDCIANG)  ' 

127  IF!ID(MP,ME).LE.-1 )G0  TO  22 

128  IDD! IANC)— (400*ME+20*MP+ID!MP,ME> ) 

129  22  IDCMP.ME)— 2 

130  SPHO-SINCPSOid 

131  CPHO-COS(PSOR) 


132  SPH-SIN(PSK) 

133  CPH*GOS(  PSR) 

134  CM!  COMPOTE  DIFFRACTION  POLARIZATION  UNIT  VECTORSt  PHO,  PH,S0P,30) 

135  DO  30  N*l  ,3 

130  PHO(N)  *-VP(MP«  ME  ,N  >*SP!  tO+VNC  MP.H  )*CPHC 

137  30  PHCN )«- VPUIP.ME, N)*SPH+VN( MP ,tl )*CPF 

138  BOP(  1  )=*PH0(2 )*VI  (3)-PH0( 3)*V1(2> 

139  BOP(2)*PHO(3)*VI { I )-PH0(l)*VIC3> 

146)  BOP(3)=PHO<  1  )*VI  (2  >-PH0(2)*VI<  1 ) 

141  B0(!  )=PHC2)*D(3)-P!!(35*D(2> 

142  B0(2  )=PH(3)*D(  I  )-PH(  1  J*D < 3) 

143  B0(3)=PH(M*D(2)-Ph(2)*D(l) 

144  CM!  COMPUTE  SB0=SIHE<60> 

145  SBQ=SGRT((V< MP,ME,3)*D(2  )-V{.,‘Pt.VE,2)*D(3  ))**2+(V(MP,!*S,  I  ) 

146  2*D<3>-V<MP,ME,3)*DU  ))**2+<V(MP,.t‘E,2)*D(  M-V(i!P,,VE,l  >*D(2>) 

14?  2**2) 

1 48  TPP*SP*SBO*SEO 

149  CM!  4.  CALCULATE  EDGE  DIFFRACTED  FIELDS 

150  CM!  COMPUTE  SOURCE  PATTERN  FACTORS 

151  CALL  SOURCE! EF  ,EG,  El X , El Y, El Z.THIR , PHI 3, VXS) 

152  EIPR*EIA*P!10<1  )*EI Y*PHOC2)+EIZ*PHO(3) 

153  El PL=E I X*BOP ( I )+EI Y*BCP ( 2 ) +£IZ*ECP ( 3 ) 

154  CM!  IF  SLOPE  DIFFRACTION  IS  DESIRED,  COMPUTE  INCIDENT  SLOPE 

155  CM!  FIELD  PATTERN  FACTORS 

156  IF(LSLOP£)CALL  SCURCP(EIP<<P,EIPLr,VI,PH0.SCP,VX3) 

15/  CM!  CALCULATE  PHASE  TERM  (REFER  PHASE  TO  ECS  ORIGIN) 

158  GAM«XD<  1  )*D(  t  >+XD(  2  )*D(2  )-*-XD(3  )*D(  3) 

159  EXPH=»CEXP(CHPLX(0.  ,TPI*<  OA.M-SPO )  )/SORTCSP> 

100  C! !•  COMPUTE  EDGE  DIFFRACTION  COEFFICIENTS 

lei  CALL  DW  (DS,DH,DPS,DPH,TPP,PSD«PS0D,S3G, FN, LSURrC MP) ) 

162  .  IF  (LDE6UG)  WRITE  (6,*)  £IPR,EIPL,EIPPP,EI?LP 

163  IF  ( LDEEUG )  WRITE  (6,*)  DS.D'-i, DPS.DPF 

164  IF  (LDEEUG)  WRITE  (6,*)  TaP,  PS!),PSCD,S3C,F:: 

165  C! ! !  COMPUTE  PERPENDICULAR  AND  PARALLEL  COMPONENTS  Cr 
loo  C! ! !  DIFF.  FI ELD( EDPS ,EDPL) 

167  EDPR  =-EI PR*DH*EX  PH 

! 68  EDPL=-t I PL*DS*EXPH 

109  I F ( . NOT. LSLOPE ) CO  TO  201 

1 7  0  EDPR  =£DPR-EI  Pft  P*DP  H*EX  PH/C.VPLX  ( 0 . ,  TP  I  *  SP*S  13  0 ) 

171  EDPL*EDPL~EI PLP*DPS*EXPH/CMPLX (0 . , TP I*SP*SSO ) 

1/2  201  IF  (.NOT.LDIF)  GO  TO  202 

173  CM!  COMPUTE  THETA  AND  PHI  C0MP0NB1TS  OF  EDGE  DIFF.  FIELD, 

1 7 4  CM!  IF  DIFFRACTION  EXISTS 

175  EDTH=EDPL*(BO( I )*DT( I )+BO(2>*DT(2)+BO( 3)*DT( 3) ) 

1/6  2+EDPR*(PH< l)*DT<l>+PH(2)*DT(2>+PH(3)*DT(3>) 

1/7  EDPH*£DPL*(BC( 1 >*DPU  H-30C2  >*DP<2)  > 

1/8  2  +EDPR* ( PH  ( 1 ) *DP ( I )+PH(2 )*DP(2) ) 

179  CM!  5.  IF  CORNER  DIFFRACTED  FIELD  IS  DESIRED,  CALCULATE 

180  CM!  CORNER  FIELDS 

181  202  IF  C.NOT.LCORNR)  GO  TO  40 

182  BETN-PSP-PSOD 

183  BETP*PSD+PSOD 

184  EF*<0. ,0. ) 

185  EG*( 0. ,0. ) 

166  MC=M  E- 1 

187  I SN» I 

188  CM!  LOOP  THRU  BOTH  CORNERS  ON  EDGE  #ME. 

189  35  MC«MC+1 

1  VO  IFUIC.GT .MEP(MP) )  MC-I 

191  ISN=-ISN 

192  RX=XS(I)-X(VP,MC,I ) 

193  RY=XS(2)-X(MP, MC,2) 

1 V  4  R2=XS( 3)-X(MP,MC,3) 

195  RMaSOHT ( RX*RX+RY*RY+RZ*RZ) 

1 90  CTH=V  ( MP ,  ME,  1 )  *RX+V  ( J’P  ,  ME,  2  >  *RY+ V(  MP  ,.M  E ,  3 )  *RZ 

197  CTH=>  1  FN*CTH/RM 
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1*8  CTHP*ISN*DV 

>99  THPR«ACOS(CTHP> 

200  THR-ACOS(CTH) 

201  STHR-SIN(THR) 

202  DEL®2  .  *TP  I  *RM*  ( COS  ( .  5*  ( THR+THP  R )  1**2  ) 

203  ZP«(X(MP,MC, 1)-XD< 1))*D< 1)+<X(MP,MC,2)-XD(2))*D<2) 

204  2-MX(MP,MC,3)-XD(3))*D(3) 

205  TERM— STHR/TPI/CCTH+CTHP)/SQRT(RM) 

206  CHI  COMPUTE  CORNER  DIFFRACTION  COEFFICIEWKCORN) . 

207  CORN— TERM*  FFCT( DEL) *CEXP(CMPLX(  0. ,-TPI*CRM-SP-ZP)-.25*PI> ) 

208  CALL  DI(ECBx,TPP,BETN,SBO,FN, DEL,. TRUE.) 

209  IFILSURF(MP) )GO  TO  311 

210  CALL  DI ( ECBR ,TPP ,BETP, SBO, FN.DEL , . TRUE. ) 

211  C! ! 1  COMPUTE  MODIFIED  EDGE  DIFF  COEFF1CIENTS(OH,DS). 

212  DH-ECBI+ECBR 

213  DS-ECBI-ECBR 

214  GO  TO  312 

215  314  DH*ECBI 

216  DS*(0.,0.) 

217  CHI  COMPUTE  CORNER  DIFFRACTED  FIELD  COMPONENTS 

218  C! I!  PARALLEL  AND  PERPENDICULAR  TO  EDGE 

2)9  312  EDPR— EIPR*DH*EXPH 

220  EDPL— El  PL*DS*EXPH 

221  I F  ( . NOT . LSLOPE ) GO  TO  203 

222  EDPR»EDPR-EIPRP*DPH*EXPH/CMPLX(0.,TPT*SP*SBO) 

223  EOPL*EDPL-EIPLP*DPS*EXPH/CMPLX(0,,TPI*SP*SBO) 

224  CU!  COMPUTE  THETA  AND  PHI  COMPONENTS  OF  CORNER 

225  CU!  DIFFRACTED  FIELDS  IN  RCS 

226  203  ECTH»EDPL*<BO< 1)*DTCJ>+B0C2>*DT<2>+B0(3)*DT(3>> 

227  2+EDPR*(PH( 1 >*DT< 1>+PH<2)*DT(2)+PH(3)*DT<3) ) 

228  ECPH«EDPL* < BOU ) *DP  U ) +BO 1 2 ) *OP ( 2 ) ) 

22V  2+EDPR*(PH( 1 )*DP( 1 )+PHC2)*DPC2> ) 

230  CUl  COMPUTE  TOTAL  THETA  AND  PHI  COMPONENTS  OF  CORNER 

231  Cl!!  DIFFRACTED  FIELDS 

232  EF»EF*ECTH*CORN 

233  EG«EG+ECPH*CORN 

234  IF  (.NOT.LDEEUO)  GO  TO  36 

23b  WRITE  (6,*)  DS.DH, EDPR, EDPL 

236  WRITE  (6,*)  ECTH,ECPH,CORN 

237  WRITE  (6,*)  EF, EG 

238  36  CONTINUE 

23V  IF(MC.EO.ME)  GO  TO  35 

240  ECTH-EF 

241  ECPH*EG 

242  GO  TO  40 

243  41  ID(MP,ME)~* I 

244  GO  TO  40 

245  CUl  IF  RAY  IS  SHADOWED  .CHECK  TO  SEE  IF  DIFFRACTION 

246  CU!  JUST  DISAPPEARED.  IF  SO  SET  FLAG  IN  IDD 

247  44  MPH-0 

24842  IF(ID(MP,ME).GE.-1 )GO  TO  43 

249  IUD( I ANG)»-(400*ME+20*MP+MPH) 

250  43  IDIMP, ME)*MPH 

251  40  IF  (.NOT.LTEST)  GO  TO  204 

25 2  WRITE  (6,205) 

253  205  FORMAT  (/,'  TESTING  DIFPLT  SUBROUTINE') 

254  WRITE  (6,*)  EDTH , EDPH, ECTH ,ECPH 

255  WRITE  (6,*)  FN,ME,MP 

256  204  RETURN 

257  END 
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DPI 

PURPOSE 

To  calculate  the  incident  part  or  the  reflection  part  of  the 
wedge  slope  diffraction  coefficient 

METHOD 


This  subroutine  computes  either  the  incident  part  or  reflection 
part  of  the  slope  diffraction  coefficient  based  on  the  uniform  Geo¬ 
metrical  Theory  of  Diffraction  [10].  This  coefficient  is  given  as 


DPI(R,3,sinf;0,n)  = 


-e 


-j  ;r/4 


4n2)2jk 


sing. 


csc2  (fir)  fsi^+(6» 


■esc2  (fr)FstkRa’(3)]|  • 


where 


«•  F  (x)  =  2jx[l-F(x)l 

l 

*■  and  where  S,  a(S),  F  (x),  n  are  defined  in  the  write  up  for  subroutine 

DI.  An  illustrationsof  the  geometry  is  given  in  Figure  55. 

L 
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FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


A  ANGULAR  FUNCTION  FOR  TRANSITION  FUNCTION 

ANG  BET  IN  RADIANS 

BOTL  ARGUMENT  OF  TRANSITION  FUNCTION 

C  REAL  PART  OF  FRESNEL  INTEGRAL 

COM  CONSTANT  FOR  SLOPE  DIFFRACTION  COEFFICIENT 

CSC A  COSECANT  TIMES  THE  A  FUNCTION 

DEM  8*PI *FN*FN*SIN ( BO) 

DN  INTEGER  WHICH  MOST  NEARLY  SATISFIES  THE  EOUATION, 
2*P1*FN*DN-EET«PI  OR  -PI 
DNS  COMPUTATIONAL  VARIABLE 

EX  CEXP ( J*K*H*A ) 

FPA  SLOPE  TRANSITION  FUNCTION  WITHOUT  THE  A  FUNCTION 

N  COMPUTATIONAL  VARIABLE 

RAG  ARGUMENT  OF  COSECANT  TERM 

S  IMAGINARY  PART  OF  FRESNEL  INTEGRAL 

SGN  SIGN  OF  DNS 

TS  TSIN  SQUARED 

TSIN  SINE  OF  ARGUMENT  OF  COSECANT  TERM 
UNPI  N-  COMPONENT  OF  DPI 

UPPI  N+  COMPONENT  OF  DPI 
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CODE  LISTING 


,  - - 

2  SUBROUTINE  nPKDPlH.H.BET.SBO.FN) 

o  c!  !! 

4  CM!  I  MCI  DENI  (BET-PH-PHP)  OR  REFLECTED  ( PHT*PHt'PHP) 
b  C!  ! !  PART  OF  V.EDGE  SLOPE  DIFFRACTION  COEFFICIENT 
o  0!  !! 

/  LOGICAL  Ll)EBUG,LTKfT 

b  COMMON /TEST/LDEBUG , LTEST 

V  COMPLEX  TOP, COM, EX ,UPP! ,  1INP! ,FPA«DPIR 

I  f  COMMON /T' OP  D/TOP 

I I  COA-MON/P I  S/P  1 ,  TP  I ,  DPR  ,  RPO 

12  IF  ([.DEBUG)  MITE  (6,11) 

12  11  FORMAT  </.'  DEBUGGING  DPI  SUBROUTINE') 

14  ANC=BET*RPD 

lb  .  DEM=4, *7P I *FH*FN*SBO 

1  o  OOM*-TOP/DE,M 

l*i  c!!!  N+  PArtT  OF  SLOPE  DIFFRACTION  COEFFICIENT 

1  h  DNS= ( P I + ANG ) /( 2 . 0*FN*P I ) 

i*  SGii=siar.(  i  ,,c:ns) 

2v.  N=  I  r  IX  ( A  US  ( DNS )  ♦().  5 ) 

2  1  L:il=SGN*FLOAT(N) 

22  A=AbS( 1 .H+CCSC AN0-2.O*FN*P I*DN ) ) 

2  BOTL  =»  2.0*SORT( ADS< R*A) ) 

*.  EX-CEaP(CMPL\(0.»,TPI*R*A>) 

b  CALL  FRNELS  (C.S.BOTL) 

20  2 'SORT <PI/2«0)*( O.b-C) 

c'»  S=  S';RT(PI/2.O)*(S-0.5) 

2(.  bPA=TPI*r.*(C).'PLX(H.,2.  >+4.*S0RT( APS(TP1*R*A)  )*EX*CUPLX(C.S)) 

2  V  i<AG=(  PI+ANG) /(  2  «0*FN ) 

2c  7SIN=SIN (RAG ) 

21  TS=TSIt>TSIN 

22  IV(T5.GT. 1 ,E-5)  GO  TO  442 

22  CSCA=-2.*FN*FN*C0S(ANG-7PI*FM*DN)/C0S( <PI*ANG)/rN) 

24  GO  TO  442 

2b  442  CSCA=A/TS 

20  442  UPPI=CO(.*CSCA*FPA 

2T  IF  ( LDErOG)  MITE  (6,*)  DM  ,A  ,FPA  ,UPPI 

2C  c!!I  N-  PART  C?  SLOPE  DIFFRACTION  COEFFICIENT 
2c  DNS=(-?I+ANG)/(2 ,0*FV*PI ) 

4i  SGK=8I G!  ( 1  . , DNS) 

4  l  Malt- 1  X(  APS  (DNS  >♦«.  b) 

1 2  im=iGf;*FLv)AT(N) 

4o  A=Ai jS<  I  .(•♦C0S(  AN(>2.«*FN*Pl*DN)> 

44  FOIL  =  2.4*Sn;T(  ANSUFM.) ) 

40  EX*0 EXP ( CM PLX(  O*. M, T3 1»R* A ) ) 

40  CALL  FRNELS  (C,S,3CTL) 

4  T  C » SORT ( f- 1 /2 .  (1 )  *(  W.  S-C) 

4H  S*  SOkT ( P I /2 ,0 ) * ( S-W .5 ) 

••S  rPAanj!‘K*(C.VPLX(2.,2.)>4.»S0RT(ABS(TPI*R*A))*EX4CMOLX(C,S)) 

i\-  *AC=(Pt-At!G)/<2,«*FN) 

21  TSlNaBIMRAG) 

0  2  Ti*TSI!i*T5IN 

b2  IFtTS.GT.I ,E-5)  GO  TO  S42 

04  CSC  A  =-2 . *FN*FN*COS  ( ANG-TPI  *FN*PM  )/C0S(  (PI-ANG)/FN) 

bb  CO  TO  122 

v<  ‘,42  CSC  A  =■  A  ATS 
b  12  2  UN  P  l  »CQM*C  SC  A  *FP  A 

Ic  ((.DEBUG)  1'R ITE  (6,*)  DN.A.FPA.tINP! 
vv  .H'lt»«:iPPI-UNP; 

*•.  IF  l . MOT. t. TEST)  GO  TO  2 

.<  1  2i» It!-.  u,,l) 

cj  I  PW.V.A;  (/,'  TL-SriHC  ('PI  SUBROUTINE') 

(<.,*)  rriR,n,BET 

4-  -:il. 2  ( o ,  * )  S;JO,FN 

•**  *  ’  *  •'  4  • 

i!*:' 
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DPLRCL 


l 

I 

I 
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PURPOSE 

To  compute  the  far-zone  electric  field  for*  a  source  ray  diffracted 
off  of  a  given  edge  on  a  given  plate  and  then  reflected  by  the  cylinder. 

PERTINENT  GEOMETRY 


XS 


Figure  57— Illustration  of  a  ray  diffracted  off  of  a  plate  edge 
and  then  reflected  by  the  cylinder. 


METHOD 

The  field  diffracted  by  a  plate  edge  and  then  reflected  by  the 
elliptic  cylinder  is  calculated  in  this  subroutine.  The  field  dif¬ 
fracted  by  a  plate  edge  Is  found  using  the  uniform  Geometrical  Theory 
of  Dif fraction Ml.  This  causes  an  astigmatic  tube  of  rays  to  be  in¬ 
cident  on  the  cylinder .  The  field  reflected  by  the  cylinder  is  found 
using  geometrical  optics[4].  The  resultant  field  in  the  far  zone 
has  the  form  (pp.  163-164,  Reference  1) 
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=  Ei(QE) 


0  •  E 


s'  f 

Js"($'+SM)  J 


r  r 
PlP2 


-jksM  e 


-jks 


where  f^(Qc)  is  the  incident  field  on  the  edge  at  QP,  D  is  the  dyadic 
diffraction  coefficient,  R  is  the  dyadic  reflectionfccoefficient, 

Pj  and  are  the  reflected  ray  caustic  distances,  s'  is  the  distance 
from  the^source  to  the  diffraction  point,  s“  is  the  distance  from 
the  diffraction  point  to  the  reflection  point,  and  s  is  the  distance 
from  the  reflection  point  into  the  far  zone.  The  geometry  is  shown 
in  Figure  57,  and  further  illustrations  can  be  found  in  the  write 
ups  for  subroutines  REFCYL  and  OIFPLT.  The  phase  of  the  field  is 
referred  to  the  reference  coordinate  system  origin  so  that 

e'jks  _  jkD*X  e'jkR 
s“  '  e  r  R  * 


The  diffracted-reflected  field  then  has  the  form 

-jkR 

rd»r  =  WmfE0TH9+E0PH$)  ^ -  , 

e-3*kR 

where  the  factor  —  and  the  source  weight  (Wm)  are  added  elsewhere 
in  the  code. 
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FLOW  DIAGRAM 


(•UeUtt  fKU  cwKWtt 
9*  *«*» 


Compute  diffracted  field 
component*  In  RCS 


Coacwte  reflected  ?1eU  icwsxe*** 
&*rpe«dtcut*r  l»d  SiriUeJ'  to 
aUi*i  of  i»eiderce 


i 


Coecate  theti  tra  jM  caegore*!! 
at  aiffr*cted-r*fiK:ed  fe!i 
In  «C$ 


SYMBOL  DICTIONARY 


80  DI FFRACTEI)  FIELD  POLARIZATION  UNIT  VECTOR  PARALLEL  TO  EDGE 
BOP  I  INCIDENT  FIELD  POLARIZATION  UNIT  VECTOR  PARALLEL  TO  EDGE 

DO  I  DOT  PRODUCT  OF  SOURCE  RAY  DIF  FROM  PLATE  TANGENT  TO  TAN  POINT 

t  OF  CYLINDER  AND  PROPAGATION  DIRECTION  (2*0) 

UU2  DOT  PRODUCT  CF  SOURCE  RAY  DIF  FRCN  PLATE  TANG6MT  TO  TAN  POINT 
2  OF  CYLINDER  AND  PROPAGATION  DIRECTION  i2-0> 

OH  DIFFRACTION  COEF.  FOR  HARD  BOUNOARY  CONDITION 
OHIT  01  STANCE  TO  HIT  POINT  ON  PUTS 

UOTP  TEST  VARIABLE  USED  TO  DETERMINE  IF  REFLECTION  IS  CONFUTED 
PROPERLY 

OS  DIFFRACTION  COEF.  FOR  SOFT  BOUNDARY  CONDITION 
DV  DOT  PRODUCT  OF  INCIDENT  RAY  PROPAGATION  VECTOR  AND  EDGE  l«IT 
VECTOR 

EOPK  PHI  COMPONENT  OF  EDGE  DIFFRACTED  REFLECTED  E-FIELD 
EDPL  COMPONENT  OF  DIFFRACTED  FIELD  PAR ALL a  TO  THE  EDGE 
EDPR  COMPONENT  OF  DIFFRACTED  FIELD  PERPENDICULAR  TO  THE  EDGE 
EOTH  THETA  COMPONENT  OF  EDGE  DIFFRACTED  REFLECTED  E  FIELD 
fcIPL  COMPONENT  OF  INCIDENT  FIELO  PARALLEL  TO  THE  EDGE 
OR  PLANE  OF  INCIDENCE 

EIPR  COMPONENT  OF  INCIDENT  FIELD  PERPENDICULAR  TO  THE  EDGE 
OR  PIANE  OF  INCIDENCE 
fcU 

6IY  SOURCE  PATTERN  FACTORS  FOR  X.Y.  AND  Z  COSPENENTS  OF  INCIDENT 
Eli.  E-FIELD 

ERPP  COMPONENT  OF  REFLECTED  6  FIELD  PARALLEL  TO  PUNE  OF  INCIDENCE 
ERPfc  COMPONENT  OF  REFLECTED  E  FIELD  PERPENDICULAR  TO  PLANE  OF  INC. 
ERA 

fckY  X.Y.Z  COMPONENTS  OF  REFLECTED  FI&D  IN  RCS 
ER2 

EXPh  COMPLEX  PHASE  AND  SPREADING  FACTOR 
LDRC  SET  TRUE  IF  STARTING  POINT  INFORMATION  EXISTS  FRCN 
PREVIOUS  PATTERN  ANGLE 
LHtI  SET  TRUE  IF  PUTE  IS  HIT 
HE  EDGE  ON  PLATE  MP  »H£8E  DIFFRACTION  OCCURS 

MP  PLATE  FOR  MHICH  DI FFRACTION  OCCURS 

PU  DOT  PSOOMCT  Cr  EDGE  61  NORMAL  AND  PROPAGATION  DIRECTION 
PH  DIFFRACTED  FIELD  PHI  UNIT  VECTOR  PERPENDICULAR  TO  EDGE 
PHik  PHI  COMPONENT  CF  PROPAGATION  DIRECTION  OF  RAY 
INC!  SENT  ON  PLATE  MP 

PHL  INCIDENT  FIELD  PHI  SUIT, VECTOR  PERPENDICULAR  TO  EDGE 
PP  NEGATIVE  HOT  PRODUCT  0?  EDGE  3 {NORMAL  AND  INCIDENT  SAY 
WIT  VECTOR 

PS  DIFFRACTED  RAY  PHI  ANGLE  IN  EDGE-FIXED  COORDINATE  SYSTEM 
PSOM  PHI  COMPONENT  OF  INCIDENT  RAY  DIRECTION  IN  EGOS 
FIXED  COORDINATE  SYSTEM 

PSm  «il  CaRPQN&R*  OF  DIF  RAY  PROPAGATION  DIRECT!  i«  E8Cc-f IXSO 
CGOrD  SYSTEM 

Oil  mx  PRODUCT  CF  PUTf  -SGSFAL  AND  OIF  RAY  PROPAGATION  DIXECTIOl* 

01  NEGATIVE  C?  DOT  PMNCT  Or  PUT€  MCRIOML  A*S  INCtUSCT  RAY 

WIT  VECTOR 

AM  I  RADIUS  CF  CURVATURE  FgfiPftPICUUB  TO  EDGE  OF  DI  WPS  ACTED  SAY 

incident  on  reflection  point 

RHII  RADIUS  OF  CURVATURE  IN  £Kc  PM»5  OF  0 { FFR ACtftf  SAY  INDENT 
OR  REFLECTION  POINT  •  ^ 

m*  RAY  SPREADING  RACIUS  IN  PLANE  OF  CYLINDER 'flpHttt'  *T- 
SEFUCTION  FCINV 

MKU  RAY  SPREADING  RAMUS  IN  $L WE  NCIUAi  T*  PLANE  ^  IICIIM^Ob 
Al  CYLINDER  REFLECTION  POINT 
5*AG  DISTANCE  F8d*  DIF  POINT  TO  8SPI  ’ POINT 

SO  St  STANCE  FKUi  SOURCE  TO  DIFFRACTION  POINT  *m*  SMN.  PFftrPTl 
THSk  THeTA  COMPONENT  CF  PROPAGATION  D5W5CYTSN  OF  R&Y 
INCIDENT  ON  PLATT  HP 

UN  l.Y  cenPONENSS  OF  UNIT  V6QTA*  I  AIKEN?  TO  CVL  AT  REFLECTION 
POINT 
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UjJ't'Al 

UiPPY  >A,Y,a  CC-.WAWS  Or  T.CI'&.VT  FIELD  PO>*  r:.*7IC».  »~;|T 
umvJ  p/wllbi  io  plans  of  ikoidenc;- 

v/i  rh.v 
OIPK't 
virtul 

o;J  X.Y  CCivPoNeMS  OF  W4I*  VgCICW  JO«a>t  TO  CYL  AT-rfErLECTIOT 
POJM 

*j  h  P  Pa  "Y 

Oum  >X.Y.Z  CtO’tf.fcMS  •>  i.-.rl.iCT"'-'  F1E1.0  ?  M.A«1 2A7JC?:  V>4T  V=C;T«. 

-mw.  ]  ;'Ai(/-LLhi.  ,o  pla;:c  or  inch  s:;ce 

»i  U<il  VcC.Oif  tr  Piti.r>.  ilifi  OF  rfAY  IMCIt'irf  T  O  *1 rFSACTI DV 
Full,  j  (FittiM  SU**.  DrtfrP T> 

Vic  X.Y.Z  CO.’!i‘ONtir;'s  "-F  urril  VECT-JP  CP  PAY  :>I«.ECTtOM  • 
fcc'TCEfci:  01FH.ACTI0N  A.’!!)  SErri.iiCTtOfJ 
Wh  t'LLl  Pi  ICAL  A."0L£  DSrlMKC  PS?!..  "01  ST  Oft  "VI 
i2-ul  il-  SKCS 

WXS  j*i  *AT.»t*  i&r  I*ilf  0  3)3?Cs  .COUSOIMJITE  SYSTEM  axes 

As..-  X.Y.Z  cuePCf+JHi:  OF  OtrTAACii'V;  POI'JT 
*UP  AVUl+lfcu  Ulrri!  ACTION  PCI  NT.. 

Ah  XiYiZ  CO^FONrN.S  OF  'th'ftfcCT IT.  P^UT 
Ab  SuOuCE  LOCATION  {«;  «Hr  CCClfct  iYi 


PX.Y.Z  C'..APUM:.’iVS  Or  n.C/Rer*.  rlsLO  POA*  fl'ATfff:  ***MT  V  SCT  * 

J  pcni-fe.'.o:a;i.Ai.  ic  plans  of  r*:cir  K.cfc 
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CODE  LISTING 


2  SUBROUTINE  UPLIIC:  ( BOTH .SOPH. FJI  ,M  E.HP ) 

J  L'lH 

4  C! ! !  CWPUTHS  THE  H I  ELI)  DIFFRACTED  FROM  EDGE  M  E  OF  PLATS  *MP 
b  1.11!  THEM  REFLECTED  FROM  THE  ELLIPTIC  CYLINDER 
o  till 

COMPLEX  Er .EG, £•  I  PR ,  G I  PL .  EX  PH  ,DS  ,  HH  ,DPS  ..DPH , EDPR, EDPL, EDTH, EDPH 
t  COMPLEX  ERPfr, ERPP, El  X,  El  Y,  E I Z,  ERX,  ERY, ERZ 

V  DlMENSlttl  U{!<2),UD<2>,VIC<3>,XR(3) 

li>  DIMEMSICK  V!t3),XIH3).PH0<3),PHC3),B0?{3>,B053>.XDP<3> 

11  LOGICAL  LHn.LORC.LOEBUO.LTEST 

12  CO/M<)tI/CEOPL//Xt  14,6,3),  V(  14.6.3). VP(I4,6,3),VN( 14,3) 

13  .MEf'C  14)  ,MPX 

I  *  cO?..v(ifl/i(jil  I>-F/XS<3  >»  VXSt  3,3) 

1  b  CO!'".(s.:/l  t  R/t'  ( 3 ) ,  THSR .  PHSH,  SPHS.CPMS,  FTPS  .CTMS 

It,  COlMOtr/CEOMFL/A,  B,2C(2).SflCI2)  .CMC  (2  ).CTC(2) 

1  T  COMMOH/l  rOFCty  {0(14,6,2) 

111  COi:V(;.‘i/I!fDncL/VDC(  14,6) . UUC52)  ,POCR(  U,6,2>,TDCRC  14,6,2) 

lv  2,07RC(  U,«>,BT!)C<l4,o,4>,RPC<l<,6,2> 

2  A  C0U,0K/iHP{iUV/nT(3)sRP(2) 

2 1  COtMGM/P I  S/P 1 . TP I . DPR, RP3 

22  CO.'.’.Oa/VEST/LI'eB’JG.LiESrF 

23  COMMOri/CLORC/UWCI  14,6) 

2*  Gli!  IS  EDGE  FORCED  BY  INTERS ECU HC  PLATES? 

2b  Ir’CFf  .CT.2.)  CO  TO  4P 

2o  C!!S  IS  DIFFRACT! Of:  POSSIBLE? 

n  IFtO(3).OT.lXX:(:!P,!lE,l).Oil.D(3).LT.nncC!*P,*5E.2))  00  TO  39 

2R  Hi  I  »L«1  Do  ( "P  »  LK  ,  I  )*CPHS4BTnC(f'P.ME,2)*SWS 

:v  r02«BTt:C(’iP,{  E  3  >*CPK$*f)TDC5 MP ,PE, 4 ) *r?PHS 

-w  IrU;r>I.CT.r*TTC<'IP,«S).«n.nD2,CT.D'mCO'P,MS))  CO  TO  39 

31  LSI!  CALCULATE  R/tY  PATH  FOR  01  FFR/CTED-SEFLECTEf)  FIELD 
22  CALL  t)FRFPT{Va.Xa,OOTP,DO,SUAC,VlC.XD.SP.Vl.DV.M=.KP 

22  2,LDKCC4P.ME)) 

24  IRDOTP.fir.O.)  CO  TO  4(1 

2b  IFJOV.LT.atMPP.Me,  l).OR.OY.OT.Bm,tP.i»F.21)  CO  TO  40 

2v  v-t !!  IS  ..EFLECTICr  OF  POKfT  OFF  OF  FI  MITE  CYLINDER? 

2*.  ti-t*fjt3).C7.2CU  >4XRn)*CTCC  I). OR. 

-«  42h(3).LT.4C(2)*XR(l)*CTCt2))  CO  TO  40 

C?IP»20S(Ff;*P.b*PI) 

4«  s:.'P«st:aF!;«!.b*PI> 

4  1  ifU  16  111*). 2 

42  VLC7-VP  ( ’IP  ,{« E.Sll  !H  HP  ,« >*SKP 

4.  16  M)P«::)*X0tfi)*Y&2T*l.6-5 

44  an  IS  RAY  JFAP0UU)  BY  A  PLATS  05:  A  CYLINDER? 

45  CALL  >LAlHT(Xl?P.V1C.nM’,T,1P.LFim 

4u  :>*a»‘tT.AK8,*o?!lT.LT.5WfAO)»  03  TO  40 

*'  CALL  >UlrTOS.Vi,:stlT,:S5»,UUT) 

4sv  MULKtT.*£D.t’OittT.t.T,SPM  GO  TO  *0 

4V  CALL  PI/  I»T< SS.G.uFIV.P.LjHT) 

SW  IrfU’irs  00  TO  *4» 

si  1Htet»5T#ri2iS»i?Ttvim«¥ini*vic2)*v!t2j),vti3ii 

1*2  PMia»8T/?(2(9M2»,9{U|l 

i.  CALL  CYUim  15,95. P«IR,OHIT.LHIT..FALSi£.) 

b*  GO  TO  43 

ib  CW. 

S*» 

bi  ..... 

s.4  ' 

b>  LO  2C  :’*l,  2 

cl  pp«^-vPL*P.ri.:?J*tf5  <M| 

u  ofe»-&©*srtr?P,}5»*viCtws 

W  .1'  Pi«*P5J*VP*S?P,fk.Kt*V|CC*fl 
<*■£  PStW^*AR2  ("!.**>? 

t  V  T%  f  < 

w,  tFO*^.C..>U  PSO*2AWf-.4*SO 
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c'/ 

C  0 
cv 
7t. 

7  I 
72 
7 » 

7  •; 

7  b 

7c  C  !  ! ! 
77  Cl  1! 
7H 
7v 

iifcj  ii 

o  I 

02 

ti  o 

84 

rib 

cc 

8  7  CM! 
tt 

ov 

VC 

V  I 
V2 
Vo 

V  c 
Vb 

Vo  CM  1 

*7 

V;. 

W 

ICC  Cl  11 

I c  I  CM! 
h.2 
Ini 
1 1  *• 
i  i.b 
ll.C 

It.  7 
IC«. 
lev 
:  ic 
1 1 1 
I  12 
:  ii 
IU 
I  lb 
lie 
I  17 
I  lb 
I  iv 
12c 

12  I  CM  ! 

122  c!  1! 

123 

124 
12b 
1 2  <• 

127 

Cl 

1 2 
I  j  t 
lo  I 
I-. 


i»w-..4Af  i  >i» 

ps=l;>**psi. 

IF<PS,l.V,t>. )  PS»3AC,>PS 
FNP=FK*  I  fltj  •  +  I . 8-4  ; 

1 1-  <  P3C .  C>T •  FN P  •  OH  •  PS ,'GT .  H HP )  00  1C  40 
SPH0-SIWP50R)  \ 

CPI'O-COSIPSOR)’ 

sph-::in<  > 

CP!i*C0S(  PSIf) 

CALCULATE  INCIDENT  AND  DIFFRACTED  POLARIZATION 

UNIT  VECTORS 

DO  3'2  !J-|,3  I 

PH0(N)—VP  C.MP,  ME,N)*SPHO+VH(  >'P ,N)*CPK0 
PII<N)«-V(?<NP,;iE,H)*SPH+V!ll.,.<P,N}*CPH 
BOPC  M-PI10C2  )*VI  <3)-PH0<  3)*VK2) 

L>OP(2)-PHO(3)*VI  <  1  )-PH0(  I  )*VIC-> 

HOP<3)«FH0< I )  *  V I (2 )-PF0( 2 )*V I C I ) 
f>0(  I  )*Pi:(2  )*VIC(  3) -PHI  3 )  *V IC (2  1 
Pel 2  )*P!;(3)*VIO(  I  )-PH(  I  ) *Y ICC3 ) 

C0(i)-PF<  l  )* V I C 1 2 )  — PFC 2  )  *V  IC <  I  ) 

CALCULATE  SOIN'CE  FIELD  PATTERN  FACTOR 
CALL  SOURCE ( Er ,E0, El  X, El Y, EIZ, THIS, PFIR, VXS) 
l:TP-;=EIX*PHC<  I  I+HI Y*PHO(2)+EIZ*PHO(3> 

C-I  PL=EIX*[i:OP  ( I  )  +  EI  V*r:OP  ( 2 )  +'f.  IZ*ROP  <3  ) 

SI  (.aSORT  ( <  V  <  ,WP  , .MO,  3 )  *V  I C  < 2  ) - V C  VP , ME , 2 )  *V  IC ( 2  )  >  **2 
2  +  < V(‘  P,Nc,  I  >*vIC(3)-V(MP,,ME,3)*VIC<  I  ))**2 
2  +  (V("P,/.,Et2)*VIC(  I  )-VCMP,..|E,  I  )*V IC  (2  ) )  **?. ) 

T  P  P=  3P*  ui  A  c*  S  LG*  SE  0/  <  S  ?  *  s;.'  A  G ! 

e>:pii=cexp.< c;tlx< d.  ,-tp i*sp  ) )  /sortc  sp ) 
calcula:e  diffracted' fields 

CALL  ;)’.V( bs, Dl:, DPS, DPH, Top, PS, PSO,SBO,Fi;,. FALSE. ) 
EDPn'a-EI  f*H*L‘il*HXPI! 

EL?L=-EIPL*Cf»EXPH 

CALCULATE  CECi’ETHI  CAL  OPTICS  REFLECT  TON' 

PARAMETER'S 
KO»LD*Bl>*DD//./B 
CALL  N'AMIFCCI  ,un,vn> 

CTHCalJIK  l;)xPU  )+UN(2)*D<2) 

•.•.'R='!Ta;I2(1“VIC(  I  )*UBC  I  >-V IC (2  )*HB(2  ) , -V  IC ( 3  )  ) 

1211  :*S,".AG  5 

RH 1 2  =?.*.:/ 0+S2  I 

TUI  I »PH(  l!)*nr.(  1 )  +PH<2 ) *UB( 2 ) 

TH 1 2  =P!  I  ( 3) 

TH2l=i;C<  1 0 *U E (  I )+B0(2)*US(2 > 

TI  122= DOC  o.) 

DE7=7H  I  1  *TJ I22-TH 1 2 *7H2  I 
CTHD-CrhC/ ( C ET *DET )  • 

RliA=.5*(  I*.  /RFI  1 ♦ I , /RHI 2  )+CTHn*(TH22  *T:!22+T!'  I 2*T2  12  )/.r 
KH  12  =  1  ./fiHIl -I  ./RHI2  I- 

HHB=;<HI2*^H2+RHI2*<.*CTFi)*(TH22*T!:22-THI2*T:!l2)/P0 
I;HL=RHB+4’.»CTI:D*CTHD*(  (TH22*Tif22+Tl’l 2*7F12  )/R0)*+2 
h!iR=.b*SnRT(  HHB> 
li!10l  =  l./(HHA+lihL  ) 

I.HC2=I  ,/(HI?A-HliB) 

COMPUTE  POLAHIZATI Of!  UNIT  VECTORS  (PERPENDICULAR 
AND  PARALLEL  TO  PLANE  OF  INCIDENCE > 
uipRX=si;:< ;vr-.5*pi  )*uec  i  ) 
iJ I  Pi,  Y=SI  r  ( r.K—  .5*PI  )*UD(2  ) 
i: I  f':-..'.=CCS(;-iR-.b*PI  ) 

V  1 1'!' > .= V I C C  3 )  *! :  1 1 > !<  Y-V  I c  C  2  ) *n !  Pl.’Z 
u; 'b-Y=V!C(  I  )  *'3 1 PUZ-V  IC  (  3  )«'l  |  PKX 

uior::=v iccr)*uiprx-vicc  i  »*t: i pky 

UhPi-:  =[)(2  j*ClPKY-i)<2  )A"[  p„;/ 

Ui :  PI ■  /=' H  I )  *li  1 1> I, Z -I .  ( 3  ) * U I  PH  X 
i:HPi'/.=‘V(r  )*IJ IP.iX— i>(  1  )*UI  r>i<Y 

L XI*; X !’  ( t:,|PL.<(  P.  ,-TPI*^.'iA(J ) )  /i'CHTC  5  A C.*(  FD+S"»'',)  ) 


; 
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Best  Availabta  Copy 
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133  C! ! I  CALCUALTE  DIFFRACTED  FIELD  COMPONENTS  INCIDENT 

134  UM  ON  CYLINDER  PARALLEL  AND  PERP.  TO  PLANE  OF  INC. 

13b  El  PH=EDPL*  ( BO?  t )  *t J I  PRX+DO! 2 )  *U  I  PRY+BO(  3 ) *U I PR2 ) 

1 3  C  2+EDPk* ( PH (  I ) *tl  I  PRX+PH!  2  >  *U  I  PPY+PM!  3 ) *U  I PfiZ  / 

13'/  EIPL=EDPL*(EC(  I  )*UIPPX+BO(2)*UIPPY+BO(  3)*«IPPZ) 

13d  2+EDPR*(PH(  I  )*UIPPX+PH(2)*UIPPY'*-PH!  3)-*i)IPPZ> 

I3V  UM  COMPUTE  REFLECTED  FIELD  COMPONENTS  PARALLEL 
Uo  UM  AND  PERPENDICULAR  TO  CYLINDER 

U1  ERPk'=-SCRT<fiH01*RH02>*EXPH*£IPR 

142  ERPP=SQRT  ! IIHOI +RH02 )*EXPH*EI  PL 

143  UM  CALCULATE  X,Y,Z  COMPONENTS  CF  REFLECTED  FrELD 

144  ERX=EKPR*UIPRX+ER?P*URPPX 

14b  ERY=ERPE*UIPPY+ERPP*URPPY 

I4C  ERZ=EHPR*UIPRZ+ERPP*URPPZ 

14'/  EXPH=CEXP(C,MPLX<0.  ,TPI*!  XR(  I  >*D(  I  >+XR!  2  >*D(2  >+XR(3)*D(3> )>  > 

Ut  UM  COMPUTE  THETA  AND  PHI  COMPONENTS  OF  DI FFR  ACT  ED- 

14  1/  UM  REFLECTED  FIELD  IN  RCS 

lot;  EDT!I=(ERX*DT ( !  >+ERY*DT!2  >+ERZ*DT(3 ))*EXPH 

lb  1  EDPH=(  EkX*DP<  1  >+ERY*DP!2  ))*EXPH 

Id  2  GO  TO  VfcG 

lbo  3V  LDliC IMP, ME )=*. FALSE . 

Ib4  *0  CONTINUE 

1  Lb  EUTrXa.,0.) 

lbo  EDPH=UJ.,0.) 

If/  <-00  CONTINUE 

Ibd  IF(.NOT.LTEST)  RETURN 

Ibv  WRITE!6,«)I) 

100  COI  FORMAT!/,''  TESTING  DPLRCL  SUBROUTINE') 

lei  WRITE! 6, *)  EDTH, EDPH,FN,MS,MP 

162  RETURN 

1 03  END 
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PURPOSE 


To  calculate  the  far-zone  electric  field  (with  phase  referred  to 
the  RCS  origin)  for  a  source  ray  which  diffracts  off  of  edge  ME  of  plate 
MP  and  is  then  reflected  by  plate  MR. 

PERTINENT  GEOMETRY 


Figure  58— Illustration  of  edge-diffracted,  plate-reflected  ray. 


FROM 

DIFFRACTION 


Figure  59— Geometry  used  in  computing  plate  reflection. 


METHOD 

The  fields  diffracted  by  a  plate  edge  and  the  reflected  by  another 
plate  are  calculated  in  this  subroutine[4,9,10] .  The  diffracted 
and  slope  diffracted  fields  of  the  plate  edges  and  corners  are  obtained 
as  described  in  subroutine  DIFPLT.  The  reflection  from  the  plate 
is  found  by  decomposing  the  diffracted  fields  into  components  tangent 
and  normal  to  the  reflection  plate  (see  Figure  59),  satisfying  the 
appropriate  boundary  conditions  and  then  transforming  the  field 
back  to  the  reference  coordinate  system.  The  edge  and  slope  dif¬ 
fracted  fields  are  combined  and  the  phase  referred  to  the  reference 

coordinate  system  origin  by  the  factor  The  form  of  the 
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the  field  is  therefore  given  by 

i  a  a  *jkR 

r  =  Wm(EDTHe  +  EDPH<j>)  . 

The  corner  diffracted  and  slope  corner  diffracted  fields  are  combined 
in  a  similar  way  and  are  given  by 

.  A  A  “jkR 

r  =  Wm{ECTH0  +  ECPH*)  > 

e-jkR 

where  the  factor  — * —  and  the  source  weight  (VL)  are  added  elsewhere 
in  the  code.  R  m 
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FLOW  DIAGRAM 


OPLRPL  (EDTH,EDPH,ECTH,ECPH,FNN,HE,MP,W) 

INPUT  VARIABLES 

FNN  wedge  angle  Indicator 

MP  plate  where  diffraction  occurs 

ME  edge  on  plate  MP  where  diffraction  occurs 
m  plate  where  reflection  occurs 

OUTPUT  VARIABLES 

EOTH  theta  component  of  edge  diffracted, 
reflected  E  field  In  RCS 
EOPH  phi  component  of  edge  diffracted, 
reflected  E  field  In  RCS 
ECTH  theta  component  of  corner  diffracted, 
reflected  E  field  In  RCS 
ECPH  phi  component  of  corner  diffracted, 
reflected  E  field  In  RCS 


1.  Compute  direction  [ft  of  ray  incident  on  plate  MR 
(ray  propagation  direction  after  diffraction). 

2.  Perform  diffraction  point  geometry  calculations  to  obtain 
diffracted  ray  In  direction  00 


Compute  Incident  field  components 
perpendicular  ind  parallel  to  edge 


SYMBOL  DICTIONARY 


A I  COMPONENT  OP  INCIDENT  DIP  FIELD  NORMAL  TO  PLATE  MR 

A2  COMPONENT  OF  INCIDENT  DIF  FIELD  TANGENT  TO  PLATE  MR 

A3  DETERMINANT  OF  TRANSFORMATION  MATRIX 

AON  COT  PROOUCT  OF  VECTOR  FROM  PLATE  MP  TO  THE  SOURCE  AND  THE 
PLATE  UNIT  NORMAL 
AFN  HEDGE  ANGLE  NUMBER 

BDEL  .VARIABLE  USED  TO  EXPAND  DIFFRACTION  ANGLE  RANGE  IF  CORNER 
DIFFRACTION  IF  USED 

BDH1  UPPER  LIMIT  FOR  BD,  THE  COSIHE  OF  THE  DIFFRACTION  ANGLE  BETA 

BDLGN  LONER  LIMIT  FOR  60.  THE  COSINE  OF  THE  DIFFRACTION  ANGLE  BETA 

BETH  DIFFERENCE  IN  DIFFRACTED  AND  INCIDENT  PHI  ANGLES 
BE1P  SUM  OF  DIFFRACTED  AND  INCIDENT  PHI  ANGLES 
BO  DIFFRACTED  FIELD  BETA  POLARIZATION  UNIT  VECTOR  (IN  EDGE 
FIXED  COORD  SYS)  IN  RCS  COMPONENTS  (FOR  DIF  EDGE) 

IN  (X.Y.Z)  REF  COORD  SYS.  COMPONENTS 
BOP  INCIDENT  FIELD  BETA  POLARIZATION  UNIT  VECTOR  (IN  EXE 
FIXED  COORD  SYS)  IN  RCS  COMPONENTS  (FOR  DIF  EDGE) 

Cl)  DOT  PRODUCT  OF  REFLECTED  FIELD  POLARIZATION  VECTOR 
DT  AND  PLATE  COORD  SYS  UNIT  VECiOR  VN 
C  IIA  DOT  PROOUCT  OF  RAY-FIXED  C.S.  VECTOR  BO  AND  PLATE  C.S.  VECTOR  VN 

CIS  DOT  PRODUCT  OF  RAY  FIXED  COORD  SYS  VECTOR  OP  AND 

PLATE  COORD  SYS  UNIT  VECTOR  VN 

CI2A  DOT  PROOUCT  OF  RAY-FIXED  C.S.  VECTOR  PH  AND  PLATE  C.S.  VECTOR  VT 

C2I  DOT  PROOUCT  OF  RAY  FIXED  COORD  SYS  VECTOR  DT  AND 

PLATE  COORD  SYS  WIT  VECTOR  VT 
C2IA  DOT  P800UCT  OF  RAY  FIXED  COORD  SYS  VECTOR  BO  AIR) 

PLATE  COORD  SYS  VECTOR  VT 

C22  DOT  PROD.  OF  REFLECTED  FIELD  P0LARI2ATI0N  UNIT  VECTOR 
DP  AND  PLATE  COORD  SYS  UNIT  VECTOR  VT 
COORD  SYS  UNIT  VECTOR  VT 

C22A  DOT  PROOUCT  OF  RAY-FIXED  C.S.  VECTOR  PK  AND  PLATE  C.S.  VECTOR  VT 

CNP  COSINE  OF  HALF  HEDGE  ANGLE 

CORN  CORNER  DIFFRACTION  COEFFICIENT 

CPH  COSINE  OF  PER 

CPNJ  COSINE  OF  PHJR 

CPHO  COSINE  OF  PSOR 

CTH  COSINE  OF  THR 

CTHJ  COSINE  OF  THJR 

CTNP  COSINE  OF  THPR 

DEL  PARAMETER  USED  IN  TRANSITION  FUNCTION 

OH  DIFFRACTION  COEF.  FOR  KARO  BOUNDARY  CONDITION 

DH1T  DISTANCE  FROM  SOURCE  TO  NEAREST  HIT  (FROM  SUBS.  PLAINT  OR  CYLINT) 

DHI  DISTANCE  FROM  SOURCE  TO  HIT  (RETURNEO  FROM  PLAINT  AND  CYLINT) 

DJ  X'Y,  AND  Z  COMPONENTS  OF  RAY  PROP.  DIRECTION  BETNEEN 
DIFFRACTION  AND  REFLECTION 

DPH  SLOPE  DIFFRACTION  COEFFICIBIT  FOR  HARD  BOUWARY  CONDITION 

OPS  SLOPE  DIFFRACTION  COEFFICIENT  FOR  SOFT  BOUNDARY  CONDITION 

OS  DIFFRACTION  COEF.  FOR  SOFT  BOUNDARY  CONDITION 

DV  DOT  PROOUCT  OF  EDGE  VECTOR  AND  DIFFRACTED  RAY  PROPAGATION 

DIRECTION  UNIT  VECTOR,  DJ 

ECB1  DIFFRACTION  COEFFICIENT  (FROM  SUB.  DI)  FCR  INCIDENT 
DIFFRACTED  FIELD,  MODIFIED  FOR  CORNER  DIFFRACTION 
ECBR  EDGE  DIFFRACTION  COEFFICIENT  (FROM  SUB.  DU  FOR  REFLECTED 
DI FFARACTE9  FIELD.  MODIFIED  FOR  CORNER  DIFFRACTION 
ECPH  PHI  COMPONENT  OF  CORNER  DIFFRACTS),  REFLECTED  E-FIELD 
ECTH  THETA  COMPONENT  Cf  CORNER  DIFFRACTED,  REFLECTED  E-FIELD 
ECPH  PHI  COMPONENT  OF  EDGE  DIFFRACTED,  REFLECTED  E-FIELD 
EUPL  COMPONENT  OF  DIFFRACTED  FIELD  PARALLEL  TO  THE  EDGE 
EOPR  COMPONENT  OF  DIFFRACTED  FIELD  PERPENDICULAR  TO  THE  EOGE 
EUTH  THETA  COMPONENT  OF  EDGE  DIFFRACTED,  REFLECTED  E-FIELD 
EF  THETA  COMPONENT  OF  PATTERN  FACTOR  OF  FIELD  INCIDENT  ON  EDCE 
ALSO  THETA  COMPONENT  OF  REFLECTED  FIELD 
SO  PHI  COMPONENT  OF  PATTERN  FACTOR  OF  FIELD  INCIDENT  ON  EOOE 
ALSO  PH!  COMPONENT  OFN  REFLECTED  FIELD  IN  RCS 
C1PL  COMPONENT  OF  INCIOENT  FIELD  PARALLEL  TO  THE  EDGE 


168 


El PIP  PATTERN  FACTOR  FCP  COMPONENT  Or  SOURCE  » INCIDENT)  SLOPE  FIELD 
PARALLEL  TO  THE  EDGE  (RAY  INCIDENT  ON  DIFF  EDGE) 

ElPfi  COMPONENT  OF  INCIDENT  FIELD  PERPBIDICULAR  TO  THE  EDGE 

El PUP  PATTERN  FACTOR  FOR  COMPONENT  OF  SOURCE  (INCIDENT)  SLOPE  FIELD 

1  PERPENDICULAR  TO  THE  EDGE  (RAY  INCIDENT  ON  DIFF  S)GE) 

SOURCE  PATTERN  FACTORS  FOR  XtY,  AND  Z  COMP EN ENTS  OF  INCIDENT 
FIELD  ON  EDGE 

c*rn  COMPLEX  PHASE  TERM  (REFER  PHASE  TO  RCS.  ORIGIN) 

FN  HEDGE  ANGLE  NUMBER 

FNN  HEDGE  ANGLE  INDICATOR 

FNP  ANGLE  EXTERIOR  TO  HEDGE  IN  DECREES 

GAM  DOT  PRODUCT  OF  THE  PROPAGATION  DIRECTION  AND  THE  VECTOR  FROM 

THE  REF  COORD  SYS  ORIGIN  TO  THE  01 FFRACTION  POINT  IMAGE  LOCATION 
ISN  SIGN  CHANGE  VARIABLE 

LHIT  SET  TRUE  IF  RAY  HITS  A  PLATE  OR  CYLltOER  (FROM  PLAINT  OR  CYLIHT) 

MC  CORNER  AT  END  OF  EDGE  ME 

ME  EDGE  ON  PLATE  MP  NHERE  DIFFRACTION  OCCURS 

MP  PLATE  FOR  WICH  DIFFRACTION  OCCURS 

MR  PLATE  WERE  REFLECTION  OCCURS 

N  IX)  LOOP  VARIABLE 

PD  DOT  PROOUCT  OF  EDGE  BI NORMAL  AND  PROPAGATION  DIRECTION 
PH  DIFFRACTED  FIELD  PHI  POLARIZATION  UNIT  VECTOR  (IN  EDGE 

FIXED  COORDINATE  SYSTEM) IN  RCS  COMPONENTS  (FOR  DIF  EDGE) 

PHIR  PHI  COMPONENT  OF  INClDaiT  RAY  DIRECTION  IN  REF  COORD  SYS. 

PHJR  PHI  COMPONENT  OF  RAY  PROP.  DIR.  BETHEEN  DIF  AND  REFLECTION 

IN  RCS 

PHO  INCIDENT  FIELD  PHI  POLARIZATION  WIT  VECTOR  (IN  EDCE 
FIXED  COORD  SYS)  IN  RCS  COMPONBITS  (FOR  DIF  EDGE) 

PHSR  PHI  COMPONENT  OF  PROPAGATION  DIRECTION  AFTER  REFL  IN  RCS 
PP  NEGATIVE  DOT  PRODUCT  OF  HX2  BINORMAL  AND  INCIDENT  RAY  UNIT  NORMA 

PS  PSftDFR 

PSD  DIFFRACTED  RAY  PHI  ANGLE  IN  EDGE-FIXED  COORDINATE  SYSTEM 

PSO  P50R*DPR 

PSOO  INCIDENT  RAY  PHI  ANGLE  IN  EDGE-FIXED  COORDINATE  SYSTEM 
PSOR  PHI  COMPONENT  OF  INCIDENT  RAY  DIRECTION  IN  EDCE 
FIXED  COORDINATE  SYSTEM 

PSR  PHI  COMPONENT  OF  DIF  RAY  DIRECTION  IN  EDGE-FIXED  COORD  SYS 
OD  DOT  PRODUCT  OF  PLATE  NORMAL  AND  PROPAGATION  DIRECTION 

01  NEGATIVE  OF  DOT  PROOUCT  OF  PLATE  NORMAL  AND  INCIDENT  RAY 

PROPAGATION  DIRECTION 

MM  MAGNITUDE  Or  VECTOR  FROM  CORNER  MC  TO  SOURCE 

NX  ] 

RY  >  X. Y.  AND  2  COMPONENTS  OF  VECTOR  FROM  CORtCR  MC  T'  SOURCE 

«Z  i 

5 BO  SINE  OF  BO,  THE  ANGLE  THE  DIFFRACTED  »AY  MAXES  NITH  THE  EDGE 

SNP  SINE  OF  HALF  HEDGE  ANGLE 

SP  DISTANCE  FROM  SOURCE  TO  DIFFRACTION  POINT  (FROM  SUB.  DfPTTO) 

SPH  SINE  Of  PSR 

SPHJ  SINE  OF  PHJR 

SPHO  SINE  CF  PSOR 

SPP  DI STANCH  FROM  SOURCE  TO  MODIFIED  DIFFRACTION  POINT 
STHJ  SINE  OF  TH4R 

STHR  SINE  OF  THR 

TERM  COEFFICIENT  OF  CORNER  DIFFRACTED  FIELDS 
THIR  THETA  COMPONENT  OF  INCIDENT  RAY  DIRECTION  IN  REF  COORD  SYS 

THJR  THETA  COMPONENT  OF  RAY  PROP.  DIR.  BETWEEN  DIF.  A NO  REFLECTION 

IN  RCS 

THPk  ANGLE  DIFFRACTED  RAY  MAXES  N|TH  EDGE 
THR  ANGLE  BETHEEN  EDGE  UNIT  VECTOR  AND  RAY  FROM  SOURCE 
TO  CONNER  MC 

TPP  DISTANCE  PARAMETER  USED  IN  CALCULATING  DIFFRACTION  COEFFICIENTS 
VECT  VgClOM  USED  TO  MOVE  DIFFRACTION  POINT  OFF  EDGE  FOR 
SHADOWING  TESTS 

VI  Will  VECTOR  OF  RAY  INCIDENT  ON  EDGE  FROM  SOURCE 
(HIGH  SUBROUTINE  DFPTND) 
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VIP 

VUG 

VT 

vxs 

XD 

XDP 


XDPP 

XS 

ZP 


mi  VECTOR  FROM  SOURCE  TO  MOOIF1ED  DIFFRACTION  POINT 
DISTANCE  ALONG  THE  EDGE  FROM  FIRST  CORNER  OF  EDGE  ME 
TO  DIFFRACTION  POINT 

X,Y,  AND  2  COMPONENTS  OF  UNIT  VECTOR  ON  FLATS  NR  NORMAL  TO 
PLANE  OF  INCICaiCE  (TANGENT  TO  PLATE) 

3X3  MATRIX  DEFINING  THE  SOURCE  COORDINATE  SYSTEM  AXES 
DIFFRACTION  POINT  (CALCULATED  IN  SUB.  DFPTND) 

MODIFIED  DIFFRACTION  POINT  USFO  FOR  SHADONING  TESTS 
ALSO.  LOCATION  OF  DIFF  POINT  IMAGE  IN  PLATE  MR 
DIFFRACTION  POINT.  CONVERTED  TO  REFLECTION  HIT  POINT 
SOURCE  LOCATION  IN  REF  COORD  SYS 

DOT  PRODUCT  OF  PROPAGATION  UNIT  VECTOR  AM)  VECTOR  FROM 
DIFFRACTION  POINT  TO  CORNER  NC 
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J 


I 
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CODE  LISTING _ ^ _ _ _ 

2  SUBROUTINE  DPLRPLI  EDTH , EDPH,  BOTH*  ECPK*  BIN*  ME*MP*  Ml  I 

j  cut 

4  CIS!  DETERMINES  THE  DIFFPACTEfcAIEFLBCTED  FIELD  WITH  PHASE 

5  CII!  RffERRED  TO  ORIGIN.  RAY  IS  DIFFRACTED  FROM  EDGE  ME  ON 

6  Cifl  PLATE  MP  AND  REFLECTED  FROM  PLATE  #WR 

7  cm 

8  COMPLEX  EF,EC,EIPR,EIPLtEXPh'tD$*DH,DPSfDPH,EDPR*E)PL,EIffH,H»H 

9  COMPLEX  EIPRP,EIPLP,EIX,EIY.EIZ,C0ftN,FFCT,Al,A2 

ID  COMPLEX  ECTHvECPH,ECBI,ECBR 

11  DIMENSION  VI(3),XD(3),PHO(3)',PH(3),BOP(3>,BO<3),XDP<3> 

12  DIMENSION  OJ<3),VTC3),VIP{3) ,XOPP<3) 

13  LOGICAL  LSUHF ,  Ltf  2  T , LD6BUO, LTEST • L5L0PE ,LCOSMR«  LDIF 

14  COMMON/TSST/LDEBUG.LIEST 

15  COMMON/LOGDI F/LSLOPE , LCCRNR 

16  COMNON/GEOPLVXI  I4,6,3),V(  14,6,3),  VP(  14,6,3)  ,VN(  14 13) 

17  2,N£P(I4I,MPX 

18  COMMON/SORINF/XS  C3 ) , VXS 1 3,3) 

19  COMMON/DI R/Dt3),THSR,PHSR,SPHS.CPHS,STHS» CTOS 

28  COMMON/BNDFCL/BD ( 14,6,2) 

21  COMMCN/THPHUV/DT(3}»PP(2  J 

22  COMMON/PIS/PI«TPI«DPR*RPD 

23  COMMON/EDMAG/VMAGt  14.6) 

24  COMMON/SURF AC/LSURF( 14) 

25  FN«FNN 

26  MOMS*! 

27  IF  (MC.GT.  MEP(MP).)  MO  I 

28  CIH  INITIALIZE  FIELDS 

2  V  EDTH«t0.,0.> 

38  EDPH»tO,.O.J 

31  ECTK«(0.,e.) 

32  ECPH-10.,0.) 

33  C1M  I.  COMPOTE  INCIDENT  DIRECTION  OF  FIELD  ON  PLATE  #MR 

34  CALL  REFBPtPHJR.mJR.PHSR.TKSB^R) 

35  SFKJ*SIN£PHJR) 

36  CPKJ-CaS<PNJR> 

37  SIKJ*SINITKJR) 

38  CTHJ«COStTHJR> 

39  DJ<II-CPHJ4STHJ 

40  DJI2)-SPHJ*STHJ 

41  dj<3>-cj:u 

42  cm  2.  PERFORM  DIFFRACTION  POINT  GEOMETRY  CALCULATIONS 

43  Cm  TO  OBTAIN  RAY  IN  DIRECTION  DJ 

44  ov«e. 

45  00  10  N* I . 3 

46  10  QV-OV*OJ(N>*V(MP,ttg,H> 

47  IFtA35t0V) .GT.0.999)  GO  TO  40 

*8  Boa-o* 

49  IF  (LC05NR)  0OBXJ.3 

50  K3L0N»S0<HP,«£,n-S0SL 

51  83H!  »3Dt  MP  «MSV2)  *§DEL 

52  Clll  DETERMINE  IF  DIFFRACTION  EXISTS 

53  IF  {OV,LT.8OL0M.OR.OV.GT,eCHn  GO  TO  40 

54  cm  COMPUTE  EDGE  DIFFRACTION  PT. 

55  CALL  OFPTMC<XS,DV,Vi ,SP.XD»M£,*PJ 

56  A 0*4. 

5?  VMOa». 

58  AFN*PN* 

SV  lFtAFN.CT.2.)AfN«6.-AFN 

60  CNP*C0S»AFfl4Pl/5«l 

01  5MP*SI  Ml  #RJ«P!  /2  .  > 

62  DO  15  fi*«,3 

63  XCPINl*iD?NJ 

6«  VMG«VlfC*JXDlNI-XfSiP,«E,HI>4V»fP,JSE,?CJ 

65  15  ADN«ADN4(XStNl*X(aP,l»N)}*vmMPvtS> 

66  LDIF*.  TRUE. 
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67  Clll  IS  DIF  POINT  ON  PLATE  EDGE?  IF  NOT  SeT  Oil*  POINT  AT 

68  CIII  APPROPRIATE  CONNS*  AND  SET  LDIF  FALSE 

6V  !F  (VMC.LT.I.E-5)  GOTO  101 

70  IF  CVMG.L7.VNAG!MP,ME)“I.E-4>  00  TO  102 

71  00  103  N-1,3 

72  (03  XOP<N>«X(MP,NC.N>-I.EM*V<JtP,NE,H> 

73  LDIF-.FALSE. 

74  00  TO  102 

7ft  104  XDP!N)-X(MP^M£,N)+I«E'4*V(MP,ME,N) 

T1  LDIF-.FALSE. 

70  Ift'  00  16  K-l,3 

7V  VECT-VP(MP,NE,H)*CNP*VN(MP,N)*SNP 

80  XDPfN>-X0PCN)*i.E-5*VECT 

81  16  XDPP(N)-XOP(N> 

82  Cill  3.  CHECK  TO  SEE  IF  RAY  IS  StADONED  ANYWERE 

83  Cl tl  DETERMINE  IF  REFLECTION  OFF  PLATE  *H8  OCCURS 

84  CALL  PLAINT!  XDPP.DJ, CHIT ,~1© ,LHIT) 

85  IFt.NOT.LHITi  GO  TO  40 

86  Cl tl  DETERMINE  IF  RAY  AFTER  REFLECTION  NITS  PLATE 

87  CALL  PLAINT!  XDPP.D.DWT, MB,  UtlTI 

58  IF(LHIT)  CO  TO  40 

89  Cill  DETERNINE  IF  RAY  AFTER  REFLECTION  HITS  CYLINDER 

90  CALL  CYLINT! XDPP.O.PHSR. OHT, LHIT, . TRUE . ) 

91  IFILNIT)  CO  TO  40 

92  CM!  DETERMINE  IF  EDGE  DIF.  RAY  HITS  PLATE  BEFORE  REFLECTION 

93  CAa  PLAINT!  XDP.DJ.DWT, MR, LHIT) 

94  JFCLHIT.AND.!D}Or,LT.EHIT»  00  TO  40 

95  Cill  DETcfiMINE  if  EDGE  OIF.  RAY  HITS  CYLINDER  before  reflation 

96  CAa  CYLINT! XOP.  OJ  .PKIR.DHT.LHIT ..TRUE . ) 

97  IFtLNIT.AND.  iOHT.LT.OHITJ)  GO  10  48 

98  SPP-0. 

9V  00  III  N-l,3 

100  VIP(N)<*X0P(N)>XS!>O 

101  III  $PP»$FP*VTF(N)*V!PttO 

102  SPP-SQRT(SPP) 

103  D0II2N-I.J 

104  | 12  VIPtN>-VIP!K)/SPP 

105  Cill  DETERMINE  IF  HAY  FROM  SOURCE  HITS  A  PLATE  OR  A  CYLINDER 

106  CIU  BEFORE  OIF. 

107  CAa  PLAINT! Jt$,VIP,OHT,NP,IJNlT* 

108  !r  (LHIT.ANG*  !DHT.LT.SPPI  J  CO  TO  -0 

l«V  TNI R-8TAN2 CSO»T« VI ( 1  }•¥! ! I  »>Vl  12 *-91  (;>  )),V{(3>* 

110  P(iIR-BTAN2<VI<2},V'cm 

HI  CAa  CYLINT!  *3,  VI, PHIR.OHT.UUT,. FALSE.! 

U2  JFtLHIT.AND. !DffT .LT.SPPi )  00  TO  40 

113  Cill  4.  CALCULATE  DIFFRACTION  ANOXS  AND  S ELATED  GEOMETRY 

114  OI-C. 

,115  PP*3. 

ltd  co-e. 

117  PS-*, 

It*  DO  20  N-1,3 

.11 V  OI-OI»VN<MP,N)*V1!NI 

120  FP-FF*VP«(P.ME,NI*Y|iN> 

12*  0!KN>*VN!ltP,N>»OiCNt 

122  20  PO*P0*VPtMP'M£»f(t*$I;N» 

123  Clt!  CALCULATE  PSti  AND  25,  THE  INCIDENT  AND  OIFFSaCJEO  PK1  ANGLES 
I2«  CISI  IN  EOOE-fISEO  COOPCTKATE  SYSTEM 

125  PSCe*5TAJ«2Cftt,P»»> 

126  PSO-DPO«PSOH 

«7  IFtPSO.LT.0*  I  PSO-360.4PSO 

•28  PSS-SWAStOEMCS 

129  PS«CJ*«PSi* 

130  IF!PS.tT.4„)  ?V3dO.-P5 

131  P5OO-0S5 

132  PS0-F5 
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133  IFCFH.LE.2.)G0  TO  2» 

134  FN*FN~2. 

136  PSOO*36i3--PSO 

130  PSO-3O0.-PS 

137  21  FHP-FN*l80.*I.E-« 

138  IFCPSO.GT.FNP. Ofl.PS.GT.FHP)  00  TO  40 

13V  SPHO*SIN(PSOR) 

140  CPHO-COSCPSOR) 

141  SPH«SINCPSR) 

M2  CPB*CGS<  PSRJ 

143  cm  COMPUTE  DIFFRACTION  POLARIZATION  UNIT  VECTOR  SC  PHO,  PH  .OOP ,  BO) 

144  DO  30  N-1,3 

1 45  PHOC  N) —VP  CMP, ME ,M )*SPHO*VN<  MP , K )*CPHO 
l4o  30  PHCN)— VPCMP,ME,N)*SPH*VNCMPfN)*CPH 

147  SOPC  f  J-PH0C2  >*VI  <3>-PH0C3)*VlC2) 

148  30PC2)»PH0<3)*Vi<l)-PH0(t)*VII3) 

14  V  BOPC3)-PHOCn*VIC2)-PHOC2)*VIM) 

150  8OCI)«PH<2)*0JC3)-PHC3)*CUC2) 

151  B0C2  )»PH(3)*DJ(I  )-PHCI  1*03(3) 

152  B0(3)«PH(I  )*DJC2  J-PHI2  )*DJ  C 1 ) 

153  CHS  COMPUTE  S30>SIHE(B0) 

154  S80«SQRTC{VCMPtME,3)40J(2)-VCJJP,.'4E,2)*DJC3))**24CVCMP,ME,l) 

155  24DJ(3)-VCMP,PEt3)*DJCI ))**2*CV<aP,ME,2)*0JC ‘ >«VC MP.ME, I) 

ISO  2*0U(2))**2) 

157  TPP-SP*380*SB0 

158  CSS!  5.  CALCULATE  EDGE  DIFFRACTED  FI  ELDS 

159  CHS  COMPUTE  SOURCE  PATTERN  FACTORS 

100  CALL  SGURCECEF,EC,EIX,EIY,EIZ,THIR,PHIR,VXS 1 

lot  cm  COMPUTE  INCIDENT  FIELD  COMPONENTS  PARALLEL  AND  P EBP.  TO  5DG£ 

102  ElPfl«EI A*PKC< I )*EIY*PH0C2)*EI2*PH0C3) 

163  EIPL*EIX*BCP( I )*Ef Y»50?C2)*cIZ*BCP(3) 

104  CSS!  IF  SLOPE  DIF  IS  OESIREQ,  COMPUTE  INCIDENT  SLOPE  FIELD 

ios  cm  pattern  FAcrcds 

ioo  ifclslopeicall  scxiacpcEiPftp.EiPLP.vi.PHc.acp.vxs) 

107  CSS!  CALCULATE  LCCATl ON  OF  OIF  POINT  IMAGE  IN  PLATE  S3 
lot)  CALL  I  MACE  I XCP  ,  XO.  AON ,  MR ) 

10V  CHI  CALCULATE  PHASE  TERM  FOR  OIF  I DACE  POU.T 

170  GaM-XUPIOOH  )*XOPC2>*0(2)*)OPC3)*OC3) 

171  EXPH-CEXP<CMPLXC0.,TPI*tQA»:-SP)))/SORTCSP) 

172  cm  COMPUTE  EDGE  DIFFRACTION  COEFFICIENTS 

173  CALL  GRIDS, OH, DPS, QPH.TPP.PSO.PSCQ.SBO.FH.LSURFCHPi) 

04  IF  jLDESWJ)  KRITE  CO,*)  EIPS.EIPL.EI  PHP.EIPLO 

575  IF  CLOE6UO)  *RITK  CO,*)  CS,DH,D?S,OPH 

170  I?  (LOEWIS)  MITE  (0.*)  TPP.PSD.PSOO.SBO.FN 

1*7  CH!  COMPUTE  PEFPaiOICUWR  AND  PARALLEL  COMPONENTS  OF 

178  CSS!  EDGE  DIFFRACTED  PIELO  CSG?».8)PL> 

179  tOPR^FIPil-SH 

lg«  EOPL»-eiPL*OS 

181  CSS!  IF  SLOPE  OIF  IS  3SSI3E0,  AEQ  SLOPE  FIELDS  TO  EDGE  OIF 

162  cm  Fiac  COMPONENTS 

163  IFC.HOT.LSL0PE1GO  TO  231 

184  E3Pft*ESPR-EI PSP*0PN/CMPLX<3. ,TPI*SF*SDO) 

165  6OPL*EOPt"ESPLP*OPS/C3CPLXC0.  ,TPt*SP*SSC> 

160  CSSS  0.  COMPUTE  SOUS  DIFFRACTED  REFLECTED  “AY 

167  cm  COMPUTE  v.aRI  aSLES  TO  TRAILS  FOR*  POLAR  IT  STICK  ,«?©»  iSCjOENT 
188  CSS!  BAY  FIXE"  COORD  SYS  TO  REFLECT ION  PiA.'e  COO 60  SYS 
109  2*1  V7(  i  s *Ojt  3)  -VSH  VR ,3  5*03 *2 ) 

•  93  VTt3t*V!HMft,3)*QJt  l)-VjJC»iS,»  )*63C3) 

191  VTC3)*VN{»fl, IS*OJf2)-VNtl«.2l«D3i I ) 

192  ClU*V*itM,i  l»90C  l  )»V*J; 5?R.2 l*3Ct 2! *v::!  , j J *90( 3 ) 

193  CI<A«vS(W,l  ••PSItl  i*VJ«i:mi2)*PH«2>*V’ 

lv*  r2U*vt<l)*gGm*vTt2l*f0C2l«9TC3s*SC<3l 

ivS  C22  *•  vTi  II  *PHC  H*vTC2)*PHt2‘*VTUS*PNU) 

190  CSS!  COMPUTE  VARIABLES  TO  TSAXSFOSa  SaV  POLARIZATION  F8©l  PLATS 
IV?  cm  COOSOJl  RATES  TO  SAY-rUEO  TKETA  Aft)  PHI  CCMPONSNTS  FCfl  2*rL 
IVF  CS IS  SAY  !*  PCS 
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199  Cl  l«VN(MR,  I  )*0T(  t  >+VN(MH,2)*OT(2)*VN(VR,3>*DT<3) 

200  CI2-VN(MR, I )*DP( l)*VN(MR,2)*DP(2) 

20 1  C2  l-VT(  1  )*DT<  I  )+VTl2  )*DT(2  )*VTe3>*OT<3) 

202  C22-VT<l)*DP<t)*VT<2)*DP<2> 

203  A3-CII*C22-CI2*C2I 

204  Cl!!  DETERMINE  IF  EDGE  DIF  FIELD  EXISTS 

205  IF  (.NOT.LDIF)  00  TO  202 

206  C! I !  COMPUTE  POLARIZATION  OF  DIF  FIELD  INCIDENT  ON  PLATE  MR 

207  CM!  IN  COMPONENTS  NORMAL  AND  TANGENT  TO  THE  PLATE  <AI  AND  A2) 

208  A I «EDPL*C 1 1 A+EDPR*C 1 2A 

209  A2-EDPL*C2 1  A+£DPR*C22A 

210  C! t !  CALCULATE  THETA  AND  PHI  COMPONENTS  OF  REFL  FIELD  IN  RCS 

2j1  I  _:»CA1*C22+/2*CI2)/A3 

212  EG— •<A2*C.:  1+a!*C2I  )/A3 

213  C! ! !  ADO  PHASE  TERM  TO  OBTAIN  DIF  REFL  FIELD  COMPONENTS 

214  C!!f  EDTH  AND  EDPH 

215  EDTH-EF*£XPH 

2 1 6  EDPH-EG*EXPH 

2!7  C! !!  7.  IF  CORNER  DIF  FIELD  IS  DESIRED.  COMPUTE  CORNER  FIELDS 

218  202  IF  C.NOT.LCORNR)  GO  TO  40 

219  BETN-PSD-PSOD 

220  BETP-PSD+PSOD 

221  MC-ME-I 

222  ISN- 1 

223  C! !!  LOOP  THRU  BOTH  CORNERS  ON  EDGE  #ME 

224  35  MC-MC+I 

225  IFIMC.CT.M’'  4P)>  MC-I 

226  ISN— ISN 

227  RX«XS(1)-X  4C,  I  ) 

228  RY-XS(2)”X(MP,MC,2 ) 

22 9  RZ“XS(3)-X(MP,MC,3) 

230  RM»SORT<!iX*RX-*-RY*RY+RZ*RZ> 

231  CTH«V(MP,ME,  i)*RX+Va<P,ME,2)*.?">V(MP,ME,3)*RZ 

232  CTH-ISN*CTH/RM 

233  CTHP«ISN*DV 

234  THPR-AC05( CTHP ) 

235  TH3-AC0S(CTH) 

236  STHR-SIN(THR) 

237  DEL-2 .  *TPI  *RM*  CCOS  ( .  5*  (THR+THPR )  >**2 ) 

238  ZP-(X(MP,MC, l)-XD( I  )>*DJ(I )*CX(MP,MC,2 )-XD<2 ))*DJ(2> 

239  2+(X(MPfMC,3)-X0(3) >*DJ(3) 

240  TERM— STHR/TPI/(CTH+CTHP  l/SORKRM) 

241  C1H  COMPUTE  CORNER  DIFFRACTION  COEFFICIENT  (CORN). 

242  CORN— TERM*FFCT<  DEL)  *CEXP(CMPLX(0. ,-TP I*(RM-SP-ZP)-.25*PI ) ) 

243  CALL  D I  < ECBI , TPP , BETN, SBO, FN .DEL .. TRUE . ) 

244  if  (LSURFCMP.)  )G0  TO  3  11 

245  CALL  DI (ECBR.TPP.BETP, SBO, FN.DEL.. TRUE.) 

246  C!U  COMPUTE  MODIFIED  EDGE  DIFF.  COEFFICIENTS  (DH.DS) . 

247  DH-ECBi.+ECRR 

248  DS-ECBl-twBR 

249  GO  TO  312 

250  .31  I  DH-EC8I 

251  DS-<0.  ,0.J 

252  Cl!!  COMPUTE  COMPONENTS  pF  CORNER  DIFFRACTED  FIELD  PARALLEL 

253  Clll  AND  PERPENDICULAR  TO  EDGE 

254  312  EDPR— EIPR*DH*EXPH 

255  EDPL— EIPL*DS*EXPH 

256  IF( .NOT.LSLOPE )C0  TO  203 

257  EDPK»EDPR-EIPRP*DPH*EXPH/CMPLX(0.,TPI*SP*SBO) 

258  EDPL -EDPL-EI  PLP*;DPS*EX  PH/C  MPLX<0..TPI*SP*S3O) 

259  CHI  COMPUTE  CORNER  DIFFRACTED  FIELDS  INCIDENT  ON  PLATE  MR  IN 

260  CM!  PLATE  COORDINATE  SYSTEM 

261203  AI-EDPL*CJ IA+EDPR*C12A 

262  A2«EDPL*C21A+EDPR*C22A 

263  C1U  COMPUTE  CORNER  DIFFRACTED  FIELDS  AFTER  REFLECTION  IN  RCS 

264  EF-(AI*C??+A?*CI?>/*3 
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265  EG—  <A2*C!l+A!*C2n/A3 

266  Cl!!  COMPUTE  THETA  AND  PHI  COMPONENTS  OF  CONNER  DIFFRACTED 

267  CM!  REFLECTED  FIELDS  CECTH,  ECPH)  IN  RCS 

268  £CTH-ECTH*EF*CORN 

269  ECPH-ECPH+EG*CORN 

270  IF  C.NOT.LDEBUG)  GO  TO  36 

271  WHITE  (6,*)  DS,DH,EDPR,EDPL 

272  WRITE  (6, *3  ECTH, ECPH, CORN 

273  WRITE  (6,*)  EF,EG 

274  36  CONTINUE 

275  IFIMC.EO .ME)  GO  TO  35 

276  40  IF  (.NOT.LTEST)  GO  TO  204 

277  WRITE  (6,205) 

278  205  FORMAT  (/,'  TESTING  DPLRPL  SUBROUTINE' ) 

279  WRITE  (6,*)  EDTH , EDPH , ECTH , ECPH 

280  WRITE  (6,*)  FN,ME,MP,Mfi 

28 J  204  RETURN 

282  END 
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DPTNFW 


PURPOSE 

To  compute  the  diffraction  point  for  a  ray  which  is  diffracted 
^by  a  given  edge  and  observed  at  a  specified  near  field  point  of  the 
plate. 

PERTINENT  GEOMETRY 


SOURCE 


Figure  60—  Geometry  for  finding  the  diffraction  point  with  the 
observation  point  in  the  near  field  of  the  plate. 


METHOD 


The  diffraction  point  is  found  using  similar  triangles  defined 
by  perpendiculars  from  the  source  and  observation  points  to  the  edge 
line.  The  diffraction  point  is  given  by 


to  =  m  + 


SSxXOSE 


where  the  above  quantities  are  illustrated  in  Figure  60. 
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FLOW  DIAGRAM 


OPTNfW  (X$,XO,XD,H£,NP) 

INPUT  VARIABLES 

XS  x,y,z  components  of  source  location 
In  RCS 

XO  x,y,z  components  of  observation  point 
in  RCS 

NP  plate  where  diffraction  occurs 

HE  edge  on  plate  NP  where  diffraction 
occurs 

OUTPUT  VARIABLES 

XU  Tr.y.z  components  of  diffraction  point 
location  In  RCS 


Take  dot  products  and  ccnpute 
diffraction  pelnt  using  similar 
triangles  to  satisfy  the  laws 
of  diffraction 


Return 


SYMBOL  DICTIONARY 


SG  DI S j  ANCE  FROM  SOURCE  TO  POINT  XPS 
SC  DISTANCE  FROM  OBSERVATION  POINT  TO  POINT  XPO 

TS  DISTANCE  FROM  XPS  TO  XD  ALONG  EDGE  LINE 

UK*  DO,  PRODUCT  OF  RAY  FROM  CORNER  ME  TO  OBSERVATION 
POINT'  AND  EDGE  UNIT  VECTOR 

XOSE  DOT  PRODUCT  OF  RAY  FROM  SOURCE  TO  OBSERVATION 
POINT  AND  EDGE  UNIT  VECTOR 
XPS  POINT  ON  LINE  THROUGH  EDGE  ME  CLOSEST  TO 

source 

XPO  POINT  ON  LINE  THROUGH  EDGE  ME  CLOSEST  TO 
OBSERVATION  POINT 

XSCb  DO,  PRODUCT  OF  RAY  FROM  CORNER  ME  TO  SOURCE 
AMD  EDGE  UNIT  VECTOR  ' 


177 


CODE  LISTING 


1  c - - - . - • 

2  SUBROUTINE  DPTNFNI XS,XO,XD,ME,MP) 

3  Cl  II 

4  CHI  DETERMINES  THE  NEAR  FIELD  DIFFRACTION  POINT  ON  A  PLATE  EDGE 

5  Cl  II 

o  DIMENSION  XS<3>, XO<3),XPS<3),XPOt3>,XD<3) 

7  COMMON/GEOPLA/X(  1 4 ,6 ,3  > .  V<1 4 ,6 , 3  > ,  VP <  I  4, 6, 3 ) ,  VfU  1 4 ,3 ) 

b  2,MEP< I4),MPX 

V  XSCE*0. 

1  a  XOCE»t). 

■i  i  xosE-e. 

12  DO  10  N*l,3 

13  XSCE«XSCE+(XS(N)-X<MP,ME,N)>*V<MP,ME,N) 

14  XOCE*XOCE+ ( X0( N ) -X  <  MP, ME ,N ) ) *V (MP, ME ,N ) 

lb  10  XOSE*XOSE+(XO(N)-XS(N) )*V(MP,ME»N) 

lb  DO  20  N*l,3 

17  XPS(N>=XSCE*V<MP,ME,N)+X<MP,ME,N> 

18  20  XPO(N>-XOCE*V(MP,ME,N)4X(MP,ME,N) 

iv  ss«<xs(  i  )-xps<  i  >)*(xsm-xpsn  n+<xs(2>-xps(2n*<xs<2>-xps<2)) 

20  2+(XS(3)-XPS(3) )*<XS(3)-XPS(3 )) 

21  SS*SGRT( SS ) 

22  SO*(XO<  1  >-XPC<m*(XO(n-XPO(l  ))+(XO(2)-XPO(2))*(XO(2)-XPO(2J) 

23  2+(XO<3>-XPO(3)>*<XOC3)-XPO(3>) 

24  SO»SORT ( SO ) 

25  T5“SS*XGS£/( SS+SO) 

26  DO  30  M* 1 , 3 

27  30  XD<N)-XPS<N)+TS*V<MP,ME,N> 

26  RETURN 

2  V  END 


DQ632 


PURPOSE 

To  numerically  integrate  a  given  function  over  a  specified  range. 
METHOD 

This  subroutine  uses  a  32  point  Gaussian  quadrature  formula  to 
compute  the  integral  of  a  functiontll] .  The  form  of  the  integral 
is  given  as 

\ 

XU 

Y  =  £  FCT(x)dx  . 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 

rCl  FUNCTION  DEFINING  THE  INTEGRAND 

Al.  LOWER  BOUND  OF  INTEGRAL 

AU  UFFbR  i’O'.lfID  OF  INTEGRAL 

V  RESULT  Or  INTEGRAL 
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CODE  LISTING 


1  C- . .  "  in.  i.  . . . . .  i  i  — 

2  SUBROUTINE  DCG32 ( XL, XU , FCT ,  Y ) 

3  Cl  11 

4  Cl  I!  32  POIN1  GAUSSIAN  QUADRATURE  INTEGRATION  ROUTINE 

5  cm 

0  A».5U0*(XU+XL> 

7  b«XU-XL 

b  C«. 49863 1 93092 47 4D0*B 

9  Y«.35093050047350D-2*<  FCT( A+C)+FCT(A-C ) ) 

10  C*.49280575577263D0*B 

1 1  Y“  Y+ .  8 1 37 ! 0736  5452  D-2* (FCT  ( A+C )+FCT(  A-C ) ) 

12  C*. 48238 1 1 2779375D0+B 

1 3  Y*Y+ . 1 26960326 54 63 1 D- 1 *( FCT<  A+C ) +FCT ( A-C ) ) 

14  C-.46745303796886{)0*B' 

1 5  Y«Y+ . 1 7 1 3693 1 4565 1 0D- 1 *( FCT<  A+C) +FCT< A-C ) ) 

10  C*.448l6057788302D0*B 

17  Y-Y+.2I4179490II II3D-I*(FCT(A+C)+FCT(A-C)) 

I b  C-.42468380686628D0+B 

IV  Y*Y+. 2549902 9631 1 88D-t*(FCT( A+C)+FCT(A-C)) 

20  C*. 3972  4 1 897 98397D0*B 

21  Y»  Y+ .2  9342  046739267D- 1 *( FCT<  A+C ) +FCT< A-C ) ) 

22  C«. 36609 10593701 4D0*B 

23  Y«Y+.329II  II 1388 I80D-I *(FCT( A+C)+FCT(A-C>) 

24  C«. 331 5221 334651 0D0*B 

2  5  Y»Y+ .36 1 7289705442 4D- l*(FCT( A+C) +FCT ( A-C ) ) 

2o  C*. 29385787862 038D0+B 

2  7  Y«Y+ .39096947893535D- 1 *( FCT<  A+C)+FCT( A-C ) ) 

28  C*. 2 534499544661 ID0+B 

29  Y«Y+.4 16559621 I3473D-I*(FCT< A+C)+FCT(A-C>) 

30  C« .2 106756380653 1D0*B 

3  I  Y*  Y+ . 43826U4650220 I D- 1  *< FCT (A+C) +FCT ( A-C ) ) 

32  C'».  165934301 14 I06D0+B 

33  Y-Y+. 4558693934788  ID-1 *(  FCT( A+C)+FCT< A-C ) ) 

34  C*  ..11 964368 1  I2606D0+B 

35  Y- Y+. 46922  1 995404020- l*(FCT( A+C )+FCT( A-C)) 

3o  C«. 72235980791 39D- l*B 

37  Y*Y+ .478 1 9360039637D- 1  *(  FCT(  A+O+FCT  ( A-C ) ) 

38  C*.24 1 5383 284386 9D- 1 *8 

3V  Y«B*(Y+.48270044257363D-I*(FCT(A+C)+FCT(A-C))> 

40  RETURN 

41  END 


FLOW  DIAGRAM 


SUBROUTINE  DH<OS,OH,1)PS,DPH,R.PH,PHP, 

SBO.FR.LSURF) 

INPUT  VARIABLES 

R  distance  paraaater 

PH  diffracted  ray  phi  angle  In  edge-fixed 

coordinate  systan  (In  degrees) 

PHP  Incident  ray  phi  angle  In  edge-fixed 
coordinate  systee  (In  degrees) 

S80  sine  of  B.,  the  angle  the  rays  «aice 
with  the  edge 
FN  wedge  angle  nuaber 

LSURF  set  true  If  the  source  Is  eounted  on 
the  surface  of  one  of  the  plates 
fonalng  the  wedge 

OUTPUT  VARIABLES 

OS  edge  diffraction  coefficient  for  soft 

boundary  condition 

OH  edge  diffraction  coefficient  for  hard 

boundary  condition 

OPS  slope  diffraction  coefficient  for  soft 
boundary  condition 

OPH  slope  diffraction  coefficient  for  hard 

boundary  condition 


Return 


/ 


sT 

1 


I 


SYMBOL  DICTIONARY 


Obi N  1)1  FFEkENCE  I.ETWEEM  DIFFRACTION  AND  INCIDENCE  ANCLE 

BLIP  DI  FFEHENCE  BETWEEN  DIFFRACTION  AND  I  WAGE  OF 

INCIDENCE  ANGLE 

DM  EDGE  DIFFRACTION  COEFFICIENT  FOR  THE  HARD  BOUNDARY 
CASE 

DIN  INCIDENT  PAF.T  OF  EDGE  DIFFRACTION  COEFFICIENT 
DIP  REFLECTION  PART  CF  EDGE  DIFFRACTION  COEFFICIENT 
DPii  SLOPE  DIFFRACTION  COEFFICIENT  FOR  THE  HARD  BOUNDARY  CASE 
DPN  INCIDENT  PART  OF  SLOPE  DIFFRACTION  COEFFICIENT 
DPP  REFLECTION  PART  OF  SLOPE  DIFFRACTION  COEFFICIENT 
DPS  SLOPE  DIFFRACTION  COEFFICIENT  FOR  THE  SOFT  BOUNDARY  CASE 
DS  EDGE  DIFFRACTION  COEFFICIENT  FOR  THE  SOFT  BOUNDARY 
CASE 

«-N  WbDGE  ANGLE  NUMBER 

LSURF  A  LOGICAL  VARIABLE  THAT  IS  SET  TRUE  IF  THE  SOURCE 

IS  MOUNTED  ON  THE  SURFACE  OF  THE  WEDGE  (GRAZING 
INCIDENCE) 

PH  DIFFRACTED  RAY  PHI  ANCLE  IN  DEGREES 

PHP  INCIDENT  RAY  PH!  ANGLE  IN  DEGREES 

W  DISTANCE  PARAMETER 

SBC  SIN(BO) 


i 


CODE  LISTING 


2 

3  CM! 

4  U  I! 
b  CM! 
0  CM! 

7 

8 

v  cm 

1 1) 

1 1 
12 

13 

14  Cl  n 
!  b 

10 
17  . 

IB 

IV 

20  10 

21  CM! 

22 

23 

24 
20 
26 

27 

28 
2v 
jo 


SUBROUTINE  DW(DS,DH,DPS, DPR, R, PH, PHP, SBO.FN, LSURF) 

WEDGE  DIFFRACTION  AND  SLOPE  DIFFRACTION  COEFFICIENT 
FOR  THE  SOFT  AND  HARD  BOUNDARY  CONDITIONS 

LOGICAL  LSURF 

COMPLEX  DIN,DIP,DPN,DPP,DS,DH,DPS,DPH 
INCIDENT  PART  OF  DIFFRACTION  COEFFICIENT 
BEYN-PH-PHP 

CALL  DI (DIN,R,BETN,SBO,FNv I. ..FALSE. ) 

CAUL  DPI (DPN.R.BETN. SBO.FN) 

I F  < . MOT . LSURF) CO  TO  W 
GRAZING  INCIDENCE  CASE 
DS*>U).,0.) 

DH-DIN 
DPS-DPN 
DPH«(».,0, ) 

RETURN 

CONTINUE 

REFLECTION  PART  OF  DIFFRACTION  COEFFICIENT 
QETP-PH*PHP 

CALL  DI IDIP.R.BETP.SBO.PN, I , ..FALSE. > 

CALL  UPKDPP.ft.BSTP.SBO.FN) 

DS -DIN-DIP 

DH-!)IN*f)JP 

UPS-DPN40PP 

DPH-PPN-t)Pp 

RETURN 

END 
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DZ 

PURPOSE 


To  compute  the  diffraction  coefficient  for  an  edge  formed  by  two 
curved  surfaces. 

METHOD 

This  subroutine  computes  the  diffraction  coefficient  for  a  curved 
edge  based  on  the  uniform  Geometrical  Theory  of  Diffraction  [4  J,  The 
diffraction  coefficient  Is  given  by 


where  a(6)  ?  2cos?  8/2,  a*(8)*2  cos2(2an-8)/2,  n  1$  the  wedge  number 
(FN),  and  L  ,1,  L  are  the  distance  parameters  for  the  Incident  part, 
reflection  from  the  n-surface  and  o- surface,  respectively. 


When  the  diffraction  angle  Is  close  to  one  of  the  shadow  boundaries 
the  following  approximation  Is  used 

♦ 


Fiit.i(B)i  - 1  "fr*  <J'/4  *jk,L|*  ' 


where  the  plus  or  minus  sign  Is  chosen  depending  on  which  side  of  the 
shadow  boundary  the  diffraction  angle  Is  on. 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


a  angle  function  fun  incident  and  o-surface  transition 

FUNCTIONS 

AP  ANGLE  FUNCTION  FOR  N-SURFACE  TRANSITION  FUNCTION 
CSP  COStPMft/2. ) 

OH  DIFFRACTION  COEFFICIBIT  FOR  HARD  BOUNDARY  CONDITION 

DS  DIFFRACTION  COEFFICIENT  FOR  SOFT  BOUNDARY  CONDITION 

Ft  CONSTANT  FACTOR 

F2  INCIDENT  PART  OF  DIFFRACTION  COEFFICIENT 

F'3  N-SURFACE  PART  Of  DIFFRACTION  COEFFICIENT 

F4  O-SURFACE  PART  OF  DIFFRACTION  COEFFICIENT 

FLI  DISTANCE  PARAMETER  FOR  THE  INCIDENT  COP P Of i ENT 

FLHN  DISiANCE  PARAMETER  FOR  THE  REFLECTION  FRO1’  THE 

N- SURFACE 

FLKO  DISTANCE  PARAMETER  FOR  THE  REFLECTION  FRO*  THE 
O-SURFACE 

fN  HEDGE  ANGLE  HUMBER 

PMPk  INCIDENT  RAY  ANGLE  IK  RADIANS 

PHR  DIFFRACTED  RAY  ANCLE  IN  RADIANS 

PiiR  DIFFERENCE  BETWEEN  DIFFRACTION  ANCLE  AND  THE 

INC  ICE  NCt'  ANGLE 

PPM  DIFFERENCE  IETNEEN  DIFFRACTION  ANCLE  AND  THE  IMAGE 
OF  1HS  INCIDENCE  ANGLE 
SBC  SINE  OF  GO 

TAM  IF- SURF  ACE  ANGULAR  DEPENDENCE  IF  DIFFRACTION 

COEFFICIENT 

TAN 2  0-SURFACE  angular  DEPENDENCE  of  diffraction  COEFFICIENT 


CODE  LISTING 


i  c — 

Cl  !! 
Cl  11 

cm 


1 1 
12 
i  2 

M 
It) 
I  0 
I*) 
IS 
IV 

•5;- 


Cl  !! 


1  if) 


21  cm 

22  15 


23 
2^ 
2  b 


2  V 
2  c 

2  i  c!  ! ! 
22  ib 


-C 

2  7 

2c  2^ 

jV 

4k 

4 1  cm 

42  2b 
4  2 

44  cm 

4b 

40 

i  " 

4  o  4yJ 
4  V 

bt. 


SUbKOUT  1  NE  DZ<  DS  ,DH,  FL I ,  FI.RN , FI.HO,  PHR ,  PHPR ,  SRO  ,FN ) 

i 

UUHVfeD  fclKifc  DIFFRACTION  COEFFICIENT 

COMPLEX  FKY.F1 ,F2,F3 ,F4,ns,PH, CJ 
COMMON/P  I  S/P  4  TP  I,  DPR,  RPD 
PPR-PHH+PHPR  j 
PMK»P!  IP— PHPR  I 

F I *CEXP ( CMPLX( 0. ,-PI/4. ) )/ (2 .*FN*TPI *SBO) 

INCIDENT  PARTS 
CSP«COS( .5*PM> 

A*  2.  *CSF'*CSP  I  1 

IF(AB5(  PVR-PI!)  .LT.  I  .  E-5)  GO  TO  10 
F2mOPLa(COS(PI/FN )-COS( PMR/FN ) , 0. ) 
F2*2.*S1N(PI/FN)*FKY(FLI ,A)/F2 
GO  TO  lb  j 

F2-CHXP(C;«PLX(0.  ,PI/4.+TPI*ARS(FLI  )*  A  ) ) 
IF(CSP.Ll.i).  )f  F2— F2 
F2a-F2*FN*TPI»CS0RT( CMPLX( FLI . 0. ) ) 

.’.'-SURFACE  REFLECTION  PART 
CSP»COS(  .5*CT1PI*FN-PPR )) 

AP»2  .*CEP*CSP, 

TAN  I  =>TAN  ( ( PI+PPR )/  (2  .*FN  ) ) 

I t (AFSCTAN I ) .LT. I . E-5)  GO  TO  20 
F2=»FKY  ( FL.IN,  AP  )/TAN  I 
GO  TO  2b  i 

F3=CEXP( C.MPLXC 0. , PI/4.+TPI *ARS( FLRN) «AP ) ) 

I F  <  CSP . LT . 0 . )  F3—F3 

F3=-F2 *FN*TP I *CSORT( CMPLX<  FLRM.O. ) ) 

C-SUkFACE  REFLECTION  PART 
CSP=c’OS( . 5*PPR ) 

A=2.*CSF*CSP  \ 

TAN2=TAII  <  (  PI  -PPR  )/  (2  .*FN )  > 

Ir  (Af.S(TAN2)  .LT.  I.E-5)  GO  TO  30 

F4=F.\YCFLR0,A)/TAN2 

GO  TO  3b  t 

F4=ChXP(CMPLX(0.,PI/4.-»-TPI*ABS(FLR0)*A)) 

IFtCSP.LT.O. )‘  F4 a— r4 

F4=-p4*F';*TP I*CSORT(CMPLX<  FLHO.C . )  ) 

TOTAL  GI r FRACTION  COEFFICIENT 
US*=F  I  *(F2+F3+F4) 

UH=FI*(F2-F3-r4> 

GRAZING  INCIDENCE  CASE 
IF (PFPR.GT. I.E-5)  GO  TO  40 
DS=.b*bt  } 

DH=.5*0h  ' 

CONTINUE 
RETURN  ; 

Ei.N 
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TOWEBS.^JUI ! .  H .  ji'j*JfLij.^53lppPBpsppp 


ENDIF 

PURPOSE 

To  compute  the  fields  due  to  the  diffraction  of  source  fields 
from  a  given  cylinder  end  cap  edge. 

PERTINENT  GEOMETRY 


Figure  61—  Illustration  of  diffraction  point  coordinate  system. 
xE  =  x  XEX  +  y  X2Y  +  z  XEZ 

yE  =  x  YEX  +  y  YEY  +  z  YEZ 

z£  *  s  ZEX  +  y  ZEY  +  z  ZEZ 

METHOD 

The  Geometrical  Theory  of  Diffraction  [43is  used  to  compute 
the  fields  diffracted  by  the  curved  edges  formed  by  the  end  cap  disk 
and  the  curved  surface  of  the  elliptic  cylinder.  The  form  of  dif¬ 
fraction  coefficients  for  the  curved  edge  are  similar  to  that  given 
in  subroutine  DIFPLT  except  that  the  distance  parameters  and  spread 
factors  are  slightly  different.  The  details  are  given  on  pages 
127-131  of  Reference  1.  The  fields  from  four  possible  diffraction 
points  on  the  edge  are  superimposed  to  give  the  total  diffracted 
field  from  one  end  cap.  For  small  regions  of  the  radiation  pattern, 
it  is  posisble  that  three  of  the  diffraction  points  will  coalesce 
into  one  point  leaving  two  diffraciton  points  on  the  edge.  When 
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this  happens  a  finite  spike  (psuedo  caustic)  of  small  angular  ex¬ 
tent  appears  in  the  pattern.  One  way  to  correct  for  this  is  by 
the  use  of  an  equivalent  current  solution [12] .  However,  this 
is  costly  in  terms  of  computation  time  so  it  has  not  been  included 
at  present.  The  overall  solution  is  not  effected  significantly 
by  this  approximation.  The  phases  of  the  diffracted  fields  are 
referred  to  the  reference  coordinate  system  origin  and  the  total 
field  are  represented  as 

^endcap  “  "m<EDTH8  +  EDfW>  V~  • 

-jkR 

where  the  factor  —  *  •  and  the  source  weight  (Wm)  are  added  else¬ 
where  in  the  code. 
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FLOW  DIAGRAM 


Cow ate  components  of  incident 
field  parallel  and  perpendicular 
to  edge 


Compute  parameters  used  to 
calculate  diffraction  coefficient 


No 
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SYMBOL  DICTIONARY 


AE  RADIUS  OF  CURVATURE  OF  EDGE  AT  DIFFRACTION 
POINT  IN  END  CAP  PLANE 

BO  THE  ANGLE  THE  INCIDENT  (AND  DIFFRACTED)  RAY  MAKES 
KITH  THE  EDGE  UNIT  VECTOR 
CBO  COSINE  OF  BO  (DOT  PROOUCT  OF  DIFF  RAY  AND 
Z  AXIS  OF  DIFFRACTION  POINT  COORD  SYS) 

CPE  COSINE  OF  PHER 

CTE  COSINE  OF  THER 

CTHI  DOT  PROOUCT  OF  INCIDFNT  RAY  PROPAGATION  DIRECTION 
UNIT  VECTOR  AND  CYLINDER  UNIT  NORMAL 
CV  COSINE  OF  VR 

D  X,  Y«Z  COMPONENTS  OF  PROPAGATION  DIRECTION 

AFTER  DIFFRACTION  IN  RCS 

OH  DIFFRACTION  COEF  FOR  HARD  BOUNDARY  CONDITION 
DHIT  DISTANCE  FROM  SOURCE  TO  NEAREST  HIT  (FROM  PLAINT) 

DI  X,Y,Z  COMPONENTS  OF  UNIT  VECTOR  OF  INCIDENT 
RAY  PROPAGATION  DIRECTION  IN  RCS 
DS  DIFFRACTION  COEF.  FOR  SOFT  BOUNDARY  CONDITION 
EDPH  PHI  COMPONENT  OF  DIFFRACTED  E  FIELD  IN  RCS 
NITH  PHASE  REFERRED  TO  RCS  ORIGIN 
EDPP  COMPONENT  OF  DIFFRACTED  FIELO  PARALLEL  TO  EDGE 
EDPR  COMPONENT  OF  DIFFRACTED  FIELD  PERPENDICULAR 
TO  EDGE 

EDTH  THETA  COMPONENT  OF  DIFFRACTED  E  FIELD  IN  RCS 
NITH  PHASE  REFERRED  TO  RCS  ORIGIN 
EF  THETA  COMPONENT  OF  INCIDENT  FIELD  PATTERN  FACTOR 
IN  RCS 

EC  PHI  COMPONENT  OF  INCIDENT  FIELD  P/TTERN  FACTOR 
IN  RCS 

EIPP  COMPONENT  OF  INCIDENT  E  FIELD  PARALLEL  TO 
EDGE' 

EIPR  COMPONENT  OF  INCIDENT  E  FIELD  PERPENDICULAR  TO 
EDGE 

EIX  1 

FIY  >  X.Y ,Z  COMPONENTS  OF  INCIDENT  FIELD  PATTERN  FACTOR 
E1Z  t 

EM  \  NORMALIZATION  CONSTANT  FOR  Z  AXIS  OF  DIF  POINT  COORD  SYS 
EX  1 

EY  }  X,Y,Z  COMPONENTS  DEFINING  UNIT  EOOE  VECTOR  (Z  AXIS 
EZ  )  OF  DIFFRACTION  POINT  COORD  SVS) 

FN  HEDGE  ANGLE  NUMBER 

I  DO  LOOP  VARIABLE 

LH1T  SET  TRUE  IF  RAY  HITS  A  PLATE  (FROM  PLAINT) 

NO  END  CAP  WERE  DI  FRACTION  OCCURS 

HOC  SIGN  CHANGE  VARIABLE 

PH  COMPLEX  PHASE  COEFFICIENT 

PHEOtt  PHI  COMPONENT  OF  DIFFRACTED  RAY  DIRECTION  IN 
DIFFRACTION  POINT  COORDINATE  SYSTEM 
PHER  PHI  COMPONENT  OF  INCIDENT  RAY  PROPAGATION  DIRECTION 
<N  DIFFRACTION  POINT  COORDINATE  SYSTEM 
PHEX  )  POLARIZATION  UNIT  VECTOR  IN  PHI  DIRECTION 
PHEY  }  FOR  INC.  OR  DIFFRACTED  RAY  IN  DIFFRACTION  POINT 
PHEZ  \  COORDINATE  SYSTEM  IN  (X,Y,2)  RCS  COMPONENTS 
PHI ft  PHI  COMPONENT  OF  INCIDENT  RAY  DIRECTION  IN  RCS 

RC  RADIUS  OF  CURVATURE  OF  CYLINDER  SURFACE  AT  OlFF 

POINT  IN  X-V  PLANE 

KGAE  RADIUS  OF  CURVATURE  OF  EOGE  AT  DIFFRACTION 
POINT  IN  END  CAP  PLANE 
SBO  SINE  OF  GO 

SPE  „  SIKE  OF  PHER 

SPA  } 

SPY  I  X.Y.Z  COMPONENTS  OF  UNIT  VECTOR  OF  PROPAGATION 
SPZ  \  DIRECTION  OF  INCIDENT  RAY 
SSCO  SINE  OF  30  SQUARES 

STS  SINE  OF  THEN 
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sv 
T1 
T  2 

T3  \ 

THEOK 


THER 


THEX 

THEY 

THEZ 

THIR 

TOP 

UB 


UN 


UNEM 

UNEX 

(JNEY 

UNEZ 

V 

VR 

VXS 

XC 

XEX 

XEY 

XEZ 

YEX  7 
YEZ  j 


SINE  OF  VR 

X,Y,Z  COMPONENTS  DEFINING  THE  INCIDENT  (OR  DIFF) 

RAY  PROPAGATION  DIRECTION  IN  DIFFRACTION 
POINT  COORD  SYSTB4 

THETA  COMPONENT  OF  DIFFRACTED  RAY  DIRECTION  IN 
DIFFRACTION  POINT  COORDINATE  SYSTEM 
THETA  COMPONENT  OF  INCIDENT  RAY  PROPAGATION 
DIRECTION  IN  DIFFRACTION  POINT  COORDINATE  SYSTEM 
POLARIZATION  UNIT  VECTOR  IN  THETA  DIRECTION 
FOR  INCIDENT  OR  DIFFRACTED  RAY  IN  DIFFRACTION 
POINT  COORD  SYSTEM  IN  (X.Y.Z)  RCS  COMPONENTS 
THETA  COMPONENT  OF  INCIDENT  RAY  DIRECTION  IN  RCS 
COMPUTATIONAL  VAPIABLE 

X,Y,Z  COMPONENTS  OF  UNIT  VECTOR  TANGENT  TO 
CYLINDER  AT  DIFFRACTION  POINT  <2-D> 

X,Y,Z  COMPONENTS  OF  UNIT  NORMAL  TO  CYLINDER 
AT  DIFFRACTION  POINT  <2-D) 

NORMALIZATION  CONSTANT  FOR  EDGE  UNIT  NORMAL  NS. 

X, Y,Z  COMPONENTS  OF  UNIT  NORMAL  TO  EDGE  IN 
QJD  CAP  PLANE  IN  RCS 

ELL  ANGLES  DEFINING  (UP  TO)  4  DIFFRACTION  POINTS 
ON  END  CAP  NC 

ELL  ANGLE  DEFINING  DIFFRACTION  POINT  IN  ERCS 
X,Y,Z  COMPONENTS  OF  UNIT  VECTORS  DEFINING  SOURCE 
COORDINATE  SYSTEM  AXES  DIRECTIONS  IN  RCS 
X,  Y»Z  COMPONENTS  OF  DIFFRACTION  POINT  LOCATION 
IN  RCS 

X, Y,Z  COMPONENTS  DEFINING  UNIT  VECTOR  OF  X 
AXIS  OF  DIFFRACTION  POINT  COORDINATE  SYSTEM 
(VECTOR  NORMAL  TO  EDGE  AND  PARALLEL  TO  END  CAP 
PLANE) 

X  AND  Z  COMPONENTS  DEFINING  UNIT  VECTOR  OF  Y  AXIS 
OF  DIFF.  POINT  CCORD  SYS  (VECTOR  NORMAL  TO  END  CAP) 


CODE  LISTING 


2  SUBROUTINE  ENDI F ( EDTH, EDPH,NC) 

3  Ctll 

4  C!!l  COMPUTES  THE  DIFFRACTED  FIELD  FROM  THE  END  CAP  RIM 

5  cm 

0  COMPLEX  EDTH,EDPH,EIX,EI Y,  EIZ, EIPR.EIPP, PH.EDPR, EDPP,DS,DH 

7  COMPLEX  CJ,CPI4,EF,EC 

ti  DIMENSION  Y(4),yN<2),UB<2),DK3).XC(3> 

V  LOGICAL  LHIT,LDEBUG,LTEST 

1 0  COMMON/D I R/D  <  3 ) , THSR , PHS  R , SP  S , CPS , STHS , CTHS 

.1 1  COMMON/GEOMEL/  A , B , ZC < 2  > , SNC <  2  > , CNC  < 2  > , CTC<  2  > 

12  COMM ON/SOS INF/ XS  <  3 ) , VXS (3,3) 

13  COMMON/COMP/CJ.CPU 

U  COMMON/PIS/PI, TPI, DPR, RPD 

lb  COMMON/THPHU V/DT  <  3 ) ,  DP ( 2 ) 

10  COMMON/TEST/LDEBUG.LTEST 

17  EDTH-<0.',0.) 

lb  EDPH-C0. ,0.) 

IV  IF(LDEBOG)  WRI TE(6 , V03 ) 

20  CHI  CALCULATE  DIFFRACTION  POINTS 
2  1  V00  FORMAT!/, '  DEBUGGING  END  IF  SUBROUTINE') 

22  CALL  DFPTCL(V,NC) 

23  I F (LDEBUG)  WRITEtO,*)  MC,V 

24  Clll  STEP  THRU  DIFFRACTION  POINTS 

2b  DO  I  1-1,4 

20  IF(V(I).LT.-500.)  GO  TO  2 

27  Clll  SET  UP  INCIDENT  RAY  CEOMETPY 
2b  VR-V ( I )*KPD 

2V  SV-SIN(Vn) 

30  CV-COS(VP) 

31  XC ( 1 )-A*CV 

32  XC(2)-B*SV 

33  XC(3)-A*CTC<NC)*CV+ZC<NC> 

34  cm  DOES  DIFFRACTED  RAY  KIT  A  PLATE? 

3b  CALL  PLAINT(XC.D,DHIT,0,LHIT' 

30  IF <LHIT)  GO  TO  I 

37  SPX-XC! 1 )-XS( 1 ) 

3b  SPY«XC(2)-XS<2) 

3V  SPZ»AC(3)-XS(3) 

40  SPM-SQHT  <  SPX*SPX+SPY*SPY4SPZ*SPZ) 

4 1  SPX-SPX/SPM 

42  Soy-SPY/SPM 

43  SPZ-SPZ/SPM 

44  TOP»SORT<SPX*SPX*SPY*SPY) 

4b  THIR-BTAN2(TCP,SPZ) 

46  PKIR«bTAN2(SPY,SPX' 

47  DKIl-SPX 

4b  D! (21-SPY 

4  V  DK31-SPZ 

50  cm  DOES  INCIDENT  RAY  HIT  PLATE  BEFORE  END  CAP? 

5 1  CALL  PLAINT< XS,OI ,DHIT,0 ,LHIT> 

b2  IFfLHIT.AND. (DHIT.LT.SPM)l  GOTO  I 

S3  Clll  CALCULATE  INCIDENT  FIELD  PATTERN  FACTOR 
b4  CALL  S0U)CE(EF,EG,EIX,EIY,EIZ«THIR,PMI R, VXS) 

bb  IF(LDE8UC)  WRITE<6,*>  EF.FO 

bo  EX— A*SV 

b7  EY»b*OV 

S6  EZ— A*CTC<NO*SV 

bv  EM=.SQRT(EX*EX4EY*EY4EZ*EZ> 

©to  NCC-NC 

01  IFtNCC.GT.  DNCC—  I 

o2  CM!  CALCULATE  DIF.  POINT  COORD.  SYS  UNIT  AXES  AND  RELATED  OEOM, 
o~  EX-NCC*fcX/EM 

04  £Y*NU>EY/EM 

Ob  tZ-i.CC*EZ/E»t 

co  CbO-iH  l  )*EX*[':  2 )  *£¥♦!’(  3)  *EZ 
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07  IFtCBO.GI.I.)  CfeO»l. 

08  SBOSORT  ( I  ,-CBOCBO) 

6V  SSBO«SBG*SBO 

70  UNEX-8*CV*SN0tNC> 

71  UNEY»A*SV/SNC<  NC ) 

72  UNEZ«B*CNC(NC>*CV 

73  UNEM»SOfiT<  UNEX*UNEX*UNEY*UNEY*tJNEZ*UNE2> 

74  UNEX-UNfcX/UNE)!  ' 

7b  UNEY-UNEY/UNEK 

76  UNEZ»UNEZ/UNE4 

77  RC-< CA*A*SV*SV+B*B*CV*CV )**< 1.5) )/A/B 

7  8  RGAE«A*A*SV*  SV+B*B*SNC < NC)+$NC ( NC)*CV*CV 

7v  HGAE«(RGAE**n5)/A/B 

80  AE»HGAE/SNC(NC)/SNC(NC) 

81  CALL  NANDBIUN.UB.VR) 

82  YEX*-CNC ( NC ) *NCC 

83  YE2»SNC  <  NC ) *NCC 

84  XEX«-YE2*EY 

38  X£Y»YE2*EX-YEX*E2 

Bo  XE2«YEX*EY 

87  TJ-XEX*SPX*XEY*SPY*XE2*SPZ 

88  T2-YEX*£PX*YEZ*SPZ 

8  V  T3-EX*SPX4EY*3PY4E2*SP2 

V0  THER-BTAN2  <SCIiT(  Tl  *7  l*T2*T 2  >  ,-T3  > 

VI  PHEH-BTAN2(-T2,-Ti ) 

V2  IHPHEH.LT.0.)  PHER*TPI*PHER 

Vi  FN»I .♦ACOSIUHI I )*YEX)/PI 

V4  IHPHER.GT.FN*PI  )G0  TO  I 

Vb  CTE-CQS(THER) 

VO  STE-SINOHEM) 

V7  CPE-COS(PHER) 

V8  SPE-SIWPHER) 

VV  Cl i I  CALCULATE  INCIDENT  FIELD  THETA  AND  PHI  POLARIZATION 
180  Cl  II  UNIT  VECTORS 

1 0 1  1HEX»XEA*CTE*CPE+YSX*CTE*5PE-EX*STE 

102  THEY-XEY*CTE*CPE-EY*STE 

103  WE2»XE2*CTE*CPE4YEZ*CTE*SPE-E2*STE 

104  PHEX*-XEX».SPE4-YEX*CPE 

105  PHEY— XEY*SPE 

106  PHEZ— XEZ*SPE*YfZ*CPE 

107  C!U  COMPUTE  COMPONENTS  OF  INC.  FIELD  PERPENDICULAR  AND  PARALLEL 

108  CHI  TO  THE  EDGE 

10V  EIPR-EIX*PHEX4EIY*PHEY4EI24PHE2 

110  EIPP-EIX*THEX4EIY*THEY4EI2*THE2 

111  CIU  COMPUTE  PARAMETERS  USED  IN  DIF.  COEF.  CALCULATIONS 

112  TI-UNEX*f$PX-0<l  >>4»JNEY*<SPY-D<2M4WeZ*<SP2-0<3)> 

113  R»SPM*AE*SSBO/(AE*SSBO-TI*SPM) 

114  FLl"SPM*S5B0 

lib  FLRO»SPA*SSBO 

no  TI"UN<I)*UNEX4UN<2)*UNEY 

117  CTHI»-<SPX^UNU)4SPY«UN(2>) 

118  HRN»SPM*AE*SSBQ/<  AE*SSB0*2*TI*CTHI*SPy> 

1 1 V  NR  »8T  AN2 ( -SP X* UB ( I )-SPY*Ufl<2 J.-SP2) 

120  SSM»SIN<N7)**2 

121  SCM>C0S(MR)**2 

122  SST2«SSK4SOWCTHJ*CTHI 

123  RH02  •SPA- 

124  HHOI •5PM*R0*CTHl  /{ HG*CTNI*2 .  *SPA!*SST2 ) 

12b  IHCTHI.LT.  t.E-5)RH0l-5PM 

126  FLRN»RHO I *RH02*SSBQ/HRN 

127  TI>XEX«Dtl)4XiY*D(2)4XEZ«0(3) 

128  T2«Yfe'X*D( I )4YEZ*D( 3) 

12  V  T3*EX*Un)4EY*D<2)4E24DI3) 

130  T)IEDH»HTAH2(S3RT(T«4TI4T2*T2>,T3) 

131  PH£UH«B7AN2(72,TI > 

132  IHPHEDR.IT.0. >  PH£DR*TPI4PHEDR 
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>  33 
134 
13b 
!3o 
(37 

13b  Cl  I! 

13V 

140 

Mi  Clll 

142 

I4j 

144 

14b 

146 

147 
14b  b 
14V  Cl  11 
Ib0  Clll 
lb  I 

Ib2 

Ib3  Cl  11 
(54 
Ib5 
I  bo 
157 
Ibb 
!5V 
100 
lol 
162 

103  Clll 

104 

lob 
loo 
lo7 
168  I 
lov  2 
no 

171  V 10 

172 

173 

174 


IF<PHEDR.GT.FN*PI)GO  TO  I 
CTE-COS(THEDK) 

STE-SIN(THEDR) 

CPE*COS<PHEDR) 

SPE«SIN(PHEDR) 

CALCULATE  PHASE  TERM 
PH-CEXP<-CJ*TPI*SPM)/SPM 

PH»PH*CEXP(CJ*TPI*(XC<  I  )*D<  I  )*XC<2)*D(2>+XC(3)*D<3)) ) 
CALCULATE  diffract I oh  coefficients 
?£&.K<D?»DH»FLI»FLBN*HWO»PH®R*pHER.SBO,FM>  - 
rrt5!-°fEUG?  WRITE<««*>  FL I •  FLRN , FLRO, PHEDR, PHER , SBO.FN 
IF(LDEBUG)  KRITE(6,*)  OS.DH 
IFIR.GE.0. )  GO  TO  5 
R-ABSIR) 

PH»(0.,1.)*PH 

CONTINUE 

CALCULATE  DIF.  FIELD  COMPONENTS  PERPENDICULAR  AND  PARALLEL 
TO  THE  EDGE 

EDPH—DH*SORT<  R)*E! PR*PH 
EOPP— DS*SORT(R>*EIPP*PH 

CALCULATE  DIF.  FIELD  THETA  AND  PHI  POLARIZATION  UNIT  VECTORS 
THEX«XEX*CTE*C  PE*Y  EX  *CTE*S  PE-E  X*STE 

they»xey*cte*cpe-ey*ste 

THEZ-XEZ*CTE*CPE4VE2*CTE*SPE-£2*STE 
THEX— THEX 
THEY— THEY 
THEZ—TKE2 

PHEX — XE  X*  SPE+ YE  X*CP  E 
PHEY— XEY4SPE 
PHEZ— XEZ*SPE*YEZ*CPE 

CALCULATE  THETA  AND  PHI  COMPONENTS  OF  DIF.  FIELD  IN  RCS 
EOTH»EDTH*EOPR*( PHEX*OTC I ) ♦PHEY*DT12 )*PHEZ*DT(3 ) ) 
EDTH*EDTH*£DPP*{  THEXt*OT<  I  >  ♦THEY*!JT(2  >'*THEZ*D?<  3 > ) 
EDPH-EDPH^EDPR*! PHEX*DP( I >*PHEY*RP<2 ) ) 
EDPH«fc‘DPH*EDPP*<TKEX*DP< I )4THEY*0P<2 )> 

CONTINUE 


IF(.NOT.LTEST)  RETURN 
WRITEld.VIfl) 

FORMAT!/,'  TESTING  ENDIF  SUBROUTINE') 

*RITE<6,*>  EDTH.EDPH.NC 

RETURN 

END 
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FCT 

PURPOSE 

This  function  computes  the  Integrand  for  various  Integrals  used 
to  compute  the  diffraction  coefficient  for  an  elliptic  cylinder. 

METHOD 

For  the  present  code,  only  the  integrand  defined  for  ID  equal  to 
three  Is  used.  This  Is  used  to  define  the  arc  length  between  two  points 
on  the  elliptic  cylinder.  The  arc  length  Is  given  by 

where 

FCT(x)  * Ja2s1o2x  *  B2cos2x  . 


SYMBOL  DICTIOHARY 


A 2 

&2 

CN 

t 

$H 

SNA 


X 


THE  SQUARE  If  THE  RADIUS  OF  THE  ELLIPTIC  CYLINDER 
ON  THE  X-AXIS 

WE  SOUARE  tf  THE  UOUiS  Of  THE  ELLIPTIC  CYLINDER 
ON  jKt  T#AI|® 

COSINE  OF  X 

SORTI  (  A*SI  N<  Vfi  )#•  2  ♦{  5KOSI VR I )  —2  > 

SINE  Of  X 


THE  A£  SOLUTE  VALUE  Of  THE  SINE  OF  THE  ANCLE  MEASURES 
FROM  THE  NEGATIVE  2-AXIS  OF  THE  CTLIWESTO  THE 
DIRECTION  OF  PROPAGATION 

THE  ARGUMENT  OF  THE  INTEGRAND  DEFINING  THE  ELLIPTIC 
ANGLE 
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CODE  LISTING 


1  — — — — - . — i 

2  FUHCTION  FCT(X) 

4  U  II 

4  Ull  THESE  AkE  INTEGRAND  OF  ATTENUATION  COEFFICIENT  INTEGRATION. 
<3  ci  it 

o  COWON/CEOMEL/A,B,ZC(2).SNC(2),CNC(2).CTC(2) 

T  COaaON/PIS/PI.TPI.DPR.BPD 

8  COMMON/CTD/AS, ID.SAS.SASP.CAS 

V  A2  »  A*A 

Its  82  ■  8*8 

•I  I  SNA*ASS(  SAS) 

12  SN  ■  SIN (X J 

13  CS  ■  COS(X) 

U  SN2  ■  SIN  (2.*X) 

1 5  CS2  ■  C0S(2.*X) 

Ic  Q  *  (A2*82*SNA>**( I./3.) 

IT  GIN  *  3.*( A2“82)/Q 

1 8  F  *  SORT  <A2*SN*ffl402*CS*CS> 

IV  IF  UL  .EO.  3)  GO  TO  3 

2u  IF  (IU  .FO.  2)  GO  TO  2 

21  IF  (ID  .EO.  4)  00  TO  4 

22  IF  (ID  .EO.  5)  GO  TO  5 

23  FCT  •  G/F 

2*  kETUHN 

25  2  FCT  -  0*C*SHA/(F*F*f ) 

2 o  WETUKN 

IT  2  FCT  ■  F 

20  RETURN 

2V  4.  FCT  -  GIN*CS2/F 

3w  ftEIUkN 

31  5  FCT  •  .TS*(A2-62 )*GI K*SR2*SN2/F/F/F 

32  RETUHN 

33  EDO 
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JFFCT 

PURPOSE 


The  purpose  of  this  function  Is  to  detemlne  the  transition 
function  for  the  edge  and  corner  diffraction  coefficients. 

METHOD 

The  transition  function  for  the  edge  and  comer  diff  action  coef¬ 
ficients  is  given  by(4J: 

fFCT(i)  ■  2J|/x|  eJx  /  dr. 

IJxl 

This  can  also  be  written  as 


FFCT(x)  *  j  JhW  eJ*  (0.5-j0.5)-[c(Ul^  J-jS(  pM 


where 


a  *J 

/  e  1  dt  •  C(a)  -  jS(a) . 
0 

SYMBOL  DICTIONARY 

CrW  HtJU.  PANT  GF  FBeSKEL  INTEGBAL 

UtL  ANGUKENT  OF  IB  ANSI  Tt  ON  FUNCTION 

r'KV  TRANSITION  FUNCTION 

S  AitOUNENl  OF  FBSSKEL  INTEGRAL 

SJtt  SORTUOStUSU) 

SHt  UACINAKV  PANT  OF  FRESNEL  INTEGRAL 


CODE  LISTING 


CCNPLEI  FUNCTION  FFCTiOED 

OETERAINES  THE  TRANS  IT  ION  FUNCTION  RESULT  FOB  THE  EDGE 
AND  CORKER  01  FRACTION  COEFFICIENTS. 

CONAON/PIS/PI ,TPt. OPft.RFO 
IFtASS(Oa>.CT.I«.)  GO  TO  I 
SUEL*SONT<AtFtOELJ» 

>*soel 

CAtL  FHNELS(CFR,SfR,S) 

RCr«SOA.T«  TPI  l*S06L*FFCr«CEXNatPU(  ft.  ,0EL*Pt/2.  )> 

SETUBS 

RCT*i 

RETURN 

END 


f 


FKARG 


PURPOSE 


To  compute  a  parameter  needed  In  the  diffraction  coefficient  for 
the  elliptic  cylinder. 


METHOD 


This  subroutine  confutes  the  parameter  used  In  the  diffraction 
coefficient  to  determine  the  fields  scattered  from  the  elliptic  cyl¬ 
inder.  This  parameter  Is  given  by  [63, 


q2 

/  *1/3  ,-2/3 

% 


g 


dt. 


where  p  Is  the  radius  of  curvature  of  the  elliptic  cylinder  in  the 
plane  of  propagation.  This  can  also  be  written  as 


where 


E-ir1/2(AB)2/3!s1naj1/3/vf  1 

1  Ji 


dv 


9  9  9  9 

A  sin  v+B  cos  v 


£  *  SKWIG 
a  «  ALR 


vi  *  VIR 


v^  *  VFR. 


FLOW  DIAGRAM 
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SYMBOL  DICTIONARY 


ALR  ANGLE  MEASURED  FROM  NEGATIVE  Z-AXIS  IN  THE  DIRECTION 
OF  PROPAGATION 

ANS  THE  EVALUATED  INTEGRAL 

fun:  integrand  of  the  INTEGRAL 

SKMG  PARAMETER  USED  TO  DEFINE  CURVED  SURFACE  AT  THE  POINT 

OF  DIFFRACTION 

VFR  ELLIPTICAL  ANGLE  DEFINING  THE  DIFFRACTION  ANGLE 

POSITION  ON  THE  CYLINDER 

VIR  ELLIPTICAL  ANGLE  DEFINING  THE  INCIDENT  ANGLE  POSITION 
CN  CYLINDER 


CODE  LISTING 


2  SUBROUTINE  FKARG<SKWIG,ALR.VIR,VFR5 

3  Cl  ! ! 

4  Ul!  COMPUTES  THE  PARAMETER  NEEDED  IN  THE  DIFFRACTION 
b  Oil!  COEFFICIENT  FOR  THE  ELLIPTIC  CYLINDER 

a  C!  ! ! 

7  COMMON/P I  S/P I , TPI , DPR,  RPD 

8  COMMOH/GEOMEL/A,  B,ZC (2 ) ,  SNCC  2 )  ,CNC  (2  ) , CTC( 2  ) 

V  EXTERNAL  FUN  I 

10  It-  ( A8S(  V I  R-VF'R)  .LT.  1  .E-5  )G0  TO  1 

1 1  SKRIG=CPI*ABS(SIN( ALR) ))**( I ./3. ) 

12  Sf.rfI (A»SKW!G*  ( C  A*B)**  (2./3. ) ) 

13  CALL  DOg32(VIR,VFR,FUNI.ANS) 

U  SKWI  G=SK  i'll  U*  ANS 

lb  SKRIOAtSI SKAIG) 

lo  RETURN 

17  I  SKNIO0. 

16  RETURN 

IV  END 
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FKY 

PURPOSE 

This  function  is  used  in  computing  the  transition  function  for 
curved  edge  diffraction. 

METHOD 


The  transition  function  for  the  diffraction  coefficient  of  an  edge 
in  a  curved  surface  is  the  same  as  for  a  straight  wedge,  except  that 
the  curved  edge  function  takes  Into  account  the  possibility  of  the  dis¬ 
tance  parameter  being  negative.  The  transition  function  Is  given  by  [4  ] 

F(x)  =  2jj/xje^x  /  e"^T  dt, 

\f*\ 

where  x  =  kLa, 

and  k  =  2-rr/X 

L  *  distance  parameter 

a  =  a  function  dependent  on  the  square  of  the  cosine  of  the 
Incident  and  diffraction  angles  and  the  wedge  angle  number. 

The  transition  function  can  then  be  written  as, 


F(kLa)  *  J2ir 


Mi  eJMLla  |{0.5-j0.5)  - 


for  l>0 


and 


F(kLa)  =  F*(k|l|a)  , 


for  L<0 


where  the  means  the  complex  conjugate  and 

a  *J  7  t 

/e  £  dt  »  C(o)  -  jS(os). 
o 

The  above  equation  relates  to  the  function  FKY  as, 
FKY(L/A,a)  =  F(kLa)  . 


\ 


t . 


2Q? 


SYMBOL  DICTIONARY 


A  parameter  dependant  on  the  incident  and  diffracted 

ANGLES 

C  REAL  PART  OF  FRESNEL  INTEGRAL 

FKY  TRANSITION  FUNCTION 

FL  THE  DISTANCE  PARAMETER  IN  WAVELENGTHS 

FLA  ABSOLUTE  VALUE  OF  FL 

S  IMAGINARY  PART  OF  FRESNEL  INTEGRAL 

XS  ARGUMENT  OF  FRESNEL  INTEGRAL 


CODE  LISTING 


2°  FUNCTION  FKY  (FL.  A)  ~ 

3  Oil! 

<  Cl ! !  TRANSITION  FUNCTION  FOR  CURVED  EDGE  DIFFRACTION 
B  Oil! 

o  COMPLEX  FXY 

*/  COMMON/PIS/P  I, TPI.DPR.RPD 

<J  FLA«ABS*  FL ) 

'  XS»2  >SClfiT(FLA*A) 

10  FAY-CMPLX(0.,TPI)*SORT(FLA*A) 

1 1  FKY*FKY*CEXPCCMPLX(0.,TPI*FLA*A)> 

12  CALL  FRMELSCC.S, XS) 

I  FKY»FKY*CMPLX(  .5-C.S-.5) 

IF(FL.GE.0.)  RETURN 
IB  FKY-CONJG(FKY) 

10  RETURN 

17  END 


? 
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FRNELS 

PURPOSE 


To  compute  the  Fresnel  integral. 


f(x )=  /  e 
5  o 


xs  -jir/2  u2 


du  3  C(x§)  -  j  S(x$)  . 


METHOD 

The  integral  is  evaluated  using  an  approximation  by  J.  Boersma  [13]. 
The  integral 


f(x)  =  / 


-Jt 


dt 


o  J  2irt 
is  approximated  as  follows? 

-jx 


for  0<x<4  f(x)  fo  (an+Jbn)  (fj 


for  *>4  f(x)  *  ifl  ♦  iiX  J  L  fo  (VJd„,(fj 

(the  constants  a  ,  b  ,  c  and  d  are  provided  by  Boersma  and  are  defined 
in  data  statements  ifl  the  subroutine). 

Note  that  by  performing  a  change  of  variable,  the  Integral  to  be 
solved  becomes  of  the  form  of  the  Integral  which  Boersma  solved; 


11 ' 


t  ■  \  uz  . 

By  applying  this  change  of  variable,  we  get 


where 


*s  -Jiu2 
f(«J*  J  e  ‘ 

*  0 

w  _  n2 

x  *  i  v 


x  -jt 

du  »  J  7=r  dt 
o  Jz wt 


?04 


.  -T- 


:v  ?.x  -t-t* vftt 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


CONSTANTS  USED  IN  EVALUATING  INTEGRAL 

IMAGINARY  COMPONENT  OF  SUMMATION  FUNCTION 
REAL  COMPONENT  OF  SUMiATION  FUNCTION 
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CODE  LISTING 

2  C  SUBROUTINE  FRNEIS<C,S,XS> 

j  cut 

4  C1H  THIS  IS  THE  FRESNEL  INTEGRAL  SUBROUTINE  WHERE  THE  INTEGRAL 

5  Clll  IS  FROM  U-0  TO  XS,  THE  INTEGRAND  IS  EXP(-J*PI/2.*U*U>, 

0  Ct 1 1  AND  THE  OUTPUT  IS  C(XS)-J*S(XS), 

7  cm 

8  LOGICAL  LDEBUG'LTEST 

V  CONMON/TEST/LDEBUO ,LTEST 

18  COMION/PI  S/P  1 1  TP  I » DPR#  RPD 

11  DIMENSION  A( I2),B( I2),0C(I2)«D(I2) 

12  CHI  SPECIFY  CONSTANTS 

13  DATA  A/ 1 .5957691 40, -0. 80000 1 702,-6 .808568654 »-0. 80097836 1 , A. 92869 

t 

14  2902, -0.0)6898657  ,-3.050485660,-0.075752419, 0.850663781  ,-8.02 
563904 

15  2 1,-0# 1 50230980, 0.0344047 79/ 

to  DATA  8/-0. 000000033, 4. 255387524, -0,0000928 10, -7. 780020480,-0.0095 

2 

17  20895,5.075161290,-0. 138341947,-1.363729124,-0.403349276,0.70 
222201 

18  26,-0.216195929,0.019547031/ 

IV  DATA  CC/0. ,-0.024933975,0. 000003936,0. 005770956,0.000689892,-0.00 

V 

20  2497136,0.011948809,-0.006748873,0.000246420,0.002102967.-0.0 
0I2I7V 

21  230,0.000233939/ 

22  DATA  0/0. 199471140. 0.000(M0023,-0.00935I34I, 0.0000230T?6, 0.0048514 
0 

23  26, 0.O0IV032I8,-0.0I71229I4, 0.029064067,-0.027928955,0.016497 
308,-0 ■ 

24  2. 0O55V85 15,0.000838386/ 

25  IF(XS.LE.O.H)  GO  TO  414 

2o  X-XS 

27  X  «  PI*X*X/2 .0 

28  FH-0.0 

2V  FI-0.0 

39  K- 13 

31  Clll  IS  X<47 

32  IFCX-4.0)  10,40,40 

33  10  Y-X/4.0 

34  Clll  EVALUATE  INTEORAL  USING  X<4  APPROXIMATION 

35  20  JC-K-I 

3o  FR-(FR*A(K11-Y 

37  FI-(FI*B(K))«Y 

38  IFOC-2)  30,30,20 
3V  30  FR»FR*A< 1 ) 

40  FI  -F  I^Od) 

41  C-(FR*CCS( X>4f I*SIN(X))4S0RTfY> 

42  S-<FR*SINtX)-FI*C05<X>)*SnRT(Y> 

43  GO  TO  I 

44  Clll  EVALUATE  INTEGRAL  USING  X>4  APPROXIMATION 

45  <0  Y-4.Q/X 

46  50  X-K-l 

47  Fft-(FR«CC(K))*Y 

48  FI*<F14D«K»»4Y 

4V  IF<X-2)  60,60,50 

50  UJ  FR-FR*CC(  1 1 

91  FI-Ff40O> 

52  C-0,54<FR*C0Sf XlvFl^SlNCX) )*SORT(Y> 

53  S-0.54(FN*S1N(X)-FI*CO5(X) )*3QRT(Y) 

54  CO  TO  » 

55  414  C—0.9 

5C  5—0.0 

57  I  IF  <  .WUT.LTESn  GO  TO  2 
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WHITE  (6,3) 

FORMAT  </,'  TESTING  FRNELS  SUBROUTINE' ) 

WRITE  (0,*)  C,S,XS 

RETURN 

END 


PURPOSE 


This  function  calculates  the  Integrand  of  the  integral  in  subroutine 
FKARG. 

METHOD 

The  integrand  of  this  integral  evaluated  in  subroutine  FKARG  is 
given  by 

FUNI(VR)  =  —  1 

>/A2sin2(VR)+B2cos2(VR) 


SYMBOL  DICTIONARY 


A  RADIUS  OF  CYLINDER  ON  X-AXJS 

U  NADI  US  OF  CYLINDER  ON  Y-AXIS 

wh  ELLIPTIC  ANCLE  ON  CYLINDER  IN  RADIANS 


CODE  LISTING 


i  pUNCTICN  e'UNItVR) 

-  Ltu 

4  c!(l  INTEGHAND  CF  K.TEOMAL  NEEDED  IN  FKAHO 
Utt 

6  COUiION/LEOMEUA,B,ZC(2!,SJIC(2»,CNC(2  J.CTCI2) 

1  FUN!" I ./S0kI(A*A*SIH(VHI»SlN(VW)^0*B*C0S< VR )*COSIVR) ) 

3  NfelUkN 

V  END 


mmmmmm 


GEOM 

PURPOSE 

This  subroutine  calculates  a  large  number  of  constants  that  are 
fixed  for  a  given  geometry  of  plates.  They  are  stored  In  common  blocks 
for  use  In  other  sections  of  the  program.  It  Is  called  once  for  every 
source  used.  Because  of  the  diversity  of  operations  done  In  GEON,  It's 
description  Is  broken  Into  seven  parts: 

1.  Identify  edges  which  are  common  to  more  than  one  plate. 

2.  Compute  unit  vectors  of  edge-fixed  coordinate  systems  for  each 
edge  on  each  plate. 

3.  Determine  source  Image  Information  for  reflections  from  plates. 

4.  Calculate  possible  range  for  diffraction  angle  80  for  each  edge. 

5.  Determine  wedge  angles  for  plates  with  common  edges. 

6.  Determine  plates  which  are  totally  shadowed  from  the  source. 

7.  Perform  calculations  for  plates  which  Intersect. 


GEOH,  SECTION  1 
PURPOSE 

To  Identify  edges  which  are  common  to  two  plates. 
PERTINENT  GEOMETRY 


Figure  62— Illustration  of  two  plates  with  a  common  edge 


CODE  |  LASTING _ _ 

2  SUBROUTINE  CEOM 

3  Clti 

4  Cl  II  THIS  ROUTINE  COMPUTES  ALL  THE  GEOMETRY  ASSOCIATED 

5  Cl  II  KITH  FIXED  PLATE  STRUCTURE, SUCH  AS  EDGE  UNIT  VECTORS, 
o  CHS  PLATE  NORMALS,  SIADOMED  PUTES.ETC, 

7  Clll 

8  DIMENSION  lHIT<6>,Xll<3>,X!tl(3).VI(3>,DS(3>.XC(3),XSlC3).XSlI<3> 

V  DIMENSION  XOBI3) ,XDC(3),VTCPI2).BTCP(4),VTCfJC2),BTCNt4) 

III  DIMENSION  VAX! 3, 3) 

41  LOGICAL  LSURP.LNPL 

12  LOGICAL  LSHD.LSTI), I.STS,LCTD«LHCT,LHIT 

13  LOGICAL  LCHND, L I W, LHEBUG, LTEST 

14  COMMON/TrST/U)E8UG,LTESr 

15  COMMON/PIS/Pl.TPI.npil.RPD 

16  (.OiUa»/OEOMA/XC  14.6.3),  V<  14,6, 3), VP«  I  4,6.  3>,VN(  14,3) 

IT  2,MEPtl-<),HPX 

la  COKMCN/t-OM  AC/Vi  Att(  14,6) 

IV  COMMON/ SOL •  MF/  X5  *  3 » • VXS (3,3) 

20  COVMON/IMA INrVXI  1 1 4 , 14,3  I,  VXK3.3,  U> 

21  CQUtW/bNOFCL/8iUU,6,2> 

22  COMaON/SUMFAC/LSUHF';  14) 

23  COMM ON/LSHDT/L SHIM  E4 ),LI  V<  14, 14 ) 

24  OWilCfl/LSHnP/LSTS,LSTD{l4) 

2h  COM?ON/FNANC/FNP  114,61 

2o  COMMON/lil  TPLT/4PH 

27  COMM ON/S UUKSF/F ACT 

28  COMM3K/F Ah  P/ 1 H  ,ii  ,H  Aa 

2  V  C0MB0N/GN0UND/LG»2m,sP:i(i 

30  LSTS-.FALSE. 

31  CM!  SECTION  I  ***•*••**••**•«••*»♦*••’*•*»*•♦* 

32  CU!  DETERMINATION  O'  COMHOH  £DC£S 

33  Cl  II  SET  «IP»2  ?M  ALL  EDGES 

34  00  3  KP* I , HPXR 

35  MeX»MeP(*»P> 

j6  00  3  ME«l,PEX 

37  3  *>.*£)<. 

38  CIS!  STEP  PISsW GK  PLATES  (PLATE  »P> 

3V  DO  17  HP-I.NP* 

40  M£X»M£P(MP) 

4  1  CHI  STEP  THROUGH  PLATES  (PLATE  *0,  MKSSE  tO.NE.NP) 

42  CO  16  MC«f.HPX 

43  EFtMO.EC. MP)  GO  TO  16 

**  hFX*j.‘cPCMO) 

4S  F£C»0 

*6  JIFC»0 

47  CM  I  STEP  A2tt:;»  EDGES  OR  PLATE  VP 

48  CO  12 

4 v  cl  H  STEP  AROUND  syces  CM  PLATE  *Q 

50  CM)  5 

51  JCt«U. 

%l  CM!  IS  CORNER  ME  ON  PLATE  MP  CLOSE  VO  CORNER  MP  W  PLATE  «07 

62  JNi  4  Kill  ,J 

E5  IF(**.LT-a.£»»»  GO  TO  6 

5?  GO  TO  12 

56  C  CCA* I RUE 
5V  00  I  *«».J 

©C  Ull  IF  £&$:  ASiii  CLOSE.  SET  THE*  ISSK.tCAL 
01  7  juw.aF.m *«E  „•£  I 

62  fM*t£,S£.0l  «lfl  TO  Ml 

6.  CM*  CKSSCfi  TO  5iC  IF  &«0  KiiSWtGetKO  COSsM&S  OS  1BD  PUTES 
©«  CM!  C0t  AVI  Us 
65  «LC«Ae 


2U 


00  MFC-ttF 

6/  GO  TO  12 

08  b  HES-HS-tEC 

aV  IFIBES.EO. I.OB.NES*! .EO.MEX)  GOTO  18 

70  CO  TO  12 

7 1  18  MEN»MEC 

72  IFCMES^I  .EQ.JWEX)  MEN«AtEX 

73  KFS-IASSIBF-FFC) 

74  IF(Mt;S»£Q.  I  .C8.MFS*T  .EO.ilFX)  GO  TO  19 

7b  GO  TO  12 

76  IV  MFN-MFC 

77  1F(MFS+I .£0«VFX)  MFN-NF'.. 

78  IFIMF-NFC.EO.-II  iIFN-NF 

3v  IHFNP(«P,«Ef».GT.0.)  GO  TO  9 

80  NFN«FNPtMP,MBI)-.5 

81  NFN» 1 ABS  l  NFN )/ 1  (JO 

82  IFIHFN.EO.MO)  GO  TO  >2 

63  V  CONTINUE 

84  Ci  li  STORE  WIICH  EDGE  IS  COU'tCN  TO  THE  EDGE  BEING  TESTED 
8b  C I  *  ft  FOB  LATEW  USE  IF  DEFINING  WEDGE  ANGLES 

86  IFCFKP{«O.MFfll.OT,C.  )  FHP(H0,‘1PN>u..:  .*n«J*i)P**EN> 

87  IF(FNP<«P.il£N).CT.O.  )  FNP< HP  ,M£!> )•- 1  ,*(  1 30**G*.“rN> 

68  12  CONTINUE 

8V  t6  CONTINUE 

VO  17  CONTINUE 

VI  IF  I LUEfcUt?)  ^ITE  (6,667) 

V2  067  FOB  NAT  </.'  OEQUGGINO  GS0*4  SUBROUTINE'  > 
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GEOM  SECTION  2  i 


PURPOSE 


This  section  computes  the  edge-fixed  coordinate  system  unit 
vectors  for  each  edge. 

PERTINENT  GEOMETRY 


CORNER  ME 
*MP,  ME 


Figure  63— Edge  coordinate  system  unit  vectors. 

V,ME  *  edge  unit  vector  =  *  V(MP,ME»1)  +  y  V(MP,ME,2)  +  Z  V(MP,ME,3) 

VNMp  =  plate  unit  normal  =  x  VN(MP,1)  +  y  VN(MP,2)  +  z  VN(MP,3) 

VPMp  ME  «  edge  unit  binormal  =  x  VP(MP,ME,1)  +  y  VP(MP,ME,2) 

+  2  VP(MP,ME,3) 

yMP,ME  =  corner  location  =  *  X(MP,ME»1)  +  y  X(MP,ME,2)  +  z  X(MP,ME,3) 
METHOD 

The  edge  unit  vectors  are  found  by, 

Z  ^MP,ME+1  "  ^MP,ME 

MP.ME  itt  ■?  I  * 

lAMP,ME+l  "  amp,me> 

The  normals  are  found  using 
MEX  .  * 

-  VMP,N  x  VMP,N+1 

vnmp  -  %r; - 7 - • 

l^=1  VMP,N  x  VMP,N+ll 
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i 

i  which  is  an  average  over  the  normals  computed  by  all  the  edges  of 

the  plate.  This  avoids  a  possible  incorrect  normal  due  to  a  convex 
t  edge  geometry.  The  bi normals  are  found  by, 

^MP.ME  *  "to  11  V,ME‘ 

1 

1 


r 
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FLOW  DIAGRAM 


To  sect'on  3 


CODE 

V3 

V4 

V5 

Vo 

V»7 

V8 

VV 

100 

101 

102 

103 

104 

105 

106 
107 
106 

-  10V 
(10 

111  1 

112 
H3 
114 
.115 
llo 
117 
.116 
HV 
120 
121 
122 

123 

124 

125 

126 
127 
126 
12V 

130 

131 

132 

133 

134 

135 

136 

137 

138 
13V 

140 

141 

142 

143 
I  44 

145 

146 

147 
146 
14V 
150 
181 

152 

153 

154 

155 
I5o 
157 


Cl  U 
Cl  11 
Cl  It 


cm 


C! 


10 


VV2 
VVI 
C!  1! 


LISTING 

CII!  SECTION  2  ****************************** 

COORDI fl/TE°sysTeM * VN ’ AND  VP  UNIT  VECT0RS  FQR  SOCEE-PIXED 
STEP  THRU  PLATES 
DO  100  MP*l,MPXft 
MEX*tfEP(MP) 

StEP  THkll  EDGES 
00  15  ME*I,MEX 
KME«ME*1 

IF(KME.OT.MEX)  AIMS- 1 
VM*0, 

!DGE  UNn'  VECTOR  V  AND  EDGE  LENGTH  VMAG 
DO  1 0  H* 1 , 3 

V(MP,ME,N>*X<MP,MME,N>-XIMP,ME,N> 
vm*vm+v<mp,me,N)*v(mp,me,»; 

VMAG( MP,  ME 1 *SORT (V  Ml 
DO  II  N-1.3 

V<MP,M£,N)*V«p,ME,f»/VMAG{MP,J/E) 

CONTINUE 

ifunot.ldebugigo  to  991 
DO  992  ME*  1,1/EX 
WRITE! 6,*) (V(KP,ME,N).N« 1,3) 

CONTINUE 
CONTINUE 

CALCULATE  PLATE  UNIT  NORMAL  VN 
VN (MP, 1 1*0, 

VN<MP,2)«0. 

VN (MP, 31*0. 

DO  22  ME»l ,MEX 
MV*M£+ 1 

IF (MV.GT.MEX)  MV*I 

1  ,vV(MP,.ME,2>*V(MP,MV,3)-V(MP,MV,2)*V(MP,ME,3) 
vn/ud’t  ’!!;  ;^«2)+V(HP,ME,31*va(P,Mv,l  )-V(MP,MV,3)*V<MP,KE,  1 1 
C0NTIMUe"VN(‘:<P*3HV<MP,ME*  '  )*V(MP»MV»2  )-V(MP,.MV,  I  )*V(MP,ME,2) 
VN'Mo0. 

00  20  N* I ,3 

Vti.M«VNM+VN  ( MP,  N>  *V  N<  MP  ,N  1 

VrlM*SORT(VNM) 

DO  21  fi»I,3 

VN ( MP, N) *VN<  MP, N )/ VNM 

IF  (LDcfeUG)  WRITE  <6,*1  (VN(MP,N),N»!,3) 

INSURE  THAT  ALL  PLATES  ARE  FLAT.  OTHERWISE  ABORT! 

noKt?«°LPi0ucvT  °F  PLATE  f!0RMAL  w'°  EACH  EDGE  UNIT  VECTOR 
Uy  1 4:17  M,«*3*MeX 

if?l8s!£Si!!jr!"!e-!!io*TO<^2>"“,,-“Sl5>*v"1';p'3l*,,“|,''‘6'31 

MEE“ME+1 

WRITEfd, 12 1 )MP,MEg 

PLATE  *  '«lV  rs  N°T  PLAT  I  CORNER  #  ',I2,/> 

4 •'PROBLEM.  PROGRAM  ABORTS l  ***•***')  *  ’ 

STOP 

CONTINUE 

CALCULATE  UNIT  BINORMAL  VP  WHICH  IS  IN  PLATE  PLANE 
AND  PERPENDICULAR  tO  PLATE  EDGE 

;^2DUCT  0F  PLATE  N0RNAL  AND  EDCE  VECTOR 
Ow  34?  Me*  I  ,MEX 


22 


<0 


21 


cm 

cm 


12 


120 

cm 

cm 

cm 


HAS 


IF< .NOT.LDEBUGJGO  TO  993 
DO  VV4  ME* 1, HEX 

VV4  WRJTE<6,*) (VP(MP,ME,N)  Ni 
W3  CONTINUE 
100  CONTINUE 


1 ,3) 


217 


GEOM  SECTION  3 


PURPOSE 

To  calculate  source  image  Information  for  reflection  from  plates. 
PERTINENT  GEOMETRY 


SINGLE  REFLECTION 
IMAGE  LOCATION 


DOUBLE  REFLECTION 
IMAGE  LOCATION 


XI 


MP.MPf 


figure  64— Geometry  of  image  locations  for  a  doubly-reflected  ray. 
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FLOW  DIAGRAM 


t.  Detanainatlon  of  single  reflection  source  laage  locations  and  the 
constant,  FACTOR 


,  v- v-.nwrt' ' 


Calculate  double  reflection  source  ‘sage  locetions 


Determination  of  single  reflection  leage  dipole  directions  (leage 
of  the  source  coordinate  system  exes  unit  vectors). 


Step  through  ptetes 
(variable  ■  HP) 

Celeutete  source  image 
coordinate  systee 
unit  vectors 

.  1 - 

To  section  4 


156  Cl  1 1  SECTION  3  ft***************************** 

15V  CMI  DETERMINATION  OP  SOURCE  IMAGE  INFORMATION  FOR  SINGLE 
IOU  CIII  ANO  DOULLE  REFLECTION  PROM  PLATES 

161  CIM  I.  DETERMINATION  OF  SINGLE  REFLECTION  SOURCE  IMAGE  LOCATIONS 
902  Cl!!  AND  THE  CONSTANT,  FACTOR,  FOR  SOURCES  MOUNTED  ON  THE  PLATE 

103  CIU  SURFACES 

104  FACTOR- I . 

165  cm  STEP  THRU  PLATES 

166  DO  50  UP-I.MPXR 

167  LSURFUIP )■ .FALSE* 

toe  cm  CALCULATE  SINGLE  REFLECTION  IMAGE  LOCATION 
10V  CAa  IMAGEIXII.XS, AN, UP) 

170  ClI!  IS  ANTENNA  MOUNTED  ON  PLATE  PLANE? 

171  IF(ABSIAN>.GT.I.E-5)G0  TO  640 

172  CIII  MOVE  SOURCE  LOCATION  SLIGHTLY  OFF  PLATE  IN  DIRECTION 
973  C!!«  OF  PLATE  NORMAL 

174  DO  566  N-1 ,3 

175  566  XSI(N)-AS(N)4l.E-5*VNCMP,N) 

176  CALL  ,MAGE(XS!I,XSI,AN,MP> 

177  DSM-t. 

178  DO  5o3  N-l ,3 

17V  DStN)-XSI  (N)-XSI  I  (!I) 

180  to 3  DSH-DS)(4DS(N)*DS0!) 

181  DSM-SQftTIDSH) 

182  DO  564  N-l ,3 

183  XIN(N)-XSIKN) 

184  564  DS(N )«DS(H )/DSM 

185  CALL  PLAINY(XIN,DS,DHIT,-MP,LHIT) 

186  1F(.MOT.LHIT)GO  TO  560 

187  DO  507  K-l,3 

168  XSIH)-XSI(N) 

189  507  XIKN)-XSII(N) 

I  VS  ENORM-VfHHP,  D4VXSI3,!  )4VN(MP,2)*vySC3,2)>VNtMP,3)*VXS(3,3) 

tvt  IF(IM.NE.0)GO  TO  56t 

9V2  C!I!  IS  UONOPOLE  NORMAL  TO  PLATE? 

IV3  IFU.-AbSIENOMMJ.GT.  I.E-3)G0  TO  562 

IV4  LSUUF  ( SIP )  - .  TRUE . 

195  GO  TO  560 

I  VO  to2  FACTOK-0.5 

IV7  GO  TO  500 

IV6  CIM  IS  SLOT  IN  PLATE  PLANE? 

IW  561  I F ( A3S ( ENORH ) ,  GT  •  I . E-3 )G0  TO  560 

260  LSURFI UP)- .TRUE. 

201  FACTOR-2. 

202  560  DO  50  N-l, 3 

203  50  XI < MP, UP ,N )-XI 1 1 H ) 

204  CIU  2.  CALCULATE  DOUBLE  REFLECTION  SOURCE  IMAGE  LOCATIONS 

205  DO  55  UP- I ,MPXR 

200  DO  55  UPP-I.MPXR 

20?  IFtMP.EO.MPP)  GO  TO  55 

208  DO  SI  N- I , 3 

20V  51  XIN(N)-XI(MP,MP,N) 

210  CAa  IMAGE ( XI t ,XIN,AN,NPP) 

241  DO  52  N-l, 3 

212  52  XI <MP,MPP,N)-XIt IN) 

213  55  CONTINUE 

214  TF  (LDEBUO)  UNITE  (6,*)  <(<XltMP,MPP,rM.N-l,3),MPP-l ,MPXR), 

215  2MP-I.MPXU) 

210  CIM  3,  DETERMINATION  OF  SINGLE  REFLECTION  IMAGE  DIPOLE 

21?  Cttl  DIRECTIONS 

218  00  57  MP-I ,UPXR 

21V  CAa  !IC!R<VAX,VXS,MP> 

220  DO  57  tU-l  ,3 

221  DO  57  NI-I ,3 

222  57  VXl<NI,NJ,NP)-VAXCHI,NJi 

223  I FC. HOT. LRE8U0 )G0  TO  551 

224  00  552  MP-I.MPXR 

225  00  552  NI-I* 3 

220  552  MNITEC6,*)  MP.NI ,« VXKNI  ,IU.UP),IU-1 ,3) 

22?  551  CONTINUE 


GEOjj  SECTION  4 


PURPOSE 

To  determine  permissible  range  for  angle  0.  for  diffraction 
of  source  ray  off  of  plate  edge. 

PERTINENT  GEOMETRY 


Figure  65— Geometry  for  determining  diffraction  angle  range. 


METHOD 


The  law  of  diffraction  dictates  that  diffraction  from  a  plate 
edge  Is  possible  when 

COSGj  <  COSG^  cosfl2, 

where  8ft  is  the  angle  that  the  Incident  and  diffracted  rays  make 
with  the  edge  (see  Figure  65).  8i  and  8-  are  diffraction  angle 
limits  and  are  defined  in  terms  or  their  cosines  as: 

8D(NP,NE,1)  •  cosdj  *  V)j*V 

B0(MP,ME,2)  -  C0S82  •  VI2‘V, 

where 


m 


IME  -  TS 


/s, 

VI, 


nfe  -is\ 


fa  =  ^me+i  "  ^ 


|^M£+l  -  T5 


The  vectors  mentioned  above  relate  to  the  code  as  follows 
\e  =  *  X(HP.ME.l)  +  y  X(MP,ME,2)  +  1  X{MP,ME,3) 

15  =  X  XS{1)  +  y  XS(2)  +  z  XS(3) 

V  -  x  V(MP,ME,1)  +  y  V(NP,ME,2)  ♦  z  V(MP,ME,3). 


FLOW  DIAGRAM 


Loop  through  plates 
(variable  »  MP) 

Loop  throe 
(varfabl 

gh  comers 

le  •  X) 

Calculate  unit  vector  VI  of  ray  fra*  larci 
to  comer  HE  of  plate  HP 


looc  through  both  edges  of  plate  MP  netting  at 
comer  HE  (variable  •  J) 


Calculate  diffraction  ingle  llaly, 
Take  dot  product  of  incident  vector  v*  and 
edge  vector  V 


CODE  LISTING 


228  CHI  SECTION  4  t*> 

22V  cm  DETERMINATION  of  permissable  range  for  diffraction  angle 

220  cm  LOOP  THRU  PLATES 

221  00  42  MP-I ,MPXR 

222  MEX»UEP(MP> 

223  C!U  LOOP  THRU  CORNERS 

234  00  41  KE»I  .HEX 

225  V1U>0. 

23o  C!tt  CALCULATE  VECTOR  VI  FROM  SOURCE  TO  CORKER  MS  OF  PLATE  UP 

237  00  48  N»l ,3 

238  VI<N)»XIMP,ME,N>-XS(N> 

23V  40  VIM«VI34»Vl  (M)*VI  CN 3 

240  VIM»SORT(VIU) 

241  Cii!  LOOP  THRU  BOTH  EXES  MEETING  AT  CORKER  ME 

242  00  41  >1,2 

243  MJ-ME4I-J 

244  IFCMJ.EO.0)  MJ«MEX 

245  SC(MP,MJ.J)«3. 

24©  C!U  CALCULATE  BO.  THE  XT  PRODUCT  OF  INCIDENT  RAY 

247  C!!I  VECTOR  VI  AND  EDGE  VECTOR  V 

248  DO  41  N»l,3 

24V  41  E0(MP,MJ,J)"B0<MP,MJ,J)4V(HP,MJ,N)*VI(N)/VIR 

250  42  CONTINUE 

251  IK (.NOT. LOSBUG 5 GO  TO  W5 

252  DO  VV6  MP-I.MPX 

253  NEX-JtEPIMP) 

254  00  VVO  ME- I. VEX 

255  WO  MRITE<6.*>tBD<HP.‘«E,J),>l^) 

250  WS  CONTINUE 


-/H 


6E0H  SECTION  5 
PURPOSE 

To  calculate  wedge  angles  for  plates  with  com  edges. 
PERTINENT  GEOMETRY 


PLATE  UP 


PLATE  MO 


Figure  66~*€eowetry  used  to  determine  wedge  angles 
of  plates  with  cam on  edges. 


NEIHOO 


The  wedge  angle  is  specified  using  the  wedge  angle  muter  FN,  such 
that  the  wedge  angle  is  given  by 

tt  -  FN)* 

as  shown  in  figure##.  The  wedge  angle  muter  is  determined  as  follows: 


"•I--1®* 


A 


f 

i 

t  where 

1  TOP  -  *^q  •  VP* 


sr 

$ 

*«► 

BOT  =  -A*  •  V\j 

A*  =  x  VN(HP,1)  ♦  J  VN(MP,2) 

T 

* 

A*  -  x  VP(MP,HE,1)  +  J  VP(MP 

1 

®MQ  *  xsW(MQ,l)  +  y»VN(MQ,2) 

i. 

w  * 


I 

I 

I 
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♦  2  VN(HP,2) 

i ME, 2)  ♦  z  VP(MP,HE,3) 

♦  2  VN(KQ,3). 


FLOW  DIAGRAM 


To  section  6 


CODE  LISTING 


257 

256 

25V 

200 

261 

262 

263 

264 

265 

266 
2o7 
266 
20  V 

270 

271 

272 

273 
2*;  4 

275 

276 

277 

278 
27V 
280 
281 
282 

283 

284 

285 

286 
287 
268 
28V 
2V0 
2VI 
2V2 
2V3 
2V4 


CH! 
C! !! 
C! !! 


C!  ! ! 


C! !! 


C! !! 
C! !! 


o4 


VV8 

VV7 


5  ****v************************* 

STEP  THROUGHKPLATeIDGE  ANGLE£  F0R  PUTES  «™  COMMON  EDGES 

DO  35  MP*1,/.1PX 

MEX«MEP(MP) 

STEP  THROUGH  EDGES 
DO  35  ME* I ,MEX 

IS  EDGE  ME  PART  OF  A  WEDGE? 

IF<FNP<MP,KE).GT.-5. )  GO  TO  35 

NFN=>FNPUtP,,ME)-.5 

NFN*IABS(NFN) 

MQ*NFN/ 1 00 
MF*NFN-/.!Q*I00 

IF<FNPCNO,MF).CT.0.)  GO  TO  35 
™  "”T  reC™S 

i;?s?,r0raN  ;;p-  -  *-«  > 

FANG=BTAN2  <TOP,BOT) 

ANN-0. 

ANP=0. 

DO  34  N*I  ,3 

XSX*XS(N)-X(A!P,ME,N) 

ANN*AMH+XSX*VN  (,MP,  N ) 

ANP*ANP+XSX*VP(MP,ME.H> 

PHIV  A  H*  BTAN'2  ( AMM ,  AN  P ) 

IFIPHWAR.LT.e. )  PH WA R* TP I + PH WA R 
FN-FANG/PI 

IF  ( PHhAk.GT.  FN*pi )  Ff.'*2.  -ARS  (FANG)  /PI 

FNP(MP,ME)*FN 

CONTINUE 

I F ( 4  NOT . LDEBUG )G0  TO  VV7 
DO  V98  MP* ! ,MPX 
Mfc'X*MEP<  MP ) 

DO  9V8  ME* I, HEX 
WRITE(6,*)FMP(;.(P,ME) 

CONTINUE 
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GEOM  SECTION  6 


L 

PURPOSE  I’ 

To  determine  plates  which  are  totally  shadowed  from  the  source. 

PERTINENT  GEOMETRY  I 


Figure  67a— Configuration  where  plate  ML  totally 
shadows  plate  MP  from  source. 


i 
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z 


Figure  67b~Configuration  where  plate  MP  is  not 
total 1y  shadowed  from  the  source 


METHOD 

If  plate  ML  totally  shadows  plate  MP  from  the  source,  then  every 
ray  drawn  from  the  source  to  a  corner  of  plate  MP  will  intersect 
plate  ML.  The  routine  computes  vectors  from  the  source  to  each 
corner  of  plate  MP  and  uses  a  shadow  testing  algorithm  to  check 
if  any  plate  shadows  all  of  the  rays  (see  Figures  67a  and  67b). 

If  so,  it  is  assumed  that  plate  MP  is  totally  shadowed  from  the 
source. 


I 

I 

I 

I 
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2 VS  Cl! I  SECTION  6  *****#*********4************* 

296  Cl!!  DETERMINATION  OF  PLATES  THAT  ARE  TOTALLY 

297  C!!!  SHADOWED  FRO M  THE  SOURCE 

2VS  LSTS-.TRUE. 

299  DO  72  MP-I ,MPXR 

300  72  LSHD(JtP)«. FALSE. 

3(61  Oil!  STEP  THRU  PLATES 

302  DO  79  MP-I  ,MPX 

303  MEX-M£P<MP) 

304  CM!  SET  LSTD-TRUE  FOR  ALL  PLATES 

305  C!!!  SET  LCTD-TRUE  FOR  THE  CYLINDER 

306  DO  73  ML- 1  ./IPX 

307  73  LSTDCMD-.TRUE. 

30b  LCTD-.TRUE. 

309  C!!l  STEP  THRU  CORNERS 

310  DO  .77  ME-I  ,MEX 

3  1 1  DSM-0. 

312  C!!!  CALCULATE  DS,  UNIT  VECTOR  OF  RAY  TRAVELING  FROM  SOURCE  TO 

313  C!!!  CORNER  ME  OF  PLATE  MP 

314  DO  74  N-l,3 

315  DS(N)-X(MP,ME,N)-XS<N) 

316  74  DSM-DSH+DS(N)*DS(N> 

317  DSM-SORT(DSM) 

318  DO  75  H-l,3 
31V  75  DS<N)«DS(N)/DSM 

320  CM!  IS  RAY  SHADOWED  BY  PLATE  OR  CYLINDER? 

321  CALL  PLAINT(XS«DS,DHIT,MP,LHIT) 

322  IF(LHIT.AND.DHIT.GT.DSM)LHIT». FALSE. 

323  IF(.NOT.LCTD)  CO  TO  76 

324  PHCR-BTAN2 ( DS<  2 )  ,DS( I ) ) 

325  CALL  CYLINTl XS,DS, PHCR.DHI T.LHCT,. FALSE, ) 

326  IF(.NOT.LHCT)  LCTD-. FALSE. 

327  IFILHCT.AND.DHIT.GT.DSM)  LCTD-. FALSE. 

328  76  CONTINUE 

329  I F ( . HOT . LH I T . AND . . NOT. LCTD )  00  TO  79 
Jj0  //  CONTINUE 

331  C!!!  CHECK  TO  SEE  IF  ANY  ONE  PLATE  ML  COMPLETELY  SHADOWS  PLATE  MP 

332  C! !!  STEP  THRU  PLATES 

333  DO  78  ML- I ,MPX 

334  IFI.NOT.LSTDIMU)  GO  TO  78 

335  LSHDIMPJ-.TRl'E. 

336  7b  CONTINUE 

337  IF(LCTD)  LSHD<MP)-.TRUE. 

338  7V  CONTINUE 

33V  IF  (LDE8UG)  WKITE  (6,*)  (LSHDC BP), MP-I ,MPXR> 

340  LSTS-. FALSE. 
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GEQM  SECTION  7 


PURPOSE 

This  section  handles  various  calculations  for  plates  which  Inter 
sect  each  other. 

PERTINENT  GEOMETRY 


Figure  68— Illustration  of  a  plate  which  Intersects  another. 


236 


Determine  which  ptites  cvuiot  111i*1n*te  etch  other  taud  on  Ulojol 
liuge  locations.  I 


CODE  LISTING 

341  Clii  SECTION  7  ************ihm****«*«****#«* 

342  Clll  I.  DETERMINE  PLATES  THAT  INTERSECT 

343  CIII  STEP  THI.U  PLATES 

344  DO  85  MP-I.HPX 

345  MEX-MEP(MP) 

340  cm  SET  IHI1— ME  FW  EACH  EDGE  ON  PLATE  HP 

347  DO  88V  ME- I, HEX 

348  68V  IHIT(ME)— ME 

3«V  cm  STEP  THkU  EDGES 

350  DO  82  ME- 1  ,MF.X 

351  DO  8)  N-1,3 

352  XINt  H)«-X  (NP,ME,N  i 

353  bl  DS(N>»VCMP,«E,m 

354  C!!!  DOES  EDGE  INTERSECT  ANOTHER  PLATE? 

355  CALL  PLAINT<X!fi,DS,DHIT,MP,LhIT> 

350  I F < .N0T.LH1T5G0  TO  flP 

35?  IHDHIT.CT.VMAC<,'iPtME))lK>  TO  80 

35b  MC-ME* I 

35V  IFtMC.GT.MEXIMC-l 

3oa  C!U  CHOP  OFF  SECTOR  OF  PLATE  UP  f«lCH  PASSES  THRU  PLATE  MPH 

301  IFlDHlT.LT.O.t )G0  TO  83 

302  DO  82  N* 1 , 3 

303  b2  X(MP,aC.H)-XtMP.ME,N)4IDHlT-2.E-5)*Mt "P.’tE.N) 

304  VMAGCMP,ME>*CMT-2.E-5 

305  1HITIMC J-MPH 

3oo  IFtLDEBUOHRITEtfi.-IWV'C.tXriP.SIC.NJ.K-I.S) 

30  ?  GO  TO  80 

3o.S  83  VMAGIKP,PE)-VUAC(MP,ME)-DHIT 

3oV  DO  84  tl-l,3 

370  b4  X(MP.ME,N)-X(aP,KC,N)-V»»AG(^P,fE)-V(!'i>.S'E,N' 

3?  I  IHIT(ME)-HPH 

372  IFCLUEBUG)  W)ITFtfl,*)MP,ME,  <<tMP,UE,t:>,H-l,.3} 

373  U)  CONTINUE 

374  C!!!  2.  DETERMINE  HEN  HEDGE  ANCLE  NUMBER  FOR  INTEPSECTU'G  PLATES 

375  CM!  STEP  THRU  EDGES 

37o  DO  So  ME-I ,MEX 

37?  MC-lfE4l 

3?8  IFtMC.GT.MEX)  SOI 

37V  C*M  00  PUTES  INTERSECT? 

380  lF(lHITUS>.NE.HUT<se>>CQ  TO  80 

381  KR-IHITtME ) 

382  CU!  TAKE  OOT  PRODUCTS  Of  PLATE  UNIT  VECTK?S  AND  EVALUATE  FH 

383  XX«VfftMli,n*VP(MB,ie,l)4VN(NR,2)*VPtW»<H^2>*VHrW.3) 

384  2*VPtMP,lE,3) 

385  VY-VNtMR,  H*VKtMP,  l)*VN(HM,2  )*VHf4Pt2)4VNUM)  ,3>*VtHHP,3) 

380  FN*-MH 

387  IF(XX.U.0.)CO  TO  89 

388  FR-0.5*8TAN2CYY.XX)/P: 

38V  ANN-0. 

3Ve  00  8?  N-1,3 

3V!  b?  AhN-AKN4VNCMP,NJ*(XStN)-Xt«P.NS,N>) 

3V2  IF«A»£N.GT.O.)GO  TO  88 

3v3  FK-3.-PH 

JV4  GO  TO  88 

3VS  tv  NRtTEtO,,f8S»SlP,MR 

3V0  bat  FORMA! (»  WARNING  PLATES  *.255,'  INTERSECT  YET  GEOMETRY  ' 

3v?  8 INDICATES  ATTACK©  PLATE  IS  SHADOW© I! !',//> 

3v«  fcg  FNP<$tP.l£)*H; 

3Vv  to  CONTINUE 

*  CC  1:5  Cttlt I  RUE 

4«l  tF<.|:UT.©EWA}»GO  TO  88? 

CO  6*8  UP- 1. KPS 
*83  Mcl-MEPt IP > 

484  DO  888  AE-t.H-S 

*»5  U-a  «R|TEtO,«)FNP'iM>.,nE> 

*80  tO«  COGTICUt- 
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407  cm  3.  DETERMINE  PUTES  »1TH  COMMON  HJOES  WHICH  CANNOT  ILLUMINATE 
4*Jb  CIII  EACH  OTHER. 

445V  cm  SET  LIKD-PALSE  FOR  All  PLATE  COMBINATIONS 

410  DO  90  HF«t ,MPXR 

41 1  DO  VO  MPP-I.VPXR 

412  Vi>  LIHD<MP,HPP)».FALSE. 

41  j  CIII  STEP  TKMJ  PLATES 

414  DO  VI  HP*I,HPX 

415  C!!!  STEP  THHU  PLATES 

4lo  DO  VI  KFP*I,M>X 

417  MEX«MeP (MPP) 

418  Cl!!  STEP  TIIHU  EDGES 

41V  UO  V2  ME«I,MEX 

420  CIII  CAN  °LATES  UP  AND  KPP  NOT  ILLUMINATE  EACH  OTHER? 

421  CIII  IF  SO,  IDENTIFY 

422  IFN»-FNP(MPP,‘4E)/I00. 

423  IFCIi-R.KE.KP)GU  TO  V2 

42  4  itEH—FNP  t  a  PP ,  ME )  -I  Ffl*  I  »544) .  5 

420  IF(FNP(IFM,L'EH).LY.1.)C0  TO  92 

420  LIHDtMP,MPP)*.T8UH . 

427  UHOCMPP,UP>^TWUE. 

428  V2  CONTINUE 
42V  VI  CONTINUE 

434J  cm  4.  DETENU  I  HE  PLATES  WHICH  CANNOT  ILLUMINATE  EACH  OTHER  BASED 

431  cm  ON  ILLECAL  IMAGE  LOCATIONS. 

432  cm  STEP  THRU  PLATES 

433  DO  V2t  fcP-t.UPX 

434  agx-vePiap) 

415  SUNT* I  .E3<5 

430  DO  V22  HE*I,5IEX 

43?  SUM»u. 

438  DO  V23  N»l  ,3 

43v  V23  SOlt» SlU ♦  t  X  ( '■!  P  ,*t E . II ) -XS  ( !ti  J  »*2 
440  I  r  t  SU8 .  GT.  SiiHT  >00  TO  ¥22 

44  I  SUUY-SU* 

442  M£S»vE 

443  V22  CONiTNUfc 

444  CO  V24  f'PPel.GPX 

445  ANP*8. 

440  AMI«0. 

44  r  DO  V25  t-»l  ,3 

448  AUP-#3!PviXtHP,USE,N>-X(HPP,l.»li>sV}:U’PP.tl> 

44V  V25  A?;t*ANS4CXHCP,MPP,!iJ-St{tPP.I,H>’*VTMMPP,N) 

<50  cm  CAN  PUTES  Of  A«0  HPP  HOT  £LLUi‘ttUT£  EACH  OTHER? 

451  IMANP*A?U  .LT.C.  >00  TO  V2< 

452  L  IWi  tUP,  IIP?  >».  TRUE. 

453  V24  CUT!  HUE 

454  v2 1  CONTISUE 

455  !F».rOT.L3E6l»>CO  TO  V3 

450  EXJ  V4  VP«1 ,1-PXN 

451  00  94  MPP«  S  ,H5>X* 

*58  V4  AanE(ft.4>«».MH>,uno(-'i*»,'*pp> 

45V  V3  CCN’TSliVs 

400  KC-TUWfl 

4o  1  si*y 
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SYMBOL  DICTIONARY 


AN  DOT  PRODUCT  OH  PLATE  UNIT  NORMAL  AND  VECTOR  FROM 
SOURCE  TO  THE  PLATE  (CALCULATED  IN  IMAGE) 

Am  dot  product  of  vector  from  corner  i  of  plate  hpp 

TO  I  HE  DOUBLE  REFLECTION  IMAGE  LOCATION  XI(WP.WPP) 
AND  THE  UNIT  NONNA L  OF  PLATE  MPP 
A NN  OOT  PRODUCT  CF  XSX  AND  UNIT  NORMAL  OF  PLATE  UP 

ANP  COT  PROOUCT  OF  VECTOR  FROM  CORNER  I  OF  PLATE  WPP 
TO  CORNER  WEE  Of  PLATE  RP  AND  UNIT  NORMAL  OF 
uA'jH  MPP 

ALSO  DOT  PRODUCT  OF  XSX  AND  BI NORMAL  OF  EDGE  ME 
Of  PLATE  UP 

a U  COSINES  OF  ANCLES  DEFINING  flODNOS  ON  DIFFRACTION 

ANCLE 

OUT  NEGATIVE  DOT  PRODUCT  OF  UNIT  NORMALS  OF  PLATES 
MP  AND  UO 

UNIT  DI  S'!  AfiCt  FROM  SOURCE  TO  NEAREST  HIT  if  ROM  PLAINT) 
DOT  COT  PRODUCT  OF  PLATE  UNIT  NORMAL  AND  EDCE  UNIT 
NORMAL 

US  UNIT  VECTOR  OF  k AY  FROn  SOURCE  TO  COSHER  ME  OF 
PLATE  KP  (SECTION  6) 

ALSO  UNIT  VECTOR  OF  RAY  FROM  IMAGE  TO  SOURCE 
(SECTION  3) 

ALSO  UNIT  VECTOR  OF  EUCe  ME  (SECTION  7) 

DSM  NURWALUATICN  CONSTANT  FOR  l)S 

ENOW  COT  PRODUCT  OF  VH  (THE  UNIT  NORMAL  OF  PLATE  MP)  AMD 
THE  Z  AXIS  CF  THE  SOURCE  COORDINATE  5YSTB* 

FACTOR  MAGNITUDE  ADJUSTMENT  FOR  SOURCES  MOUNTED  ON  THE 
SURFACE  OF  PLATES 
rANG  KtDGE  ANGLE 

FN  LEDGE  ANGLE  NUMBER 

FNF  RfcLICiE  ANGLE  NGMEER  (ALSO  USED  IN  DEFINING  CO  KM GW 
EDGES) 

Ir I.  INDEX  VARlAtLE 

IH1T  StQRES  PLATE  NUMEEHS  FOR  PLATES  INTERSECTED  BY 

AN  EDGE 

J  CO  LOOP  VARIABLE 

Lcht  SET  TWtfg  IF  RAY  HITS  CYLINDER  I RETURNED  FROM 

CYLINT) 

l  CIO  StT  TRUE  IF  CYLINDER  SHADOWS  PLATE  FPQW  SOURCE 

Liill  icl  TRUE  IF  RAY  INTERSECTS  A  PLATE  (FROM  PLAINT) 

LiHU  SET  TRUE  IF  PLATES  HP  AND  MPP  CANNOT  ILLUMINATE 
EACH  OTHER 

LEND  ifcl  TRUE  IF  PUTS  UP  IS  TOTALLY  SHADCME0  F6C« 
the  source 

LsYU  SET  TRUE  Sr  FLATS  *1  TOTALLY  SHAIXM  PUTe  MP 
fttO*  THE  SOURCE 

LSIS  SET  TRUE  IF  TOTAL  SHADOWING  ALGORITHM  IS  ?Ei)X5 
USED 

At  CO  LOW5  VARIABLE.  also  1WJEX  VARS asle 

MIA.  RORrINU  VARIABLE 

Alt  iNifcK  VAR  I  AILS 

MEN  JfSJti  VARlAtLE 

MkJ*  AOStSjNO  VARIABLE 

MfcS  COMPUTATIONAL  VARIABLE 

Met  K)5ttEH  OF  EL&5S  &i  A  «|VF*  S»UTi 

*f  os  uvp  vauiadle.  also  index  vadiaple 

HH.  SOJOilNO  VARIABLE 

*a*  «tatfA{SO  VARIABLE 

*>i  CuaPtfUTtOWAl  varSaCLI 

Rr i  RgiRFiM  tsF  SDteS  0 «  s>UT6  WO 

J*L  t£»  LOOP  VARIABLE 

ittti  'bJ5  i  VAi*sAlt£ 

x?  m  LOB*  VARIABLE  iJtCP  IKVO  CUTES ) 

ALSO  PU 51  S3DE4  VAHiAISU 
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kpp 

MO 


f 


f 


J4K 

MV 

N 

NH. 

Ni 

NJ 

PUCK 

PHftAN 

SUA 

SUIT 

*OP 

V 

VAX 

Vt 
v  U 

Vii 

V  MAO 
Vl* 

vna 

VP 

vx; 

VXi 

XI 

XU 

AIN 

AiJ 

xsi 

AS*  I 


ASX 


U 

»♦ 


Do  LOOP  VAHLUL!  f  ALSO  PLATr.  INDEX  VARIABLE) 

Du  UUP  VARIABLE  (STEP  THRU  PLATES). 

ALSU  INDEX  VARIABLE 
INDEX  VAklAbLfc' 

Index  variable 

DU  LOUP  VARIABLE 
NOkkINC  vAHIAULE 
DU  LOOP  VARIABLE 
DO  LOOP  VAN  1  ABLE 

PHI  COMPONENT  Of  V  EC  TCP  EfiO't  SOURCE  TO  PLATE 
COHNEm  in  HCS 

ANCLE  WICK  DETERMINES  MUCH  SIDE  OP  THE 
INTERSECT  I  NO  PLATES  IS  ILLUMINATED 
LENGTH  OH  VECTOR  FROM  SOURCE  TC  EDGE  ME 
OH  PLATE  MP 

LENGTH  Ur  VECTOR  r ROM  SOURCE  TO  CLOSEST  EDGE 
Cl-  PLATE  MP 

DOT  PRODUCT  OH  B I  NORMAL  Of  COMMON  EDGE  OF  PLATE  VP 
AND  NORMAL  Or  PLATS  HO 

MkTkIX  OH  X,Y,2  COMPONENTS  DEFINING  EDGE  UNIT 
VICTOR’S  IN  RCS 

X.V.Z  COMPONENTS  DEFINING  SINGLE  REFLECTION 
iaACc  SOURCE  COORDINATE  SYSTBI  AXES  IN  RCS 
COMPONENTS 

X.Y.Z  CCUPONENTS  OH  UNIT  VECTOR  CF  RAY  FROM  SOURCE 

TU  CORNER  Hi  OH  PLATE  ‘IP 

NURMAUZATIUN  CONSTANT  OH  VI 

Dt STANCE  BETWEEN  TWO  NEIGHBORING  COSHERS  OH  A 

PLATE  SQUARED 

DISTANCES  BETWEEN  NEIGHBORING  CORNERS  JN  PLATES 

X.Y,2  COMPONENTS  DtHINIMO  PLATE  'PUT  NORMAL 

DIRECT  IONS  IN  RCS  COMPONENTS 

PLATE  UNIT  NORMAL  NORMALIZATION  CONSTANT 

MATRIX  CONTAINING  EDGE  UNIT  DI NORMAL  DIRECTIONS  IN 

Rbr tReNCH  COORDINATE  SYSTEM 

X.Y.Z  COMPONENTS  DEFINING  UN  I T  VECTORS  OF  SOURCF 
UAOL  CCORD1NATE  SYSTEM  AXES  IN  HCS 
X.Y.Z  COMPONENTS  U EH  I MING  UNIT  VECTORS  CF  SOURCE 
COORDINATE  SYSTEM  AXES  IN  80S 

akr/y  oh  components  defining  sirtaE  and  double 

RfcrlEcTlX-  SOURCE  IMAGE  LOCATIONS  IS  RCS 

X.V.Z  COMPONENTS’  OH  SINGLE  REFLECTION  I  MACE 

LOCATION  CALCULATED  IN  SUBROUTINE  IMAGE 

X.V.Z  C0UPCNEN7S  Or  LOCATION  CF  CORNER  ME  Or  PLATE 

UP 

ALSv,  SI  SOLE  HerLECT ION  IMAGE  LOCATION 
A JLSu.  XSII 

DISTANCE  BsV-csf*  CCRNSR  if  Ofl  PLATE  WJ  AIL*  CCR’‘E8 
it  CJ«  PLATE  XP 

X.Y.Z  COMPONENTS  Of  SUUSCE  LOCATION  MOVED  A  SMALL 

AMuoir*  in  the  direction  o  tks  plate 

irCw  SOO«Cs  OS  PLATS  PLANE ) 

X.V.Z  COiSPUNSNTS  OH  SSifSO:  I&XGf  LOCATION 
CALCULATED  IN  SOeRCyTSNg  i«*Ge  FOR  SOURCE 
LOCATED  At  Xti 

X.V.Z  Cc  •US.tNTS  Or  vucrew  HSW*  COiiNSR  s*f  Of  PLATS 
BP  ,ii  i'at  500*13; 

Cwf  PAUCWT  Cat  gtN«W*AL  CF  EGOS  MS  Or  PLAT?  1»  ATi 
KURAAL  OH  PL*Tr  ASJ 

Dw>  Ur'  KtsnALS  Or  PLATES  VP  AS«  m 
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L 

PURPOSE 

To  calculate  geometry  associated  with  fixed  cylinder  structures  [_ 

(end  cap  normals,  etc.). 

PERTINENT  GEOMETRY  I 


z 


IMAGE 

XIC 

Figure  69—  Geometry  for  determining  source  image  location 
for  reflection  from  cylinder  end  cap. 

VNC  =  x  VNC(l)  +  y  VNC(2)  +  z  VNC(3) 

15  =  x  XS(1)  +  y  XS(2)  *  1  XS(3) 

ITU  «  x  XIC(MC,1)  +  y  XIC(MC,2)  +  z  XIC(MC,3) 

IU  =  z  ZC(MC) 
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Figure  70—  Illustration  of  vectors  from  the  source  tangent 
to  the  elliptic  cylinder. 

VTj  *  x  BTS(l)  +  y  BTS(2) 

VT2  =  x  BTS(3)  +  y  BTS(4) 

TTj_  =  x  A  cos(VTS(l))  +  y  B  sin(VTS  (1)) 

XT2  =  5  A  cos( VTS( 2) }  +  y  B  sin(VTS(2) ) 

y$  -  x  XS(1)  +  y  XS( 2)  +  z  XS(3) 

METHOD 

The  image  source  location  is  given  by: 

1TZ  *  >5  -  2  AN  VNC, 
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where  1 

AN  =  (75  -  JC)  .  VNC  .  i 

i. 

This  is  illustrated  in  Figure  69. 

The  tangent  vectors  from  the  source  to  the  cylinder,  as  il¬ 
lustrated  in  Figure  70,  are  found  in  subroutine  TANG.  • 
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SYMBOL  DICTIONARY 


AN  DOT  PRODUCT  OF  END  CAP  NORMAL  AND  RAY  FROM  END  CAP  TO  SOURCE 

OS  UNIT  VECTOR  OF  RAY  FROM  SOURCE  IMAGE  TO  SOURCE 

DSM  DISTANCE  FROM  SOURCE  IMAGE  TO  SOURCE 

ENORM  DOT  PRODUCT  OF  END  CAP  NORMAL  AND  £  AXIS  OF  SOURCE 
COORDINATE  SYSTEM 

LHIT  SET  TRUE  IF  RAY  HITS  END  CAP  (FROM  SUB.  CAPINT) 

LSRFC  SET  TRUE  IF  SOURCE  IS  MOUNTED  ON  END  CAP  MC 

MC  END  CAP  INDEX  VARIABLE 

N  DO  LOOP  VARIABLE 

NC  SION  CHANGE  VARIABLE 

NI  DO  LOOP  VARIABLE 

NJ  DO  LOOP  VARIABLE 

VNC  X, Y,  AND  Z  COMPONENTS  Of  THE  END  CAP  UNIT  NORMAL  IN  REF  COORD  SYS 
VXIC  X, Y,Z  COMPONENTS  OF  UNIT  VECTORS  DEFINING  AXES 
OF  END  CAP  SOURCE  IMAGE  COORDINATE  SYSTEM 
XIN  SOURCE  IMAGE  LOCATION  IN  END  CAP  MC 
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CODE  LISTING 

2  C  SUBROUTINE  CEOMC 

3  C!  t ! 

4  cm  THIS  ROUTINE  COMPUTES  ALL  THE  GEOMETRY  ASSOCIATED 

5  cm  WITH  FIXED  CYLINDER  STRUCTURES,  END  CAP  NORMALS,  ETC. 

6  cm 

7  DIMENSION  XIN<3) ,DS<3) ,VNC(3),VAX<3,3) 

8  LOGICAL  LPLA,LCYL,LSRFC,LHIT,LDEBUG,LTEST 

V  COMMON/PIS/PI, TPI, DPR, RPD 

10  COMMON/GEO ME  L/A,B,ZC(2),SMC(2),CNC(2),CTC(2) 

ill  C0MM0N/S0RINF/XS(3),VXS<3,3) 

12  C0MM0N/IMCINF/XIC<2,3) ,VXIC<3,3,2) 

13  common/farp/im,h,haw 

1 4  COMMON/SOURSF/FACTOR 

1 5  COMMON/ENDSCL/DTS, VTS< 2 ) ,BTS<4 ) 

18  CQMMON/SRF ACC/LSRFC! 2 ) 

17  COMMOH/LPLCY/LPLA, LC YL 

18  COMMON/TE  ST/LDEBUG ,LTEST 

19  IF(LDEBUG)  WRITE<6,900) 

20  900  FORMAT!/,’'  DEBUGGING  GEOMC  SUBROUTINE') 

2  1  CIS!  DETERMINATION  OF  DISK  1 14 AGES 

22  IF(.NOT.LPLA)  FACTOR* I . 

23  C!!!  LOOP  THRU  END  CAPS 

24  DO  515  MC*  1 , 2 

25  LSRFC<MC>*. FALSE. 

26  NC“MC 

27  IF(MC.EQ.2>  NC— I 

28  C!!!  CALCULATE  RID  CAP  UNIT  NORMAL 

29  VNC< I )*-NC*CNC(MC) 

30  VNC<2>*0. 

31  VNC(3)*NC*SNC(MC) 

32  CIU  CALCULATE  SOURCE  IMAGE  LX  AT  ION  FOR  REFLECTION  FROM 

33  C!!l  END  CAP  MC 

34  AN«XS(l)*VNC(l )+XS(2)*VNC(2)+CXS(3)-ZC(MC))*VNC(3) 

35  DO  510  N=l ,3 

36  510  XIC(MC,N)=XS(N)-2.*AN*VNC<N> 

37  CIS!  IS  SOURCE  MOUNTED  ON  END  CAP  PLANE? 

38  IF(ABSCAN) .GT. l.t-5)  GO  TO  520 

3V  DO  526  N*l ,3 

40  526  XS<N)*XS(N)+t.E-5*VNC(N) 

41  AN-XS<1)*VNC(I )>XS(2)*VNC(2)+(XS(3)-ZC(MC))*VNC(3) 

42  DO  527  N-l,3 

43  527  XIC(MC,N)-XS<N)-2.*AN*VNC(H) 

44  CIU  IS  ANTENNA  MOUNTED  ON  END  CAP,  IF  SO  IDENTIFY 

45  DSM-0, 

46  DO  523  N-l ,3 

47  D5(N)*XS(N)-XIC(MC,N) 

48  523  DSM-DSM+DS(N)*DS<N) 

4V  DSM»SQRT(DSM) 

50  DO  524  N* I, 3 

51  DS<N)*OS(N)/DSM 

52  524  XIN(N)»XIC(MC,N) 

53  CALL  CAPINT! XI N, DS,DHIT,MC,LHIT) 

54  IF(.NOT.LHIT)  00  TO  520 

55  ENORM-VNC! t)*VXS(3,l )4VNC<2)*VXS(3,2)4VNC(35*VXS(3,3) 

56  IFUM.NE.0)  X  TO  52  I 

57  IF< l.-AbS(ENORM) ,GT. I.E-3)  GO  TO  522 

58  LSRFC<MC)e.TRUE. 

5V  GO  TO  520 

60  522  FACTOR*. 5 
6)  GO  TO  520 

62  521  1F<AMS(EN0W4).GT. I.E-3)  X  TO  520 

63  LSRFC(MC)-.7RUE. 

64  FACTOII-2. 

65  520  CONTINUE 


60  CHI  COMPUTE  END  CAP  IMAGE  SOURCE  AXES  DIRECTIONS 

67  CALL  IMCD1 R( VAX, VXS.VNC; 

68  DO  530  NJ* I , 3 

69  DO  530  NI-1,3 

70  530  VXIC(NI,NJ,MC)-VAX<NI,NJ) 

71  515  CONTINUE 

7 2  IF(.NOT.LDEBUG)  00  TO  910 

73  DO  911  MC* I , 2 

74  WKITEfO,*)  MC,LSRFC<MC> 

75  NRITEC6,*)  (XIC(MC,N>,N-I,3> 

70  DO  912  NI»I,3 

7?  912  WRIT£(6,*>  NI,<VXIC(NI,NJ,MC),NJ»1 ,3) 

78  9i I  CONTINUE 

79  910  CONTINUE 

80  CM!  DETERMINATION  OF  SOURCE  BOUNDS  ON  CYLINDER 

81  CALL  TANG( DTS, VTS, BTS, XS ) 

82  IF(.NOT.LDEBUG)  GO  TO  915 

83  WRITEC6,*)  DTS 

84  WRITE(6,*> VTS< 1 ) ,VTS<2  > 

85  NRITEI6,*) (BTS( J ),J« 1,4) 

86  915  CONTINUE 

87  RETURN 

88  END 
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PURPOSE 

To  compute  variables  pertaining  to  plate-cylinder  Interactions 
which  are  constant  for  a  given  set  of  plates  and  cylinder  and  a  given 
source. 

PERTINENT  GEOMETRY 


Figure  71—  Illustration  of  plate  attached  to  cylinder 
as  detailed  in  section  1. 


Figure  72—  Illustration  of  source  rays  reflected  by  plate  HP  tangent 
to  the  cylinder  as  detailed  in  section  2. 
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Figure  73—  Illustration  of  bounds  for  cylinder  reflected,  plate 
diffracted  region  detailed  in  section  3. 


REFLECTION 


Figure  74—  Illustration  of  starting  point  path  for  plate  diffracted, 
cylinder  reflected  ray  tracing  algorithm  as  detailed  in  section  4, 
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method 


1 1  Ius^lt^UVnSFT3urey73?deSe^il1sCof£fthS1“^^ffraSte«  "elds  are 
£?Tt^ipr?o?rsub^oSt1n2  RfWPT149The4stf  5?fere"“  '  Also^efthe 

161-163  of  ReferencM^Also  9JT 


FLOW  DIAGRAM 


FLOW  OIMftAM 

1.  Oetereine  corners  end  edges  which  ere  etteched  to  the  cyl' 
Jnder. 


J,  Deteralnet'on  oF  teege  bounds  0"  cylinder 


Step  thru  pletes 

i 

Ctwwte  urgent  w«nit  end  ttngent  untt 

vectors  for  r»?|  Singly  reflected  fro* 
9>»le  MO  Urgent  to  cylinder 


J.  Oetereioetien  of  pt«wi«lhle  rt«sg*  for  cylinder 
ref  Jetted,  oJete  dtffrected  ?**« 


SYMBOL  DICTIONARY 

BCD  DIFFRACTION  LIMITS  FOR  RAY  REFLECTED  BY  THE  CYLINDER 
AND  DIFFRACTED  FROM  PLATE 

lil'CN  X,Y  COMPONENTS  OF  UNIT  VECTORS  FOR  RAYS  TANGENT  TO 
THE  CYLINDER  FROM  DIFFRACTION  POINT  OH  PLATE  EDGE 
(FOR  MOST  NEGATIVE  STARTING  POINT  ON  CYLINDER) 

BTC P  X,  Y  COMPONENTS  OF  UNIT  VECTORS  FOR  RAYS  TANGENT  TO 
THE  CYLINDER  FROM  DIFFRACTION  POINT  ON  PLATE  EDGE 
(FOR  MOST  POSITIVE  STARTING  POINT  ON  CYLINDER) 

ALSO  SEE  BTI 

UIDC  X, Y  COMPONENTS  OF  UNIT  VECTORS  FOR  RAYS  TANGENT  TO 
THE  CYLINDER  FROM  DIFFRACTION  POINT  ON  PLATE  EDGE 
(FOR  FAVORED  STARTING  POINT  ON  CYLINDER) 

BTI  X  AND  Y  COMPONENTS  OF  SOURCE  IMAGE  VECTORS  TANGENT 
TO  THE  CYLINDER 

DTCN  DOT  PRODUCT  OF  UNIT  VECTORS  OF  RAYS  TANGENT  TO  CYLINDER 

FRO).  DIFFRACTION  POINT  (FOR  MOST  NEC.  STARTING  RFFL  POINT 
ON  CYLINDER) 

UTCP  DOT  PROD UCT  OF  UNIT  VECTORS  OF  RAYS  TANGENT  TO  CYLINDER 
FROM  DIFFRACTION  POINT  (FOR  MOST  POS  STARTING  REFL  POINT 
ON  CYLINDER)  (ALSO  SEE  DTI) 

DTDC  DOT  PRODUCT  OF  UNIT  VECTORS  OF  RAYS  TANGENT  TO  CYLINDER 
FROM,  DIFFRACTION  POINT  (FOR  FAVORED  STARTING  POINT  ON 
CYLI NDER ) 

Dll  DOT  PRODUCT  OF  SOURCE  I?<SAGE  VECTORS  TANGENT  TO 
THE  CYLINDER  (SINGLE  REFLECTION  FROM  PLATE  MP) 

LCD  SET  TkUE  IF  CORNER  ME  OF  PLATE  MP  IS  ON  CYLINDER 

LDC  SET  TRUE  IF  EDGE  .ME  OF  PLATE  MP  IS  STRONG  DIFFRACTING 

PART  OF  AEDGE  (FNP<»> 

MEC  INDEX  VARIABLE  USED  TO  DETERMINE  COMMON  EDGES 

MEN  INDEX  VARIABLE  USED  TO  DETERMINE  COMMON  EDGES 

.ME A  MAXIMUM  NUMBER  OF  EDGES  ON  PLATE  MP 

POOR  PHI  COMPONENT  OF  RAY  PROPAGATION  DIRECTION  AFTER 

REFLECTION  FROM  CYLINDER  (RAY  DIFFRACTED  BY  PLATE  EDGE 
AND  THEN  REFLECTED  BY  CYLINDER) 

PH HR  BRANCH  CUT  DISPLACEMENT  ANGLE  FOR  DIFFRACTION  POINT 

ALONG  EDGE  I.F.  OF  PLATE  MP 
RC  DISTANCE  FRO.’.-  Z  AXIS  TO  PLATE  CORNER 
RE  RADIUS  OF  CYLINDER  AT  POINT  DEFINED  BY  ELL 
ANGLE  VC 

TUCR  THETA  COMPONENT  CF  RAY  PROPAGATION  DIRECTION  AFTER 

REFLECTION  FROM  CYLINDER  (RAY  DIFFRACTED  BY  PLATE  EDGE 
AND  THEN  REFLECTED  BY  CYLINDER) 

UCD  L  COMPONENT  OF  REFLECTION  POINT  LOCATION  ON  CYL. 

FOR  RAY  WHICH  IS  REFLECTED  BY  CYLINDER  AND  DIFFRACTED 
BY  EDGE  ME  OF  PLATE  MP 

UDC  Z  COMPONENT  OF  STARTING  POINT  LOCATION  ON 

CYLINDER  (FOR  RAY  TRACING  ALGORITHM)  FOR  RAY  DIFFRACTED 
BY  PLATE  EDGE  AND  THEN  REFLECTED  BY  CYLINDER 
VC  ELLIPTIC  ANGLE  DEFINING  LOCATION  OF  A  CORNER  (2-0) 

VCD  ELL.  ANGLE  DEFINING  REFLECTION  POINT  ON  CYLINDFR  (2-D) 

FOR  RAY  WHICH  IS  REFLECTED  BY  CYLINDER  AMD  DIFFRACTED 
BY  EDGE  ME  OF  PLATE  MP 

VUG  ELL  ANGLE  DEFINING  STARTING  POINT  ON  CYLINDER  (FOR 
RAY-TRACING  ALGORITHM)  FOR  RAY  DIFFRACTED 
BY  PLATE  EDCE  AMD  THEN  REFLECTED  BY  CYLINDER 

VI  X.Y.Z  COMPONENTS  OF  PROPAGATION  DIRECTION  OF  RAY 
INCIDENT  ON  CYLINDER  REFLECTION  POINT 

VII  ELL  ANGLE  DEFINING  DIRECTION  OF  THE  TWO  RAYS 

FROM  IMAGE  SOURCE  TANGENT  TO  THE  CYLINDER  (SINGLE  REFL. 

OF  SOURCE  RAY  FROM  PLATE  ME) 

XC  MODIFIED  PLATE  CORNER  LOCATION  USED  IN  DETERMINING 
CYLINDER  REFL,  PLATE  DIFFRACTION  LIMITS 
ADC  X.Y.Z  CO,MPOM:inS  OF  STARTING  DIFF.  POINT  LOCATION 

m.N  EDGE  ".I-  (FOR  RAY  TRACING  4I.P0RITFM)  FOR  RAY  DIFF. 

NY  PLATE  EDGE  AND  REFLECTED  BY  CYLINDER 

xo:>  x,y,;:  components  of  starting  reflection  point  on  cyl 
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CODE  LISTING 


1  c - 

2  SUBROUTINE  GEOMPC 

3  CM! 

4  C! ! i  THIS  SUBROUTINE  COMPUTES  ALL  THE  GEOMETRY  ASSOCIATED 
b  CM!  WITH  FIXED  PARAMETERS  FOR  PLATE-CYLINDER  INTERACTIONS 
o  CM! 

7  DIMENSION  XII(3),XIN(3),VI <3),DS(3) ,XC(3),VNC( 3) 

8  DIMENSION  X0B(3> ,XDC(3),VTCP(2),BTCP(4),VTCN<2),BTCN(4> 

V  LOGICAL  LPLA',LCYL,LDC,LCD(  I4,6),LSRFC,LSURF,LDEBUG,LTE5T 

10  LOGICAL  LI HD.LSHU, LSTD ,LSTS, LCTD,LHCT « LHIT 

.11  COMMON/PIS/PI, TPI, DPR, RPD 

1 2  COMMON/OEOMEL/A, B, ZC<2 ) , SNC(2) ,CNC (2 ) ,CTC<2 ) 

1 3  COMMON/CEOPLA/X(  !4 ,6,3 ) , V(  1 4‘,6 ,3) , VP(  1 4,6, 3)  , VN(  14,3 ) 

U  2  ,MEP( 14) ,MPX 

lb  COMMON/EDMAG/VMAGC 14,6) 

i 6  COMMON/SOR I NF/XS( 3 } , VXSC  3, 3 ) 

1*;  COMMON/IMAIHF/XI  ( 1 4,  U,3),VXI(3,3,  14) 

i  18  COMMON/IMCINF/XIC(2,3) ,VXIC(3, 3,2) 

IV  COMM ON/FARP/IM.H, HAW 

20  COMMOH/SOURSF/FACTOR 

21  COMMON/BNDFCtyBDI 14,6,2) 

22  COMMON/6NDSCL/DTS, VTS<2) ,BTS(4) 

23  COMMON/BNDICL/DTK  I4),VTI(  14,2), BTI(  14,4) 

24  COMMDN/BNDRCUVCDI  14,6), UCD(  14,6),BCD(  14,6,2) 

2b  C0MM0N/£NDDCl/VDC<!4,6),UDC<2),PDCR( 14,6,2),TDCR(14,6,2) 

26  2,DTDC( 14,6),BTDC( 1 4,6,4) ,DDC(14,6,2) 

2*i  CCMMCN/SRFACC/LSRFC(2) 

28  COMMON/SURFAC/LSURF( 14) 

2V  COMMON/LPLCY/LPLA, LCYL 

30  COMMON/LSHDT/LSHDt  14),LIHD(U,  14) 

31  COMMON/LSHDP/LSTS,LSTD( 14) 

32  C0MMQN/LDC8Y  /LDC  <14,6) 

33  COMMON/1 EST/LDEB  UG, LTEST 

3-4  COMMCH/FNANG/FNP(  14,6) 

3b  COMM ON/ 1 RNPHW/PHWR (14,6) 

36  IF(LDEBliC)  WkITE(6,90<3) 

37  VO0  FORMAT!/,'  DEBUGGING  GEOMPC  SUBROUTINE') 

38  C! !1  I.  DETERMINATION  OF  EDGES  ATTACHED  TO  CYLINDER 

3V  DO  3  MP«=  I  ,MPX 

40  MEX-MEP(MP) 

41  DO  3  ME*1,MEX 

42  3  LCD(MP,ME)=. FALSE. 

43  CHS  STEP  THRU  PLATES 

44  DO  17  MP^l ,MPX 

4b  VEX-MEP(MP) 

4o  MEC=0 

47  C!  ! !  STEP  AROUND  CORNERS  ON  PLATE  MP 

48  DO  14  ME»1 ,MEX 

4  V  RC“X (MP, ME, I )*X(  MP  ,ME,  I )  +X  (MP, ME ,2  )*X(  l'P ,  ME, 2 ) 

50  VC=UTAN2(A*X(MP,ME,2),B*X(MP,ME,  l>) 

bl  XE«=A*COS(VC) 

52  YE*B*SIN(VC> 

53  RE=XE*XE+YE*YE 

54  IF(ABS(RC-RE).GT.O.0I)  GO  TO  14 

55  IF(X(MP,ME,3).CfT.ZC(  I  )+XE*CTC(  1 )  .OR. 

5t  2X(MP,ME,3) .LT.2C(2 )+XE*CTC(2 ))  GOTO  14 

57  LCD(  MP,J.S)*.TRUE. 

58  X(MP,ME, 1 >=XE 

5v  X(MP,ME,2)«YE 

60  IF(McC.NE.O)  GO  TO  13 

o  i  mec=j.;e 

02  GO  TO  I  4 

o3  13  MEN«MEC 

64  I r (ME-MEC.OT .  1  )  ?!£!!« HEX 

6b  0!!!  IF  EDGE  ME  IS  ATTACHED  70  CYLINDER,  SET  WEDGE  ANGLE  INDICATOR 
00  CM!  TO  -1  M  FLAG 
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6  7 

F»PUPthEN)*-l. 

fee 

14 

CONTINUE 

ov 

IFtLDEBLG)  CETTE (6.*!  (LCI)<MP,KE).SE*I  .HEX) 

■/« 

17 

continue: 

7  1 

Cl  !! 

2.  DciHM.T NATION  OF  IMAGE  BOUNDS  ON  CYLINDER 

72 

C! !  I 

STEP  THRU  PLATES 

73 

DO  62  TP=I ,MPX 

7  4 

DO  00  N«t ,3 

7b 

00 

XIN(M)=X1(»J.P,MP,N) 

70 

CIS! 

CALCULATE  TANGENT  ANCLES  At®  UNIT  VECTORS 

77 

CALL  TAt  G( DTCP , VTCP, BTCP, Xlt! ) 

78 

DTI  (MP)=DTCP 

vy 

VTI  ( MP,  1  )=VTCP(  1  ) 

80 

VTI ( MP,2 )=VTCP(2 ) 

81 

DO  61  3=1,4 

82 

ol 

BTI <  MP , J ) =RTC? ( J ) 

83 

IE"( .  NOT.  LDEECG)  CO  TC  o2 

84 

WRITE (6,*)  DTI  tap) 

8b 

WRITE(6,*>  VTKMP,  D.VTI  (MP,2) 

86 

WHITE! 6 , * )  (RTI(MP,J),J=I,4) 

87 

c-2 

CONTINUE 

fcfc 

cm 

3.  DETERMINATION  OF  PEit.MISSASLE  RANGE  FCR  CYLINDER 

8V 

cm 

REFLECTED,  PLATE  DIFFRACTED  FIELD 

90 

cm 

INITIALIZE  VALUES 

V  1 

DO  90  M  P=  1  ,MPX 

92 

MEX=MEP( MP ) 

93 

DO  9>0  ME=I  ,MEX 

94 

VCD(MP,.ME)=H. 

9b 

BCIHMP.AE,  1  )=0. 

90 

90 

BCD  ( MP ,  J.  E ,  2 )  =0  . 

97 

C!  !! 

STEP  THRU  PLATES 

96 

DO  92  MR » I  ,.VPX 

99 

cm 

IS  PLATE  MP  TOTALLY  SHADOWED  FROM  SOURCE? 

too 

IF(LSHIHI'.P))  GO  TO  92 

101 

MEX=MEP( ) 

102 

cm 

STEP  AROUND  EDGES  ON  PLATE  MP 

103 

DO  91  ME=I ,MEX 

104 

cm 

IF  EDGE  ME  IS  ON  CYLINDER,  DEFINE  NEW  CORNER 

10b 

cm 

SLIGHTLY  OFF  CYLINDER 

106 

IF(LCD(MP,ME))  GO  TO  94 

107 

DO  93  N= 1 , 3 

108 

93 

XC  ( N )  »X  ( MP ,  ME ,  t: ) 

109 

GO  TO  97 

no 

94 

VCR=BTAN2  (  X ( MP  ,ME, 2 ) , X ( MP, ME ,  1} ) 

14  1 

SNX«B*CC5( VCR) 

112 

SNY=A*SI  N(  VCR) 

113 

J=0 

114 

9b 

J=J+I 

lib 

MJ=ME+I-J 

116 

IF(MJ.EG.O)  MJxMEX 

117 

VCV=S.NX*V(MP  ,MJ ,  1 )  +StlY*V  (MP,  MJ  ,2  ) 

118 

IF(AUS(VCV).LT.1.E-5>  GO  TO  95 

119 

SVCV=SIGN( .01 ,VCV)  ' 

120 

DO  90  N= 1 , 3 

121 

96 

XC(M  )  =  X( MP  .ME. ID  +5 VCV*V C1P, MJ ,  N ) 

122 

97 

CONTINUE 

123 

cm 

USE  RAY  TRACING  TECHNIQUES  TO  DETERMINE  REFL. 

124 

C!  !  1 

POINT  AND  REFL.  RAY  DIRECTION  OF  SOURCE  RAY  REFL. 

12b 

cm 

FROM  CYLINDER  AND  INCIDENT  Oil  CORNER  ME  OF  PLATE  MP 

120 

cm 

(SATISFY  LAW  OF  REFLECTION) 

127 

CALL  RFI)FIN(VR,UR,  VI  ,XC) 

126 

VCD(MP,ME)=VR 

12V 

UCI)(MP,AE)=UR 

130 

DO  91  J= 1 , 2 

131 

MJ=ME+ l-J 

132 

IF (MJ.FC.0)  MJaMKX 

L 

i. 


r 

L 


'1 


v 


{ • 


l 


1 


OC 

UJO 


li 


i 

I 

I 

i 

A 

x 

bit* 

? 

} 


133  00  Vi  N*  1*3 

134  C! ! !  TAKE  001  PRODUCT  OF  RAY  INCIDENT  ON  CORNER  AND 
13b  Cl  II  EDGE  UNIT  VECTOR  TO  OBTAIN  DIFFRACTION  LIMIT 
130  VI  BCD(MP,HJ,J)*BCD<MP,MJ,J)+V0'P,MJ,.M)*VI(N; 

137  IFI.NOT.LDEBUGI  00  TO  92 

138  WRITEI6,*/  (VCD(MP,M£) , ME=  I ,  MEX) 

13V  WHITEC6,*)  (UCD(HPtME),ME»l,MEX) 

14k)  WKITE(6,*>  (BCDIMP.ME, l).BCD<MP,ME,2),ME*l,MEX) 

14!  V2  CONTINUE 

142  Clll  DETERMINATION  OF  BRANCH  CUT  DISPLACEMENT  ANGLE  FOR 
!43  C! i !  REF-DIF  AND  DIF-REF  TERMS 
1 4-4  Cl ! I  STEP  THRU  PLATES 
14b  DO  103  MP-I.MPX 

140  MEX**EP(MP) 

14?  Cl *1  STEP  THRU  EDGES 
148  DO  101  ME*! ,MEX 

14V  XPHW=X(f.:.  ,ME,1  >+0.5*VMAG(,MP,ME)*V(MP,ME,t> 

Ib0  YPHW«X(MP,ME.2)+0.5*VMAG(MP,ME)*V(MP,.'.:E,2) 

lb  I  PH WR ( MP , ME ) =ET AN2 ( YPHW ,  X  PHR ) 

Ib2  101  CONTINUE 

153  IF(.NOT.LDFBUG)  GO  TO  103 

154  NRITE(6,*>  (PHWR(MP,ME) ,ME=I ,MEX) 

155  103  CONTINUE 

IbO  C! 1 1  4.  DETERMINATION  OF  PARAMETERS  FOR  RAY  DIFFRACTED 

157  CJH  5Y  PLATE  EDGE  AND  THEN  REFLECTED  OFF  OF  CYLINDER 

158  DO  111  MP* 1 ,MPX 

15V  MEX-MEP(MP) 

160  DO  111  ME* 1, HEX 

161  ill  LDC(MP,ME)=.FALSE. 

lo2  C!!!  STEP  THRU  PLATES 
163  DO  114  KP*I,MPX 

1 0*»  IF(LSHDCMP))  GO  TO  1 14 

lob  MEX*MEP<  MP ) 

106  OS!!  STEP  THRU  EDGES 

107  DO  113  ME* I ,MEX 

108  IF(FNP(MP,ME).LT.0.)  GO  TO  112 

lov  LD0(MP,ME)*.1RUE . 

110  .112  CONTINUE 

171  113  CONTINUE 

1/2  IF(LDEBUG)  WRITEIO,*)  <LDC(MP,VE),ME-I ,MEX> 

173  .114  CONTINUE 

174  UDC(I)*ZC(U+A*CTC(1> 

175  UDC ( 2 ) *ZC ( 2  >  +A*CTC ( 2  > 

17o  IF(LDEBUG)  YiRITEIO,*)  UDC(  1>',UDC<2  > 

177  CIS!  STEP  THRU  PLATES 

178  DO  118  MP*I,MPX 

13 V  MEX=MEP(MP) 

180  Cttt  STEP  THRU  CORNERS 

181  DO  118  ME*  1  ,  MEX 

182  IF ( . NOT. LDC C MP ,ME ) )  GOTO  118 

183  MJ»ME+ I 

184  IF(MJ.GT.MEX)  MJ=1 

185  VUCA=BTAN2(A*X(MP,M.E,2),B*X(MP,ME,  I)) 

180  VDCB*BTAN2 ( A*X (MP,  MJ  ,2 )  t B*X ( MP,  ?/J,  I)) 

187  VDC(MP,ME)*. 5*( VDCA+VDCB ) 

Ib8  C!U  CALCULATE  (STARTINCp  REFLECTION  POINT  AT  MOST 
18V  C!!!  POSITIVE  END  OF  CYLINDER 
IV0  XOB( I )=A*COS( VDC (MP*.VE ) ) 

1VI  X0BC2 ) *b*SIN ( VDC (MP, ME ) ) 

IV2  X0B(3)«liDC(  I  ) 

1 V3  VNX*B*COS(VDC(MP,ME) ) 

IV4  VNY*A*SIN( VDC(MP,ME) ) 

IVb  C!l!  COMPUTE  STARTING  DIFFRACTION  POINT  CORRESPONDING 
I  Vo  cm  TO  REFLECTION  POINT  AT  MOST  POS.  END  OF  CYL. 

1 V 7  CALL  DPTNF  W  ( XS ,  X  OB ,  X  DC  ,.M  E,  M  P ) 

IVB  CM!  CALCULATE  CORRESPONDING  REFLECTED  RAY  PROPAGATION 
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IVV  C !  ! !  DIRECTION  FOR  ABOVE  DIFFRACTION  AMD  RIFL.  POINTS 
200  VI  ( I  )»XOB(  I  )-XOC(1) 

20  1  VI  (2  )*XC.B(2)-XDC(2  ) 

202  VI (3)*X0B(3)-XDC(3) 

203  ON IP“VNX*V I ( 1 ) +VNY*V I <  2) 

204  CNIN=VNX*V  I (2 )-VNY*V I(  1 ) 

20b  PDCH(MP,>/E,1  >=BTAN2(  CCNIN*VliX-CNIP*VNY),-CCNIP*VNX+CNIM*VNY)  > 

206  CPDC*COS(PDCR(MP,ME, t ) ) 

20"/  SPDC*SIN(PDCK(MP„‘.;E,!)> 

20 8  TDCR(MP,ME,t  )=BTAfi2(-CNIP,(VIi:<*CPDC+VIIY*SPDC)*VI<35) 

20V  Cl! I  CALCULATE  BOUND  ON  REFLECTION  ANGLE 
?10  UOC(MP,ME,  I  )=C0S(TDCI!(MP,.15,  I ) ) 

2.11  C!  I!  REPEAT  CALCULATIONS  FOR  MOST  NEGATIVE  ENDCAP 
212  CALL  TAhGt  DTCP,VTOP, BTCP.XDC ) 

210  X0B(3)=UDC<2) 

214  CALL  DPI NFW( XS,XOB,XDC,ME,MP) 

21b  VI(l)«XOfc(l)-XlIC(l) 

21o  VI (2 )=XCB(2)-X0C(2) 

21'/  VI  ( 3 ) = XCB (  3 ) -XDC  C 3 > 

2  IB  CNIP=VN>.*VI(  1  )+VNY*VI(2) 

21V  CNIN=VMX*VI(2)-VNY*VI( I ) 

220  PDCH(MP,ME,2)=ETA!!2<  CCNIN*VNX-CNIP*VNY),-(CHIP*VNX4CNIii*VMY) ) 

221  CPDC  *COS  ( PDCR ( MP , ME  *  2 ) ) 

222  SPUC=SIN(PDCR(MP,ME,2> ) 

223  TDCR  <  MP , ME  ,2  >  =BT AN2  <  -CM I  P,  ( Vf!X*CPDC+ VN  Y*SPDC  )* V I  ( 3  ) ) 

224  DDC ( MP . ME , 2 ) *COS  <  TDCR  <  MP , ME , 2 ) > 

22b  CALL  TAMG<DTCN,VTCN,BTCM,XDC) 

226  CM!  DECIDE  WHICH  STARTING  LOCATION  TO  USE  BETWEEN  MOST 

227  CM!  NEGATIVE  AND  HOST  POS.  END  CAP  VALUES 

22H  IF(DTCN.GT.DICP)  GO  TO  116 

22V  DTDC (HP, M  E ) =DTCP 

220  DO  I  lb  J=l  ,4 

231  lib  BTDC ( MP , ME , J  >= BTCP ( J ) 

232  GO  TO  1 IV 

232  116  DTDC  ( M  P ,  M  E )  *  DTCM 

234  DO  1 17  J=1 ,4 

226  117  BTDCIMP,  AE,J  )=RTCN(J) 

226  I IV  CONTINUE 

237  Ir(.MOT.LDEbUG)  GO  TO  118 

238  r'IRITE<o,*)  V[)C(MP,ME),  (PDCR(MP,ME,J)  .TDCRCMP.J'E.J)  ,J»I  ,2) 

22V  2,DTDC(HP,f.«E) 

24  0  WRITE  (o,  *)  (  BTDC  (.MP,  ME,  J ) ,  J*  1 , 4) ,( DDC(  HP  .ME,  J )  ,J=  1 ,2 ) 

241  118  CONTINUE 

242  RETURN 

243  END 
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IMAGE 


PURPOSE 

To  determine  location  of  source  image  for  reflection  of  source 
ray  off  of  plate  HP.  (double  reflection  Image  locations  may  be  obtained 
by  calling  IMAGE  twice;  once  for  the  source  ray  reflection  from  plate 
MP  and  once  for  the  reflection  of  the  ray  from  the  Image  location  off 
of  the  second  plate.) 

PERTINENT  GEOMETRY 


Figure  75—  Geometry  for  determining  source  Image  location. 
VN  =  plate  unit  normal  =  x  VN(MP,1)  +  y  VN(MP,2)  +  l  VN(MP,3) 
ITS  =  x  XIS(l)  +  y  XIS{2)  +  z  XIS(3) 

J  =  x  X(MP,1,1)  +  y  X(MP,1,2)  +  z  X(MP,1,3) 

METHOD 

The  source  Image  location  is  given  by 
XII=XlS  +  2ANV&»x  1(11(1)  +  y  XII(2)  +  z  XII(3) 
where 

.  AN I  -  (I  -  XlS).VN 

and  5(,  7!S,  and  w  are  as  shown  in  Figure  75. 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 

AN  DOT  PRODUCT  OH  VECTOR  FROM  SOURCE  TO  EDGE  ONE  OF 
PLATE  MP  AND  THE  PLATE  UNIT  NORMAL 
MP  PLAiE  INTO  AHICH  SOURCE  IS  IMAGED 
XII  X.Y.Z  COMPONENTS  OF  IMAGE  LOCATION  IN  RCS 
XIS  X.Y.Z  COMPONENTS  OF  SOURCE  LXATION  IN  RCS 


CODE  LISTING 


1  u - 

2  SUBROUTINE  IMAGE (XII .XIS.AH.MP) 

0  C  S ! ! 

ac!!I  DETERMINE  IMAGE  POSITION  FOR  SOURCE  XIS  IN  PLATE  #MP. 
S  C! ! !  AM  INDICATES  WHICH  SIDE  OF  PLATE  SOURCE  IS  LOCATED 
0  C! ! I  RELATIVE  TO  PLATE  NORMAL. 

7  c!!l 

fc  DIMENSION  XI I ( 3) ,XIS(3 ) 

v  CO  MMOMA-EOPL A/ X( I4,6,3),V( 14 ,0,3 ) , VP( I  4,6, 3) , VN( 14,3) 

1C  2 ,MEP( 1 4 ) ,MPX 

11  AM *0. 

13  DO  10  N-1,3 

U  1H  AM® AH* ( X (MP, 1 , H)-X I  SIN  > ) *V  N( MP,M) 

14  DO  20  N-1,3 

15  20  Xtt<ri>«XIS<N)*2.*AN*VKUtP,N> 

lo  RETURN 

1 7  END 
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IMCDIR 


PURPOSE 

To  determine  the  source  image  axes  directions  for  a  source 
after  reflection  off  a  given  end  cap. 

PERTINENT  GEOMETRY 


Figure  76a—  Illustration  of  imaging  of  source  axes 
for  magnetic  source. 

J  =  x  VSOURC(l.l)  +  9  VS0URC(1,2)  +  ?  VS0URC(1,3) 
x  .  =  x  VIMAG(l.l)  +  y  VIHAG(l,2)  +  z  VIMAG(1,3) 

p  Is- 

n  *  unit  normal  of  endcap 
1  =  unit  vector  tangent  to  endcap 


Figure  76b— Imaging  of  source  axes  for  electric  source. 


z 


A 

Figure  77— Endcap  coordinate  system. 

AAA 

n  =  VNC 

.  A 

*  x  VNC(l)  +  y  VNC{2)  +  z  VNC(3), 

A  A  A 

VNC(2)=0 

t  =  VC 

b  =  y 

=  x  VC(1)  +  y  VC (2)  +  z  VC(3)  , 

VC(2)=0 

METHOD 


The  source  image  axes  unit  vectors  for  an  electric  source 
imaged  in  an  end  cap  are  given  by 


a 

Xpi 

A  A  A 

3  (-x  *n)n  ■» 
P 

A  A  ^  AAA 

■  (xp*t)t+  (xp‘b)b 

a 

Jpt 

A 

A  A  A 

=  (zp*n)n  + 

A  A 

AAA  AAA 

(-zp*t)t  +  (-zp»b)b 

ypi 

=  Zpi  X  Xpi 

For 

a  magnetic  source,  the  axes  are  given  by 

A 

“pi 

A  A  A 

=  (xp*n)n  + 

AAA  AAA 

(-Xp.t)t  +  (-Xp-b)b 
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V 


2pi  =  ♦  (y m  *  (zp.6)S 


Vp1**  xPi 

where  xp,  yp,  z  are  unit  vectors  of  the  source  coordinate  systan 


axes  and  xpi,  yp.t  y  are  the  unit  vectors  of  the  source  Image  co¬ 
ordinate  system  for  the  end  cap. 


FLOW  DIAGRAM 


INCOIH  (VINAG.VSOURC.VNC) 

INPUT  VARIABLES 

VSGURC  x,  y,  and  i  components  defining  the 
source  coordinate  system  axes  In 

RCS  components 

vfIC  x,  y,  and  a  components  of  the 
end  cap  unit  normal 

OUTPUT  VARIABLE 

V1HAG  x,  y,  and  a  components  defining  the 
source  image  coordinate  system  axes 
in  RCS  components 

Step  through  x  and  i  axes 

K-l  corresponds  to  IP  axis  transformation 
K*3  corresponds  to  EP  axis  transformation 

Transform  axis  to  end  cap 
coordinate  system 

| 

Calculate  image  axis  in 
end  cop  coordinate  system 

Transform  Image  axis  Oath 
to  reference  coordinate 

SysUm  components 

| 

Tax*  cross  product 
l«es  to  obtain 

of  «  and  }  image 
y  image  axis 

L— ill! 

trn  I 

i 


A 

> 


<r* 

i 

f . 


#• 

i 
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SYMBOL  DICTIONARY 


it  INDEX  VARIABLE 

L  INDEX  VARIABLE 

LL  INDEX  VARIABLE 

P6  DOT  PRODUCT  OF  END  CAP  UNIT  BI NORMAL  AM)  UNIT  VECTOR  OF  SOURCE 
AXIS  BEING  IMAGED 

PN  DOT  PRODUCT  OF  END  CAP  UNIT  NORMAL  AND  UNIT  VECTOR  OF  SOURCE  AXIS 
BEING  1 RACED 

PT  OOT  PRODUCT  OF  END  CAP  UNIT  TANGENT  AND  UNIT  VECTOR  OF  SOURCE 
AXIS  BEING  IMAGED 

VC  X,  Y.Z  COMPONENTS  OF  UNIT  VECTOR  TANGENT 

TO  ENO  CAP  UN  X-2  PUNE) 

VINAG  ARRAY  OF  COMPONENTS  DEFINING  THE  SOURCE  IMAGE  COORDINATE 
SYSTEM  AXES  IN  «X,Y,Z)  REF  COORD  SYSTEM  COMPONENTS 
VNC  X.Y,  AND  Z  COMPONENTS  OF  END  CAP  UNIT  NORMAL 
VSGUNC  ARRAY  OF  COMPONENTS  DEFINING  THE  SOURCE  COORDINATE  SYSTEM 
_  AXES  IN  IX.Y.Z)  REFERENCE  COORD  SYS.  COMPONENTS 

vx  1 

VY  }  X.Y,  AND  Z  COMPONENTS  OF  SOURCE  AXIS  BEING  IMAGED 


CODE  LISTING 

2  SUBROUTINE  IHCDIRtVIUAG.VSCURC.VNC) 

2  C!  !! 

4  (.!!!  EeienNINES  DIRECTION  OF  IMaGE  SOURCE  COORDINATE 
b  C!!!  SYSTEM  FOR  THE  EH)  CAPS. 

o  cm 

'•  DIMENSION  vl«AG<3.3>lVS0U«CO..3).VNCU).VCt3) 

b  COitt»Q«/f*«P/IM,H,HAM 

V  VCH  J-VNCU) 

IW  VCt4'J»is. 

>11  VCt3)»-Vt.«Ctl) 

12  CU!  IMAGE  X  A.V&  2  DIPOLE  AXES 

13  DO  15  LL»I .2 

U  L-LL-I 

lb  K«l*2*L 

lo  cm  TRANSFORM  AXIS  to  end  cap  coordinate  system 

17  VX»V50«fceU,l) 

IB  vv»vSOUNCtX.2) 

IV  VZ«VS0UNC(K.3> 

2i!  Pn«vX*VKt  t )  ♦  vv*vsct 2 ) ♦  v2«v«Ct  3 i 

2 1  PT*V X*VO 1 1 )*\ Y*VC< 2 ) *VZ*V C 1 3 1 

22  PQ*»¥Y 

23  U  M  FI  ML  i*AQ8:  AXIS 

2*  IFIt  IM*U.E0.I  I  00  TO  l«? 

2b  PN*»Pf! 

20  GO  TO  20 

27  us 

26  PT«-PT 

2v  io  COM 

M  cm  tHAH»CM*  image  AXIS  BACK  TO  REFERENCE  COG*i>!«ATf  SYSTEM 

31  VIMAGtK. I ?«PG*VKCt I l«PT*VCt 1 1 

32  V  t  HAtlt  S ,  2 )  •PK«vkc 1 2 )  *PT* VC f «  )»PU 

33  VI  MAG  t  K .  ;■  i  »p*  •  vkc  t  *  >  *PT*  VC  1 3 ) 

i*  5b  CONTSKUfe 

3s  cm  mxs  cfeois  e&oixro'  nr  i  ahd  2  image  aaes  to 

3o  US*  OBTAIN  >  !M  ;  AXIS 

37  VtMAOfi?.  l;*V|Jt&St3.?>«YI]UGt  ?.3)-¥|»J«tS,3)*i'SMA$t 

3»  Vi»ASt2.2S«V!M*6«  J,J)*¥t**ACl  I,  U*vtMAG(A,  !  l.j) 

3v  V I  MAGI  2, 3l  •VJMACl  2.  I  |4VS  IfcaO'i  1 . 2 )  -VJMAfiC-  .2  )«Vi  MAGI  s .  I ) 

40  RcTL'itN 

END 
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IMOIR 


PURPOSE 

To  determine  the  image  source  axes  directions  for  a  source  (or 
source  image)  after  reflection  off  of  a  given  plate. 

PERTINENT  GEOMETRY 


A 

n 


Figure  ?8a— Imaging  of  source  coordinate  system  for  electric  source 
(shown  in  two  dimensions  for  simplicity). 
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Figure  78b— Imaging  of  source  coordinate  system  for  magnetic  source 
(shown  in  two  dimensions  for  simplicity) 

The  current  flows  in  the  it  direction. 

n  a  plate  unit  normal  3  xVf(NP,l)  ♦  y  VN(NP,2)  ♦  £  VN(MP,3) 

t  =  unit  vector  tangent  to  plate  a  x  V(NP,1,1)  ♦  y  V(NP,1,2)  ♦  z  V(rc\l,3) 

b  3  n  x  t  3  i  VP(HP.U)  +  y  VP(HP.1,2)  ♦  i  VP(HP,1,3) 

A  A  A 

(unit  v^ftors  t  and  b  arbitrarily  chosen  to  be  edge  vector  V  and  bi- 
noraal  VP  of  edge  #1  on  the  plate). 

METHOD 

The  source  image  axes  unit  vectors  for  an  electric  source  are 
given  by 

A,  A  A  A  4  A  A  ‘  V  A  A 

x.  -  (*•*  *n)n  *  (x  »t)t+  (x  *b)b 
P»  P  P  P 

A  A  A  A  A  A  A  A  At 

2pi a  *v°)n  *  *  {~vb*b 

*  “pr 
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FLOW 


;tic  source  the  axes  are  given  by 

/•  A  A  ^  A  A  AAA 

'xp*n)n  +  (-xp*t)t  +  (-Xp*b)b 

AA  AAA  AAA 

(-zp*n)n  +  (zp*t)t  -s-  {zp*b)b 

sPi  x  v 

W  A 

t  .  z  are  the  unit  vectors  of  the  source  coordinate  system 
P  *P 

. ,  y  .'t..  are  the  unit  vectors  of  the  source  image  coor» 
n*  •'pi*  pi 
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SYMBOL  DICTIONARY 


L 

HP 

PB 

PN 

PT 

VIMAG 

VSOUKC 


K»l  CORRESPONDS  TO  XP  AXIS  TRANSFORMATION, 

K*3  CORRESPONDS  TO  2P  AXIS  TRANSFORMATION 

incremental  variable 

PLA1E  OF  REFLECTION 

COMPONENT  OF  AXIS  IN  PLATE  PLANE  NORMAL  TO  EDGE 
COMPONENT  OF  AXIS  NORMAL  TO  PLATE 
COMPONENT  OF  AXIS  PARALLEL  TO  PLATE  EDGE 
X,Y ,2  COMPONENTS  DEFINING  UNIT  VECTORS  OF  THE 
IMAGE  SOURCE  COORDINATE  SYSTEM  AXES  IN  RCS 
X.Y.Z  COMPONENTS  DEFINING  UNIT  VECTORS  OF  THE 
cruiLrf'c  /'fYionJ  SYSTEM  AXES  IN  3CS 


VY  X, Y,  AND  2  COMPONENTS  OF  AXIS  UNDER 
VZ  \  TRANSFORMATION  IN  RCS 


CODE  LISTING 


1  c - 

2  SUBROUTINE  IMDIRCVI.MAG.VSOURC,  MP) 

S  CM! 

4  CM!  DETERMINES  DIRECTION  OF  IMAGE  SOURCE  COORDINATE 

5  CM!  SYSTEM  FOR  PLATE  #MP. 

£  DIMENSION  VIMAGC3.3) ,VSOURC!3,5) 

7  CO  KMON/FAR  P/ 1 X ,  .4 ,  HAW 

«  COM/.I ON/GOOPL A/X (  14, 6, 3), VC  14, 6,3), VP (I  4, 6, 3)  ,VN<  14,3) 

V  2,«EP( !4),MPX 

ID  CM!  IMAGE  X  AND  2  DIPOLE  AXES 

11  DO  15  LL=I ,2 

12  L=LL-I 

15  K=I+2*L 

U  CM!  TRANSFORM  AXIS  TO  PLATE  COORDINATE  SYSTEM 
15  VX=VSOURC(K,D 

!  o  VY'»VSOURC(K,2) 

17  VZ=VSOURCCK,3> 

lb  PN=VX*VN(MP,  l)+VY*VN(MP,2)+VZ*VN’(MP,3) 

1  Y  PT=VX*V(MP,I ,1  )+VY*V(MP,  i,2)+VZ*V(MP,l  ,3) 

20  °3=VX*VP(MP,  I,  I  )+VY*VP(MP,  1,2)+VZ*VP(/.'P,I,3) 

2  1  C!M  FIND  IMAGE  AXIS 

22  IF  (( IM+L).  EO.  I  )  GO  TO  10 

25  PN=>-PN 

24  GO  TO  20 

25  10  P(3=-PB 

2o  PT=-PT 

27  20  CONTINUE 

2b  0!!!  TRANSFORM  IMAGE  AXIS  BACK  TO  REFERENCE  COORDINATE  SYSTEM 
2  V  DO  15  11*1,3 

of.  15  VIMAG(K,N)=PN*VN(MP,N)+PT*V(MP, I ,N)+PR+VP(MP, I ,N) 

31  C! ! i  TAKE  CROSS  PRODUCT  OF  Z  AND  X  AXES  TO  OBTAIN  Y  AXIS 
52  VIMAGC2, 1 )=VIMAG(3,2)*VIMAG( l,3)-VIMA0(3,3)*VIMAG( I ,2) 

35  V I MAG ( 2 , 2 ) *V I M  AG ( 3 , 3 )*VI MAGC I , I )-VIMAG(3, 1 )*VIMAG( 1 ,3) 

54  VIMAG(2,3)*VIHAG(3,I  )*VI.MAO(  1 , 2 )~V I.M AC(3,2 >*VI MAGC  I ,  I ) 

55  RETURN 

5o  END 
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INCFLD 


PURPOSE 

To  calculate  the  far-zone  electric  field  transmitted  by  the 
source  in  a  given  direction  with  phase  referred  to  the  reference 
coordinate  system  origin. 

PERTINENT  GEOMETRY 


2 


Figure  79--Geometry  for  source  radiated  field. 

IS  =  source  location  =  x  XS(1)  +  y  XS(2)  +  z  XS(3) 

6  =  propagation  direction  unit  vector  =  x  0(1)  +  y  0(2)  +  2  0(3 ) 

METHOD 

The  direct  field  from  the  source  incident  upon  the  far  zone 

ikf)‘15 

observation  point  is  found  by  adding  the  far  field  phase  factor  eJ 
to  the  source  pattern  factor.  The  exi stance  of  the  field  is  first 
tested  by  checking  if  the  ray  from  the  source  to  the  observer  is 
shadowed  by  a  plate  or  cylind’“\  If  it  is  shadowed  the  field  is 
set  to  zero.  If  it  is  not  shadowed  the  field  is  given  by 
i  p'jkR 

rV.e,*)  =  wIT)(eth§+eph$)  . 

e"jkR 

The  factor  — B —  and  source  weight  (W_)  are  added  elsewhere  in  the 
code.  R  m 
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FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


D  X.Y.Z  COMPONENTS  OF  RAY  PROPAGATION  DIRECTION 

IN  RCS 

EPH  E-PHI  COMPONENT  OF  SOURCE  FIELD 
ETH  E-THETA  COMPONENT  OF  SOURCE  FIELD 
LHIT  SET  TRUE  IF  RAY  HITS  PUTS  OR  CYLINDER 
PH  COMPLEX  PHASE  CONSTANT  (USED  TO  REFER  PHASE  TO 
RCS  ORIGIN) 

PHSR  PHI  COMPONENT  OF  PROPAGATION  DIRECTION  IN  RCS 
THSk  THETA  COMPONENT  OF  PROPAGATION  DIRECTION  IN  RCS 


CODE  LISTING 


2  '  SUBROUTINE  I NCFLD( ETH, EPH, LSOR ) 

3  C 1  1 ! 

4  oil!  COMPUTES  THE  DIRECT  FIELD  FROM  THE  SOURCE  WITH  PHASE 
t>  Cl ! !  REFERRED  TO  THE  ORIGIN. 

6  C 1  " 

7  “  COMPLEX  ETH, EPH, PH, CJ, CP I 4, EX, EY ,EZ 

8  LOGICAL  LSOR, LHIT 

V  COMMON/SORINF/XS (3 ) , VXS( 3, 3) 

I  0  COMM ON/PI S/PI ,TPI , DPR, RPD 

•1 1  COMMON/DI  R/D(3 ) ,  THSR  ,PHSR,  SPS.CPS,  STHS.CTHS 

12  COMM  ON /COM  P/CJ  ,C  P 1 4 

I  3  COMMON /THP HU  V/ DT ( 3 ) , DP ( 2  > 

14  IF(LSOR)GO  TO  1 

lb  CJ!!  DOES  RAY  HIT  A  CYLINDER? 

16  CALL  CYLINTUS, D, PHSR, DHIT, LHIT,  .FALSE.) 

17  .  IF (LHIT)  GO  TO  12 

18  C! !!  DOES  RAY  HIT  A  PLATE? 

IV  CALL  FLAINT(XS,D, DHIT, 0, LHIT) 

20  IF (LHIT)  GO  TO  12 

21  C!!!  IF  RAY  DOES  NOT  HIT  ANYTHING,  COMPUTE  SOURCE  FIELD 

22  C!  !  1  PATTERN  FACTOR 

23  1  CALL  SOURCE(ETH, EPH, EX, EY.EZ, THSR, PHSR, VXS) 

24  cl l!  COMPUTE  PHASE  FACTOR 

2b  PH=CHXP(CJ*TPI*( XS( I )*D< I ) +XS( 2)*D(2 )+XS(3 )*D( 3) ) ) 

26  C!  !  i  COMPUTE  THETA  AND  PHI  COMPONENTS  OF  RADIATED 

27  CIS!  FIELD  IN  RCS 

28  ETH=PH*ETH 

2V  EPH=PH*EPH 

30  RETURN 

31  12  £TH=(0.,0. ) 

32  EPH=(0. ,0. ) 

3o  RETURN 

34  END 
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NANDB 


PURPOSE 

To  calculate  the  unit  vectors  for  rays  normal  and  tangent  to 
the  elliptical  cylinder  at  a  given  point  x£  (in  x-y  plane)  defined 
by  elliptic  angle  VR. 

PERTINENT  GEOMETRY 


y 


Figure  80— Illustration  of  unit  vectors  tangent  and 
normal  to  the  cylinder. 

UT  =  x  UT(1)  +  y  UT{2) 

UN  =  x  UN ( 1 )  +  y  UN(2) 

7C  =  x  A  cos(VR)  +  y  B  sin(VR) 
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METHOD 


For  the  point  on  the  cylinder  defined  by  the  elliptic  angle 
VR,  the  unit  normal  vector  is  given  as 

UN  =  x  B  cos(VR)  +  9  A  SIN(VR) 

J  B2  cos2(VR)  +  A2  sin2(VR) 
and  the  unit  tangent  vector  is  given  by 

UT  =  -x  A  sin(VR)  +  y  B  cos(VR) 

J B2  cos2(VR)  +  A2  sin2(VR) 
as  shown  in  Figure  80. 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


UN  X  AND  Y  COMPONENTS  OF  UNIT  VECTOR  NORMAL  TO  CYLINDER  IN  RC5 

UT  X  AND  Y  COMPONENTS  OF  UNIT  VECTOR  TANGENT  TO  CYLINDER  IN  RCS 

VR  ELL  ANGLE  IN  ERCS  DEFINING  THE  POINT  ON  CYLINDER  FOR  WHICH 
NORMAL  AND  TANGENT  UNIT  VECTORS  ARE  TO  BE  CALCULATED 
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e  oc  -j  o  vrtwG>K> 


CODE  LISTING 


SUBROUTINE  NANDBIUN, UT*VR) 

cm 

C! ! *  COMPUTES  NORMAL  AND  TANGENT  VECTOR  AT  ANGLE  VR  ON  THE 
CSS!  ELLIPTIC  CYLINDER. 

Cl  !! 

DIMENSION  UN  <  2  ) ,  UT  ( 2  ) 

COMMON/GEOMEL/A, B.ZCI2 ) , SNC( 2) ,CNC(2 ) .CICS2 ) 

DN-SQRT ( A* A* SI N  <  VR ) ★ S I N ( VR ) + B* B*COS  <  VR ) *COS  <  VR ) ) 
UN(l)-B*COS(VR!/DN 

11  UN (2 )«A*SI N( VR )/DN 

12  UT(1>*-UN<2> 

13  UT(2)-UN<I) 

14  RETURN 

15  END 


OUTPUT 


PURPOSE 

To  output  various  representations  of  the  computed  fields  on  the 
line  printer. 

METHOD 

This  subroutine  outputs  various  representations  of  the  fields 
on  the  line  printer  for  a  convenient  analysis  of  the  data  calculated 
for  a  given  pattern  computation.  Tht  fields  are  represented  in  com¬ 
plex  form,  magnitude  and  phase,  normalized  and  unnormalized,  and  in 
decibels.  If  the  far  field  range  is  specified  the  fields  are  output 
in  volts/meter.  If  no  range  is  specified  the  fields  are  given  in 
volts/unit.  If  the  power  radiated  is  specified  the  directive  gain 
is  given.  If  it  is  not  specified  the  radiation  intensity  is  output 
instead.  Also,  the  major  and  minor  components  of  the  total  fields 
are  given,  as  well  as  the  axial  ratio  and  tilt  angle  of  the  polari¬ 
zation  ellipse.  Complete  details  of  the  output  presentation  are  given 
in  the  User's  Manual [8]. 


FLOW  DIAGRAM 


v 

a  s 
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I 


SYMBOL  DICTIONARY 

AXRAT  AXIAL  PATIO  OF  POLARIZATION  ELLIPSE 
ED1F2  COMPUTATIONAL  VARIABLE 
EMAJ2  MAJOR  AXIS  RADIATION  INTENSITY  *2*ZO 
EM1N2  MINOR  AXIS  RADIATION  INTENSITY  *2*ZO 
EPHA  PHASE  OF  EPHI 

EPHOb  E-PHI  DIRECTIVE  GAIN  OR  RADIATION  INTENSITY 

EPHUbN  NORMALIZED  E-PHI  GAIN  OR  INTENSITY 

EPHI  COMPLEX  ARRAY  CONTAINING  THE  E-PHI  FIELD 

EPHM  MAGNITUDE  OF  EPHI 

EPHMN  NORMALIZED  E-PHI  MAGNITUDE 

EPHMR  MAGNITUDE  OF  EPHM  WITH  RANGE  FACTOR 

EPHMX  MAXIMUM  MAGNITUDE  OF  EPHI 

EPhPS  PHASE  OF  EPHR 

EPHR  EPHI  WITH  RANGE  FACTOR  INCLUDED 

ETD'IMX  MAXIMUM  MAGNITUDE  OF  THE  RADIATION  INTENSITY*2*ZO 

ETHA  PHASE  OF  ETHETA 

ETHDB  E-THETA  DIRECTIVE  GAIN  OR  RADIATION  INTENSITY 

ETHDbN  THETA  NORMALIZED  GAIN  OR  INTENSITY 

ETHETA  COMPLEX  ARRAY  CONTAINING  THE  E-THETA  FIELD 

ETHM  MAGNITUDE  OF  ETHETA 

EThM'l  NORMALIZED  E-THETA  MAGNITUDE 

ETHMR  MAGNITUDE  OF  ETHM  WITH  RANGE  FACTOR 

ETHM A  MAXIMUM  MAGNITUDE  OF  ETHETA 

EIHPS  PHASE  OF  EThR 

ETHh  ETHETA  WITH  RANGE  FACTOR 

ETC! 2  RADIATION  INTENSITY  TIMES  2*ZO 

ETON  NORMALIZED  GAIN  OR  INTENSITY 

FACP  GAIN  OR  INTENSITY  FACTOR 

FACPUE  FACP  IN  Db 

FRANC  RANGE  FACTOR 

GLURbA  COMPUTATIONAL  VARIABLE 

GMAJ  MAJCR  AXIS  DIRECTIVE  GAIN  OR  RADIATION  INTENSITY  IN  DB 

GMIN  MINOR  AXIS  DIRECTIVE  GAIN  OR  RADIATION  INIENSITY  IN  DB 

OTG'i  DIRECTIVE  GAIN  OR  RADIATION  INTENSITY  IN  DB 
GTCTN  NORMALIZED  GAIN  CR  INTENSITY  IN  DECIBELS 
I  DO  LOOP  INDEX 

IM  INTEGER  VALUE  OF  ANGLE  BEING  VARIED 

I  MAX  NUMbEk  OF  LINES  TO  BE  OUTPUT  BETWEEN  SPACING 
LCNPAT  LOGICAL  VARIABLE  RELATED  TO  THE  PATTERN  CUT  TAKEN* 

LCNPAT=TRUE  IF  THETA  IS  FIXED  AND  PHI  IS  VARIED,  AND 
LCNPAT=F ALSE  IF  PHI  IS  FIXED  AND  THETA  IS  VARIED 
NBA  ONE  PLUS  NBN 

NBN  AH  INTEGER  DEFINING  THE  STARTING  POINT  OF  PATTERN 
ANGLE  TO  BE  VARIED 
NfcM  CUE  PLUS  NEN 

NEC  AN  INTEGER  DEFINING  THE  ENDING  POINT  OF  THE  PATTERN 
ANGLE  WHICH  IS  VARIED 

NSC  AN  INTEGER  DEFINING  THE  INCREMENT  IN  THE  PATTERN 

ANGLE  WHICH  IS  VARIED  BETWEEN  STARTING  AND  END  POINTS 
PHI  FIXED  PHI  ANGLE 
HANCl  RANGE  PHASE  VALUE 
STILT/  SINE  OF  TILT A 
I'M!  FIXED  THETA.  ANCLE 

TILTA  TILT  ANGLE  CF  POLARIZATION  ELLIPSE  IN  RADIANS 

TILT l,  TILT  ANGLE  IN  DECREES 

TPPO  THE  FIXED  ANGLE  DEFINING  THE  PATTERN  CUT 
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CODE  LISTING 


2  SUBROUTINE  OUTPUT  (ETHETA.EPHI  .LCHPAT.TPPO.HBN.NEN.NSH > 

3  C!  !  J 

4  cm  THIS  SUL-ROUTINE  IS  USED  TO  OUTPUT  E-THETA  AND  E-PHI 
b  C!M  PATTERN  DATA  ON  THE  LINE  PRINTER.  IT  IS  OUTPUT  WITH 

6  C!!!  EACH  PATTEI1H  CALCULATION  AS  A  PRINTED  RECORD  Of  RESULTS. 

/  cm 

t  COMPLEX  ETHETAC I ),EPHI ( I ),ETHR,£PHR, FRANC 

V  LOGICAL  LPRAD.LHANG, LCNPAT 

1 0  common/cutptp/lprad, lrahc, PR ad, rang, wl 

■I  I  CUMMO?l/PIS/PI,TPI,DPR,RPD 

12  IkiC  FORMAT  ( I H  ,'********★*****•»******  ******  *■****<►  ****** ********** 
»*** 

I 2  2  ********  ************  ************  ***************************** 

****** 

U  2*'///) 

1C  It  I  FORMAT (2A, ********  *******  *  *  *******  *******  * 

10  2  ******  *  *******  *******  *******  ******  *  +* 

i 


n 

1  02 

FORMAT C 3 X,'* 

♦ 

* 

* 

* 

* 

*  * 

it 

2  *  *  *  * 

* 

* 

* 

* 

*  ** 

*' 

IV 

103 

FORM ATI 3 X,** 

* 

* 

* 

* 

* 

*  * 

2W 

2  *  *  *  * 

* 

* 

* 

* 

*  *  ' 

*  *' 

21 

h)4 

* 

t OHM AT ( 2 X, *******  — 

— 

* 

******* 

****** 

* 

* 

22 

) 

2  ******  *  * 

* 

* 

****** 

******  * 

*  *' 

23 

10b 

£ 

FORM AT <2 A,** 

* 

* 

* 

* 

* 

****** 

24 

2  *  ******* 

* 

* 

* 

* 

*  * 

*  ** 

2b 

J 

I  no 

• 

FORMAT (2) ,** 

* 

* 

* 

* 

* 

* 

2o 

2  *  *  * 

* 

* 

♦ 

* 

*  * 

2'. 

u.  i 

% 

rOhit  AT  ( 2  X,  ******** 

* 

* 

* 

******* 

* 

* 

20 

2  *  *  * 

* 

* 

*******  * 

*  * 

*' 

///J 

2V 

2v*l 

FORMA'.  <3X, ******** 

******  t 

« 

***** 

30 

2  ******  * 

******* 

*******  *******  ******  * 

* 

j ! 

ii'2 

format t;x,** 

♦ 

*  * 

W 

* 

22 

j 

2  *  *  *  • 

* 

* 

* 

* 

*  *• 

** 

w  « 

<w» 

rOR:;A7<2>,** 

• 

*  * 

* 

* 

+  4 

2  *  *  *  * 

* 

* 

* 

* 

*  * 

*  *' 

2k- 4 

FORMAT ( 2 X, *******  - 

-  ******  ******* 

* 

JO 

2  ******  •  • 

# 

* 

****** 

******  * 

•  #' 

j  "a 

JOS 

FOR  AT  ( 2  X ,  *• 

* 

* 

* 

* 

, 

2  •  ******* 

* 

* 

* 

* 

*  * 

*  *' 

’V 

***0 

FORMAT ( 3X,  *• 

• 

* 

* 

* 

1 

.  •  •  • 

• 

* 

• 

* 

*  * 

*£♦ 

A  \ 

20? 

FORMAT  1 3X  ,*  •«•*•*• 

* 

* 

« 

r 

***** 

< 

2  *  *  * 

• 

* 

*******  • 

•  • 

• 

4-  2///) 

44  IbC,  FORMAT  t '  TliE  FIELDS  Afi  i:  REFERENCED  TO  THE  PATTERN  COORDINATE*. 
4b  .»*  SYSlEt  *,///)  . 

*«  lb»  FOR'AT  till  ,  ".2  X,  'USNOftVAL  1 2EB ,  ISX ,  *  NORFALIZR)*  > 


4  7 

152 

4M 

4  V 

152 

50 

5  1 

155 

52 

53 

1  bo 

5  4 

‘.5 

15  4 

5o 

5"/ 

5U 

2  HO 

5V 

'.1.0 

Of 

UO 

o  1 

50  1 

o  2 

0!  ! 

o2 

t‘ 

C.  5 

00 

C7 

Cl 

tv 

7i 
•  \ 

Cl.O 

1  1 

7  2 

7  4 

7  5 

7  6 

*  i 

7  l 

7  v 

ti. 

t- 1 

d2 

ri2 

ft  4 

i 

to 

C!  ! 

f  f 

B7 

EH 

bV 

VO 

v  1 

V2 

v3 

V  4 

Vb 

VO 

V* 

y  l 

vv 

it  t: 

It  I 
It  2 

I  0  3 
If'* 

It  t 
It  < 

It  7 

I I  n 
It  V 

lit  .4 

1  I  I 
I  12 


FORMAT  (6X,'THETA',9X,'PHI't  I6X,  'E-PHI  1 4X  ,  'PHASE',  7X , 
2'MAGNITIDE','-X,'DB  GAIN'  ,6X,  'M  AGNITUDH' ,  7X,  'OB'  ) 

K0R..IA1  <6X, 'THETA', VX, 'PHI',  1 5X,  'E-THETA'  ,  1 3X, 'PHASE' ,  7X  , 
2'.MAO;iITtni-:',4X,'nB  GAIN' ,6X, 'MAGNITUOE', 7X,' OB') 

FORMAT  (6X, 'THETA'  ,9X,'PHI  '.  I5X ,  'E-THETA  ' ,  I3X,  'P«ASE',7X, 
2  AGi ! I TUDE'  ,  2X , ' DR  I NTEN  ,  5X,  'MAGNITUDE'  , 7X ,'DR' ) 

FORMAT  ( o> ,  'THETA', 9X, 'PHI' , I 6X, 'E-PHI'  ,  MX. 'PHASE' ,7X. 

2 'M ACM I  TIDE', 2 X , ' DP  INTEM . ' ,5  X , 'MAGNITUDE' ,7X,'DB') 

— ' ) ,3X, ' — 

/  --- - 1 - •* 


■/t2(3X,' 


FORMAT  (2( 3X ■ 

5  ' _ /  TX  '■ 

2' - '  )/) 

FOR,'!  AT  <  III  I  )  \ 

FORMAT  <  I  UO  ! 

FORMAT  (3X,9(F10.5,3X) ) 

FORMAT  (2 ( 3X, F 1 0.5) .  ?.  ( 2X,  E I  1 „ 5)  ,3X,  FI  0. 5 ,2X ,  E  II  .5 ,3 (3X, FI  3. 5 ) ) 
SET  UP  CONSTANTS 
Nbf'=MBN+  I 


NEM-NEN+I 

I  F(I.CNP/T)  THI  =TPPD 
Ft(ANG=CI.PLX(  l.,0.) 

I F ( .NOT.LRANG)  GO  TO  600 
K  A‘:GL=I</  PGA  L-AI  NT  ( RANG/tTL  ) 


FHANOsCEXP(CNPLX  U).  ,-TPI+RANCL  ))/RANG 
CONTINUE 

FACP=1 ./<240.*PI ) 

IF(LPRAP)  FACP= I ./ (60.*PRAD) 

FACPDB®  10.  *PLOGI  0(  FACP  ) 

ETHMX  =  EAhS(ETHETA( I > ) 

cP'iMX  a  F:  A  US  ( f:  PH  1(1)) 

ET0T,‘.»ETH.1/X*E7HMX+EPH.,1X*EPHVX 

no  I  I  a  NRM.MHM.NSN  I 

E-TH.V  =  t  ABS(  ETHETAC I  )) 

IF  <  E7HM  ,0T.  ETHMX)  ETHMX  *  ETHM 

ephm  =  fc  aps<  epf;i  ( I  ) ) 

IF  (EPHM  .GT.  EPHMX)  EPHMX  »  EPHM 
ET0T2=ETK.!*ETH.M+EPHM*E°HM  1 

IF  (E TOT?. . GT . FTOT MX  )  ETOTM X » ET0T2 
CONTINUE  j 

OUTPUT  E-THETA  REPRESENTATIONS 
KR  I T E < 6, 200)  j 

l.hITE(o,  100) 

WRITE  (o,l CO) 

WRITE  (C  ,  ICI >  ! 

white  (c,io2) 

write  (o,I03)  i 

WRITE  (C,’|04) 

WHITE  (c,I05)  1 

WRITE  (O.IC6) 

WRITE  ( 6  , 1 f 7 ) 

WRITE  (o,l5«) 

V.RITH(6,  151)  | 

If (LPRAD)  WRITE  (6,153) 

If(.NOT.LPRAD)  WRI TE (6 , 1 55  >  j 

wnITE  (6,154)  | 

I;.tAX*IO*NSI>l  ! 

no  2  I  a  HUM  ,fiEM  ,NSN  j 

I  ,M*  I  -  I  f 

If(LCNPAT)  phi-im 
1  f  ( Lc'iPA  i  )  GO  ro  2  5 
Ird  '.GT.MO)  GO  TO  2* 

*'!!!■  I  PIN 
i  III  *  I  M 
0U  TO  25 
PM  I  ■  il’f'l  |l»i>. 

1 1;(  PHI  ,t.l-. .  .160,  )  pi|I-PHt-3()C, 

1 :  1 1  «  toU-n 
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M-  *6  CONTINUE  j 

ll<  ETHR*ETI!ETA<  I)*FRANC  ) 

II-'  fcTHM  *  LA8S(  ETHETA  ( I  ) )  I 

I  e,  ETHMK=ETH A /HANG 

I"'  ETHPS  =•  DPR*6TAN2<  AIV.AC(  ETHR ) , REAL (ETHR)  ) 

IH  5‘7HI):i  =  20 .* FLOG  10  (  ETHM  )  +FACPDR 

1  S-  E1H/.1M  =  ETHM/ETHMX 

20  ETHDBiJ  =  20.  *RLOGI  0(  ETHMN) 

21  IE  (I  .OT.  I  MAX )  IMAX  *  IMAX+I0*NSN 

22  WRITE  (o,50l)  THI, PHI, ETHH, ETHPS, ETHMR.ETHDB.ETHMN.ETHDBM 

25  IF  (I  .EC.  I  VAX )  WRITE  (6,400) 

24  2  CONTINUE  ! 

26  L !  !  I  OUTPUT  E-PHI  R EPRESENT AT  IONS 

2o  WKITE(o, low)  i 

27  u RITE  (0,100) 

2b  WRITE  (0,300)  i 

2 v  l,«Ik(6,  IUO) 

5w  WRITE  (o,l 00) 

2  I  WRITE  ( C ,20 1 ) 

52  white  (0,202)  I 

25  WhITE  (o,203) 

54  WRITE  (o,204) 

56  WRITE  (6,205) 

2c  WRITE  (6,2 06 ) 

57  WRITE  (0,207)  J 

_b  WRITE  (0,150)  ! 

5 v  WRITE  (6,151) 

40  IF(LPRAU)  WRITE  (6,152) 

4  1  I F ( .NOT.IPRAD)  WRITE (6, 1  56 ) 

42  WRITE  (6,154) 

4  5  I  MAX* I 0*NSN+  1  I 

44  IK)  3  I  =  N EM, N EM, MSN 

46  IV, *1  —  1 

4 o  IF(LCMPAT)  PHI =1 M 

4  7  I  F  (  LCliPAT  )  GO  TO  35 

4o  iEdM.OT.  I8D)  GO  TO  34 

*•  v  PH  I  “TPPD 

bo  ":HI  =  IM 

51  GO  TO  35 

52  54  PHI=TPP0+1 80. 

65  IE ( PHI . GE. 360. )  PHI=PHI-36P.  , 

64  THI *3oO- I M  *  1 

o5  25  CONTINUE  t 

6o  EPHR-EPHI ( I )*FRANG  i 

57  EPHM  *  UAUSIEPHI (I  ) )  i 

58  EPHVR-EPH.M/RANG  , 

6v  EPHPS  =  DPR*FTAN2< AIMAG( EPHR ) .REAL(EPHR)  ) 

ot-  EPHDB  *  20 .  *FLOG  10  (  EPHM  )  +F ACPDB 

ol  EPHMN’  =  EPHM/EPHMX  ; 

o2  EPIID5N  =  20. *BLOGI 0( EPHMf!) 

05  IF  (I  .GT.  IMAX)  IMAX  =  IMAX+  I0*NSN 

6‘  WRITE  (6,501)  THI,  PHI,  EPHR,  EPHPS,  EPHMR.EPHPB,  EPHMN.EPHDBN 

06  IF  (I  .EC.  I  VAX)  WRITE  (6,400) 

u  o  :•  CONTI  HUE  i 

e*/  C !  ! !  OUTPUT  TOTAL  FIELD  REPRESENTATIONS 

Ob  WRITE  (C.IOO)  ; 

cv  HR I TE( 6, 1 00)  i 

7i  HR  ITb'<  o,5O0) 

7  I  >1,1  T  l-:(o,  H  0)  I 

'/ 2  WRITE <6,  U’0)  ) 

T  2  IF(I.''RA|i>  WHITE! 6,301) 

74  2v'l  FORMAT  ('  TOTAL  DIRECTIVE  GAIN  IN  DR  '///) 

•-6  I  r  ( .  ‘JO  T,  I.PRAD )  WRI  TE  (6  ,303  )  i 

7o  503  FORMAT ( '  TOTAL  RADIATION  INTENSITY  IN  DB.'///> 

7  7  >•  R  IT  1:  ( f  ,  160)  j 

78  IF(LPRAl')  WHITE  (  0,302  > 


H>  202  r\)R.v. AT<6X,'TI  ETA', VX,' PHI', VX, 'MAJOR', BX, 'MINOR', 7X 

lav-  2, 'TILT  ANC', AX, 'AXIAL  RATIO' ,2 X, 'TOTAL  GAIN' , AX, 'NOR"  GAIN') 

It. I  let  .J.OY.LPHAD)  WRITE(6,3P4) 

Ib2  2o4  FORH/fnoX, 'THETA', VX, 'PHI', VX, 'MAJOR', 8X, 'MINOR', 7X 
Ib2  2, 'TILT  ANG'.tX, 'AXIAL  RATIO' ,2 X, 'TOTAL  I NTEN , ' ,2 X , 'NORM' , 

184  2'  I NTEN.') 

185  IMAX=iU*NS!l+! 

18c  DO  4  I  =NbM,NEiM ,NSi! 

187  ia-i-j 

Itfc  IF (LCNPAT)  PHI *1 M 

IfcV  IF(LCtlPAT)  GC  TO  45 

I  VO  !FCU'.GT.I£C>  GO  TO  44 

IV I  PHI=TPPD 

1V2  THI-IM 

1V2  GO  TO  45 

IV4  <,<,  PHI=TPPD+I80. 

IVo  IFIPHI.GE. 360. )  PHI*PHI-360. 

I  Vo  71!  I  =*36'-)- 1 M 

IV  7  *5  CONTINUE 

1  VS  El  !  !M=BAt  S(  ET  HETA  <  I  ) ) 

IVV  EPHM=BAI;SCEPHI  <  I  !) 

2fcC  ET0T2»ETHMvETH//+£PHM*EPH.M 

2v:  I  GTUT=*IU.*BLOGt  3<  FACP*ET0T2  > 

202  ETOTK=eiOT2/ETOTMX 

2(c  3  GTOTN=I0.*BLCGKHETOTN> 

204  IFII.GT.IMAX!  IMAX«*IMAX+I0*NSN 

205  EPHA=BTAN2  (AI..IAG(EPHI(  I ) ), REALIEPHU  I) )) 

20 o  ETHA=niTAN2(AIMAG<ETHETA<I  >),RfcAL(FTHETA(l  >)) 

207  GLUHBA=2  .*EPFM*5TH  ?-'*COS(  EPHA-ETHA) 

208  EDIF2=ETI!.V*ETHM-EPH,M+EPHH 

2tv  TI LTA=. 5*BTA N2<GLURB A, ED I F2> 

210  TI LT  D=D  P  R*  T I LT  A 

211  STILTA=£IN(ULTA ) 

212  E:tAJ2=-EDIF2*STILTA*5TILTA+GLURBA*STILTA*COSfTILTA)+ 

2  I  2ETHM*ETHM 

2U  GMAJ  =  K).*BLOG1(K0SAJ2)+FACPD8 

2  I  8  EMIN2=EniF2*STILTA*STILTA-GLURBA*STILTA*COS(TILTA)  + 

2  I  o  2EPHM*EPH(V, 

2  I '/  G.M IN®  10. *BL0G1 0(  EH IN2 )  +F  ACPDB 

2  1  b  AXRAT=SORT( AGS  <  E.'II  ;,’2/EMAJ2  ) ) 

21V  ARITE<6,500)  THI ,PHI ,GMAJ, CM  IN .TILTD, AXRAT.GTOT.GTOTN 

220  IF<I .EO.IMAX)  WRITE(6,400) 

221  *  CONTINUE 

222  WRIT! (o, ICO) 

222  .-IRITE'6,  iW) 

224  RETURN 


myr.vri ■Biwwg’w  ipj _ -iii-.i.  gjgjffgSBjW^WWW^WBff^W 


PATROT 

PURPOSE 

To  convert  pattern  angles  from  pattern  cut  coordinate  system  to 
reference  coordinate  system  representation. 

PERTINENT  GEOMETRY 


Figure  81— Illustration  of  propagation  direction  D  and  reference 
and  pattern-cut  coordinate  systems. 


A 


Figure  82— Illustration  of  polarization  rotation  angle  ALR. 

/ 

i 


285 


METHOD 


The  observation  direction  is  defined  in  the  pattern  cut  coordi¬ 
nate  system  as 

D  =  cos(PHPR)sin{THPR)xp  +  sin(PHPR)$in(THPR)yp  +  cos(THPR)zp. 
This  is  converted  into  the  reference  coordinate  system  as 

A  AAA  AAA  AAA 

D  =  (D‘x)x  +  (D*y)y  +  (D*z)z 


or 

D  =  cos(PHR)sin(THR)x  +  sin(PHR)sin(Th‘R)y  +  cos(THR)z. 

The  polarization  conversion  angle  is  given  by 

A  A 

1  ®nr *  $ 

ALR  =  tan-1  *• 

0n/>*  0 
pc 

so  that  after  the  scattered  fields  are  computed  they  can  be  converted 
back  to  the  pattern  cut  coordinate  system  using 


E0pc  =  Ee  cos (ALR)  +  E^  sin(ALR) 
E^pc  *  -E,  Sln(AlR)  ♦  cos(ALR) 


28  j 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


«LR  POLARIZATION  ROTATION  ANCLE 

CPH  COS(PHR) 


CPKP 

CTH 

CTHP 

POTP 

PHPR 

PHR 

RDX  ' 

ROY 

HOZ 

SPH 

SPHP 

STH 

STHP 

TUI  P 

‘IHPR 

THR 

TX 

TY 

TZ 


COS( PHPR > 

COS< THR) 

cast  TUDU  ) 

COMPUTATIONAL  VARIABLE 

PHI  COMPONENT  OH  PROPAGATION  DIRECTION  IN  PATTERN 
CUT  COORDINATE  SYSTEM 

PHI  COMPONENT  OF  PROPAGATION  DIRECTION  IN  RCS 


X| Y, AND  Z  COMPONENTS  OF  PROPAGATION  DIRECTION  IN 

SIN (PHR) 

SI N( PHPR) 

SIN(THH) 

SIN(THPK) 


COMPUTATIONAL  VARIABLE 

THETA  COMPONENT  OH  PROPAGATION  DIRECTION  IN 
PATTERN  CUT  COORD  SYSTEM 

THETA  COMPONENT  OH  PROPAGATION  DIRECTION  IN  RCS 
X,Y,Z  COMPONENTS  OH  THETA  POLARIZATION  UNIT 
VECTOR  OH  PATTERN  CUT  COORDINATE  SYSTEM 
IN  RCS  COMPONENTS 


287 


CODE  LISTING 

2  SUBROUTINE  PATROT<THR,PHRfTHPR,PHPRtALR> 

3  Cl  !! 

4  |  | ! 

b  ciii  ROTATION  OF  PATTERN  ANGLES  FROM  PATTERN  AXES  (THP.PHP) 

6  CM!  TO  REFERENCE  AXES  (THtPH>.  NOTE  THAT  ALR  IS  DEFINED  BY« 

7  C!!!  E-THETAP=E-THETA*COS( ALR )+E-PHI*SIN( ALR) 

8  C! ! !  E-PHIP<=-E-THETA*SIN(ALR)+E-PHI*COSULR) 

V  C!  ! ! 

1C  C! ! I 

11  LOGICAL  LDE3UG.LTEST 

12  COMMON/! RST/LUE3UG ,LTE ST 

1 3  CO l.i 'ON/P  I  S/P  I ,  TP  I ,  DPR,  RPD 

1 4  COKMOM/P  ATDAT/  XPC  <  3 ) , Y  PC ( 3 ) , ZPC ( 3 ) 

lb  ST!!P=SIN(THPR) 

lo  CTHP=COS(THPR) 

17  SPHP=SIN(PHPK) 

18  CPHP=COS(PHPf;> 

IV  Cl!!  CALCULATE  PROPAGATION  DIRECTION  IN  REFERENCE  COORDINATE 
2c  C ! ! !  SYSTEM  <X,Y,Z)  COORDINATES 

2  1  RDX=STHP*CPHP*XPC< I >+STHP*SPHP*YPC( I >*CTHP*ZPC< I ) 

22  RDY=STHP*CPHP*XPC(2 )+STHP*SPHP*YPC (2 )+CTHP*ZPC(2 ) 

23  RDZ=STHP*CPHP*XPC( 3 )+STHP*?PHP*YPC (3 )+CTHP*ZPC(3) 

24  S0N=SQR1(RDX*RDX+RDY*RDY> 

2b  C ! ! !  CALCULATE  TUP.  AND  PHR 

20  THH=r>TAN2(  SON,  RDZ) 

27  PHR=BTAM2( ROY.RDX) 

23  STH*=SINCTHR> 

2v  CTH=COS<TI!R) 

20  SPH-SIUCPHR) 

31  CPH=COS(PHR) 

22  TX=CTHP*CPHP*XPC(1 )+CTHP*SPHP*YPC( 1)-STHP*ZPC( 1) 

22  TY=CTHP*CPHP*XPC<2)+CTHP*SPHP*YPCC2>-STHP*ZPC(2) 

24  TZ=CTHP*CPHP*XPC  <2 )+CTHP*SPHP*YPC<  3>-STHP*ZPC( 3) 

2b  C!!!  CALCULATE  ALR 

3c  TDTP=VX*CTHvCPHhTY*C1H*SPH-TZ*STH 

37  PDTP=-TX*SPH+TV*CPH 

38  ALR»BTAN2(PDTP,TDTP) 

2 y  IF  (.HOT.LTEST)  GO  TO  I 

40  h'RITE(6,2) 

4  1  2  FORMAT!/,'  TESTING  PAt'ROT  SUFROUTIME') 

42  WRITE  (0,*)  THR, PHR,THPR,PHPR, ALR 

43  1  RETURN 

44  END 


PFUN 

PURPOSE 

This  function  computes  the  p*  function  for  the  cylinder's  acous 
ticaliy  soft  diffraction  coefficient. 

METHOD 

The  p*  function  is  defined  as  [14,15] 


where 


P*(x)  =  ~=r  +  Ps(x)  e 


j  tt/4 


ps(x)  J? 


=4^  * 


and  V(t)  and  w2(t)  are  Fock  type  Airy  functions.  The  p*  function  is 
computed  as  follows: 

1)  for  x  _<  -3 

P‘W  =  ^  4|w  (w  1/4 


2JHx 

2)  for  -3  <  x  <  2 


(x-xj 


p*(x)  =  p*(xi}  +  Tx^-^T  * 


where  the  p*(x^)  are  tabulated  values [14, 15]  and  x^j-x^O.l  with 

xi  ±  x  <  xi+r 

3)  For  x  >_  2 

i  5tt 

j  tt/6  5  .XV 

p*(x)  -  — i—  -  S. -  l  * - - 

2jHx  2fi  n=l  tAj(-qn)]‘f 

where  A!(t)  is  the  derivative  of  the  Miller  type  Airy  function. 
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SYMBOL  DICTIONARY 


AMC  -0.5*CEXP(J*PI/6)/SORT(PI) 

AO  DERIVATIVE  Oh  MILLER  TYPE  AIRY  FUNCTION  AT  0 

C  0.5/SQRT(PI) 

EXC  CEXP(-5*Pl/6) 

I  SMALLEST  I HI  EGER  CLOSEST  TO  I0*X 

0  ZEROES  OF  MILLER  TYPE  AIRY  FUNCTION 
RFUN  P  FUNCTION 

PJ  '.MACINARY  PART  OF  TABULATED  P  FUNCTION 
PH  REAL  PART  OF  TABULATED  P  FUNCTION 

X  ARGUMENT  OF  P  FUNCTION 

XI  REAL  NUMBER  REPRESENTATION  OF  I 


CODE  LISTING 


i  c - 


2  COMPLEX  FUNCTION  PFUN(X) 

3  DIMENSION  PH(5 I ) ,PJ( 51 3 

4  rill 

t  oil!  COMPUTES  THE  P  FUNCTION  OF  THE  CYLINDER'S 
COMI  DIFFRACTION  COEFFICIENT  (SOFT  CASE) 

7  Cl!! 

b  COMPLEX  AMC. EXC 

v  DIMENSION  Q( 5) , AO< 5) 

1  to  COMMON/PIS/PI. TPI, DPR, RPD 

Nl  DATA  AMC, EXC/( -0.2 4430,-0. 14105) ,(-0.866025,-0.5)/ 

12  DATA  C/0.2 820V/ 

10  DATA  0/2.33811 ,4.08795,5.52056,6.78671,7.94413/ 

14  DATA  AO/0. 70121, -0.80311,0. 86520. -0.91085, 0.94734/ 

lb  DATA  PR/-, 054, .125, .276, .399,. *’  , .560, .605, .629. .638. .636 

lb  2,.624,.CO’6,.584,.560,.536,  .510,. 487,  .464.  .444,  .425  408 

17  2, ,3v3, ,379, .367, .357, .347, .338, . 330, .322  ,.3 1 4, .307, .299 

l«  2,. 292,. 284,. 276,, 268,. 259,. 251,. 242, .234 , .224, .2 15 , .206 

IV  2,.  198,  .  IV/),.  180,  .173,.  lo5,.  158,.  150,.  I  44/ 

20  DATA  PJ/.87V, .840, .769, .678, .577,. 469, . 354,. 265, . I  73, .091 

2  I  2, .019, -.043,-. 113,-. 139,-. 174, -.202, -.224, -.240, -.251 

22  2,-.2b7,-.260,-.260,-.256,-.252,-.244,-.236,-.225,-.2l4 

23  2, -.2  V, -.190, -.177, -.164 ,-.151 1 38 ,-. 125,-. M3 .-. I 0| 

24  2, -.090, -.080,-. 070, -,06l ,-.053, -.045, -.039, -.032, -.027 

2b  2. -.023, -.018, -.014, -.011 .-.010/ 

20  IF (X.LE.-3. )C0  TO  I 

27  IF(X.CE,2. )00  TO  2 

28  !»((3.+X)*IK.) 

29  XI  =FLQAT ( I  )-30 . 

toV  l=t*t 

3  I  PFUN<MPLX(PR(  I), -PJ(  !))•*■(  I0.*X-XI  )*C‘4PLK<  PR<  i  ♦  J  )-PR(I ), 

j 2  2-PJ( (♦ I )+PJ( I ) ) 

33  RETURN 

I  PFUMa.'X  I  ,/(SORT(PI  )*X)*SOWK  AFF(  X)  )*CEXP(CUPLX"*.,>'  ,4b 

-b  2*(>I*X*X*X/I2,))*CMPLX(  I.  ,2./(X*X*X))> 

o  RETURN 

to  7  2  PM«i»<  ;■-.,,).) 

DU  J  N-l ,5 

39  .•  PFUN«PFU;»CEXP(X*U(N)*EXC)/AO(N)/AO(N) 

4i  1>FUN"PFU1.*  AMOC/X 

4  I  RETURN 


PLAINT 


PURPOSE 

To  determine  If  a  ray  traveling  from  a  given  source  location  in 
a  given  direction  will  intersect  a  given  plate  (or  set  of  plates). 

Note:  several  modes  of  operation  are  available: 

If  MH=-MP  then  only  plate  MP  is  checked  (MP»0) 

IF  MH=0  all  plates  are  checked 

If  MH=MP  all  plates  except  plate  MP  are  checked. 


*'«r "*■ *?  *  tt  »  ^v^£5sw2=?~* 


PERTINENT  GEOMETRY 


SOURCE 

LOCATION 


Image  ^ 
location  / x 


Reflection  occurs  (ray  from  image  source  hits  plate  MP) 

SOURCE 

LOCATION 


/ 

X 

/ 

IMAGE 

LOCATION 

Reflection  does  not  occur  (ray  from  image  source  does  not  hit  plate  HP) 


figure  32->Geometry  for  determining  if  reflection  from  a  given  plate 
occurs. 


SOURCE 

LOCATION 

XIS 


INTERSECTION 


RAY  HITS  PLATE  ,  LHIT  =  .TRUE. 


RAY  DOES  NOT  HIT  PLATE  ,  LHIT  #  .  FALSE. 

Figure  34— Geometry  for  determining  if  a  rey  does  or  does  not 
hit  plate. 
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METHOD 


This  subroutine  is  used  for  a  number  of  functions: 

1.  To  determine  if  a  source  ray  reflection  from  plate  HP  occ  rs. 
If  a  ray  traveling  from  the  source  Image  location  in  t*  a- 
flected  ray  direction  passes  thorugh  plate  HP,  the  re  action 
will  occur  (see  Figure  83).  The  routine  only  checks  plate 

HP  (set  HH=-HP).  Note  that  the  hit  point  (which  U  returned 
through  the  subroutine  window)  is  the  reflection  oint,  and 
is  used  in  shadowing  tests. 

2.  To  test  to  see  If  a  ray  is  shadowed  between  scatter  points 
(or  between  the  source  and  a  scatter  point}.  The  routine 
checks  all  plates  (set  HH=0)  and  records  the  distance  from 
the  first  scatter  (or  source)  position  to  the  nearest  hit 
(if  the  ray  hits  any  of  the  plates).  If  the  distance  to  the 
nearest  hit  is  shorter  than  the  distance  between  scatter 
points  (or  between  the  source  and  scatter  point),  the  ray  is 
shadowed,  and  the  GTO  term  being  computed  is  set  to  zero. 
Otherwise,  the  ray  is  not  disturbed  and  computations  are 
carried  out.  Note  that  if  the  first  scatter  point  is  a  re¬ 
flection  or  diffraction  point  on  a  plate,  all  plates  except 
that  plate  are  checked  (set  HH=MP). 

3.  To  determine  if  ray  after  final  scatter  point  (or  source  ray) 
is  shadowed.  If  the  final  scatter  point  is  a  cylinder  (or 

if  the  source  field  is  being  computed)  all  plates  are  checked. 
If  the  final  scatter  point  is  on  plate  HP.  all  plates  except 
plate  HP  are  checked.  If  the  ray  hits  a  plate  (tHIT=TRUE) 
tue  ray  is  shadowed  and  the  6TD  term  is  set  to  zero.  If 
IHIT=FAISE,  the  ray  is  nol  shadowed  and  propagates  un¬ 
disturbed. 

4.  To  determine  if  any  one  plate  totally  shadows  plate  HP  from 
the  source  (referred  to  as  the  "total  shadowing  algorithm"). 
The  routine  checks  all  plates  except  plate  HP  (set  fPRHP) 
and  remembers  plates  which  shadow  the  ray  every  time  the 
routine  is  called  (see  section  6  of  subroutine  GEON).  The 
total  shadowing  algorithm  is  activated  when  LSTS  is  set  TRUE. 

The  hit  algorithm  first  tests  to  see  if  a  ray  in  the  scatter  di¬ 
rection  will  intersect  the  plane  which  the  plate  lies  in  by  comparing 
the  signs  of  the  dot  product  of  the  scatter  direction  and  the  plate 
normal  and  the  dot  product  of  the  vector  from  the  source  to  a  corner 
of  the  plate  and  the  plate  normal.  If  e  hit  is  possible  the  intersec¬ 
tion  point  on  the  plate  plane  is  determined.  Whether  the  intersection 
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point  lies  within  the  bounds  of  the  plate  is  tested  by  sunning  the 
angles  formed  by  the  vectors  from  the  Intersection  point  to  the  various 
corners  of  the  plate  as  shown  in  Figure  85.  If  the  sun  is  zero  the 
intersection  point  does  not  fall  within  the  bounds  of  the  plate.  If 
the  sum  is  2n,  the  intersection  point  does  fall  within  the  bounds  and 
the  ray  hits  the  plate.  (See  pp.  38-41,  Reference  1). 


FLOW  DIAGRAM 

f - 

PLAINT  (XIS.D.DHiT.HH.LHIT) 

INPUT  VARIACLES 

0  *.  y.  ard  T  components  of  propagation 

direction  in  reference  coordinate  system 
HH  indicates  which  plates  are  to  be  checked 
XIS  *,  y,  i  components  of  source  location  in 
reference  coordinate  system 
LSTS  logical  variable:  LSTS*TRU£  if  total  shadowing 
algorithm  is  in  use  (see  subroutine  GEON) 
l$T0  logical  variable:  LSTD(MP)*TRUE  if  plate  MP 
shadows  every  ray  tested 

OUTPUT  VARIABLES 

OMIT  distance  from  source  to  nearest  hit 
LHIT  logical  variable;  LHIT*TRUE  if  ray  nits  one 
or  more  plates 

XIS  x,  y,  z  components  of  point  where  ray  hits 
plate  in  RCS 

(only  used  as  output  variable  when  NH<0) 

LSTD  logical  variable:  L$TD(MP)=TRUE  if  plate  MP 
shadows  every  ray  tested 

NOTE:  XIS  and  LSTO  are  used  both  to  input  and  output 
information.  LSTS  and  LSTD  are  passed  through 
common  blocks. 


Yes 


297 


T 


SYMBOL  DICTIONARY 


AN  DOT  PRODUCT  OF  VECTOR  FROM  EDGE  !  OF  PLATE  MP  TO 
SOURCE  AND  PLATE  UNIT  NORMAL 
CP  COMPUTATIONAL  VARIABLE 

U  X,  Y,  AND  Z  COMPONENTS  OF  PROPAGATION  DIRECTION 
IN  REFERENCE  COORDINATE  SYSTEM 
DBI  COMPUTATIONAL  VARIABLE 

DBT  COMPUTATIONAL  VARIABLE 

DHIT  DISTANCE  FROM  SOURCE  TO  NEAREST  HIT 

DHT  DISTANCE  FROM  SOURCE  TO  HIT  POINT 

DN  DOT  PRODUCT  OF  PROPAGATION  DIRECTION  UNIT  VECTOR 

AND  PLATE  UNIT  NORMAL 

LHIT  LOGICAL  VARIABLE  (SET  TRUE  IF  RAY  HITS  AT  LEAST 
ONE  PLATE) 

LSTD  SET  TRUE  IF  PLATE  MP  TOTALLY  SHADOWS  PLATE  MH 
FROM  THE  SOURCE 

LSTS  SET  TRUE  IF  TOTAL  SHADOWING  ROUTINE  IS  BEING  USED 

ME  DO  LOOP  VARIABLE 

MEX  NUMbER  OF  EDGES  ON  PLATE  MP 

MH  SHOWS  WHICH  PLATES  ARE  TO  BE  CHECKED* 

MH— MP  ONLY  PLATE  MP  IS  CHECKED 
N"«0  ALL  PLATES  ARE  CHECKED 
MH-MP  ALL  PLATES  EXCEPT  MP  ARE  CHECKED 
MP  INDEX  VARIABLE  (NUMBER  OF  PLATE  BEING  CHECKED) 

MPH  INDEX  VARIABLE 

MPP  DO  LOOP  VARIABLE 

N  n  LOOP  VARIABLE 

RD  COMPUTATIONAL  VARIABLE 

XIS  X,Y,Z  COMPONENTS  OF  SOURCE  LOCATION  IN  REFERENCE 
COORDINATE  SYSTEM  (ENTERING  ROUTINE) 

X,Y,Z  COMPONENTS  OF  HIT  POSITION  (LEAVING  ROUTINE) 
XT  X,Y,Z  COMPONENTS  OF  POINT  WHERE  RAY  INTERSECTS 
PLATE  PLANE 
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CODE  LISTING 


1  c 

2 

3 

4 
b 
6 
7 
a 
v 

iu 
1 1 
12 
1  3 
14 
lb 
10 

17 

18 
IV 
20 
21 
22 

22  Cl  !! 
24 
2b 
2o 

27 

28  Cl  !! 
2V  C!  !! 

30 

31 

32 

33 

34  b 
ob 

3o  C!  !! 

37 

38 

3V  CM! 

40  10 

41 
*2 

43 

44 

4b 
40 
47 
40 
4  V 
b0 
bl 
b2 
b3 
b4 
bb 
bo 
b'f 
bS 
bV 
Ok. 

01 
02 
o3 
04 

ob 


C!  ! 
C! ! 
Cl  1 
C!  ! 
Cl  ! 
C!  1 


CM! 


20 


30 

CM! 

II 


SUBROUTINE  PLAINT! XI S.D.DHIT.MH.LHIT) 

DOES  RAY  HIT  PLATE . I F  MH«0  ALL  PLATES  ARE  CHECKER. 

IF  MH—fcP  THEN  ONLY  MP  CHECKED  AND  SOURCE  POSITION 
MOVED  TO  HIT  POSITION  IF  RAY  HITS  MP. 

IF  MH=MP .THEN  ALL  PLATES  OTHER  THAN  MP  ARE  CHECKED. 

DIMENSION  XI S< 3 > ,D!3),XT(3) 

LOGICAL  LHIT,LPLA,LCYL,LSTS,LSTD 
LOGICAL  LGRND, LDEBUG , LTEST 
COVMON/7 EST/LDEBUG, LTE ST 

COMMON/GEOPLA/X!  14,6,3),  V!  M  , 6, 3), VP!I  41, 6,3)  ,VN<  14,3) 

2 ,MEP( 14) ,MPX 
COMM OH/P IS/P I , TP  I , DPR, RPD 
COMMON/LPLCY/LPL  A.LCYL 
COMMOfl/LSHDP/LSTS.LSTD!  1 4) 

COMMON/H I TPLT/MPH 
COMMON/GROUNR/LGRND, MPXR 
t.HIT*.  FALSE. 

DHIT30. 

lF(.NOT.LPLA)  RETURN 
STEP  THRU  PLATES 
DO  60  MPP* 1 , MPXR 
MP-MPP 

IF(MP.EC.MH)  GO  TO  50 
IF(WH.LT.H)  MP»IABS(MH> 

IF  TOTAL  SHADOtviNG  ALGORITHM  IS  BEING  USED,  HAS  PLATE  MP 
SHADOWED  EVERY  RAY  TESTER? 

IF(LSTS.AND..MOT.LSTD(MP))  GO  TO  60 
51EX=MEP(MP) 

AN=0. 

DO  5  N-1,3 

AN*AN+(  XI  S(M)-X(  MP ,  I  ,N )  )*VN  t  MP  ,N ) 

DN=U(  1  )*VN(MP,  1 )+D<2  >*VN(MP,2)+D(3>*VN(MP,3> 

DOES  RAY  PASS  THRU  PLATE  PLANE? 

I F(An*ON.GE.P. )  GO  TO  50 
DO  10  N=l,3 

CALCULATE  POINT  WHERE  RAY  INTERSECTS  PLATE  PUNE 
XT(N)=XIS(N)-Atl+D(  N)/DN 
IF(MP.EO.MPXR.AND.LORND>GO  TO  II 
DBT-U. 

IS  HIT  POINT  ON  PLATE? 

DO  30  ME3 I ,MEX 
»ME=\tE+l 

IF(MME.GT.MEX)  MME»I 
RD3!). 

DO  20  11=1,3 

RU=RD+(X(MP,ME,N  >-XT!N  )>*( X(MP ,MME,N )-XT(N ) ) 

CP=VN( MP, I )* ( <  X! MP ,ME,2 )-XT( 2 ) )*(X(MP, MME,3)-XT(3) ) 
2-<XCMP,ME,3)-XT<3)  )*(X(MP,  »’ME,2)-XT(2) )) 

CP=CP+VN(  V!P,2  >*<  (X(MP,ME,3  >-XT(3 )  )*■(  X!  MP,MME,  1  )-XT(  1  ) ) 
2-(X(MP,|.E,  1)-XT(  I  >)*(X(MP,MME,3)-XT<3)  )> 

CP=CP-*-Vt'(MP,3)*!  (X(MP,ME,1  )-XT(  1  ) )*<  X!  MP,MME,2  )-XT(2  >) 
2-<X(MP,ME,2)-XT(2))*<X(MP,VttE, t)-XT<  t>)) 

DDI=BTAN2(CP,HD) 

nHT=OBT+RPI 

CONTINUE 

IF ( AOS (DPT J.LT.P I )  GO  TO  50 

CALCULATE  DISTANCE  TO  HIT  (RHIT-SHORTEST  RHT) 

l)HT=0. 

DO  40  N=1 ,3 

I)IIT=1)HT* ( XT ( N ) -X I S( N ) )*(  XT(N  )-XIS(N  ) ) 

UHT»  SORT  ( RHTJ+I  .E-5 

IKLHIT.AMR.  (RHT.GT.DHIT ))  GO  TO  60 
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■  —  —  uTfcS  fr.Ot'am 


1 


66  LHIT=.TRUE. 

o7  DHITOH7 

68  MPH*MP 

OV  IF(MH.GE.rt)  GO  TO  60 

70  DO  45  N-1,3 

71  CM!  MOVE  HI!  POSITION  AN  INCREMENT  TOWARDS  SIDE  OF  PLATE 

72  C!  ! !  WHICH  SOURCE  LIES  ON 

73  45  XIS(N)=XT(N)-SIGN( 1 .E-5,AN)*VN(MP,N) 

74  GO  TO  ol 

75  50  CONTINUE 

76  IFOIH.LT.0)  GO  TO  61 

77  C! ! !  IF  TOTAL  SHADOWING  ROUTINE  IS  BEING  USED,  INDICATE 

78  Cl ! I  THAT  PLATE  MP  DOES  NOT  SHADOW  SOURCE 

7V  IF(LSTS)  LSTD(MP)-.FALSE. 

80  00  CONTINUE 

fal  61  IF  (.NOT.LTEST)  GO  TO  62 

82  WRITE  (6,63) 

83  63  FORMAT  (/,'  TESTING  PLAINT  SUBROUTINE') 

84  WRITE  (6,*)  XI S 

85  WRITE  (o,*)  D 

86  WRITE  (6,*)  DHIT.MH.LHIT 

87  o2  RETURN 

fc8  END 
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POLYRT 

PURPOSE 

To  solve  an  Mth  order  polynomial  equation. 

METHOD 

This  subroutine  solves  for  the  roots  of  an  Mth  order  polynomial, 

vV/'1  +  •"  cizl  +  co  *  «• 

The  roots  of  the  polynomial  are  found  using  the  Newton-Raphson  method 
of  iterated  synthetic  division  [16].  The  coefficients  are  stored 
such  that  CM  =  CC(M+1),  C  =  CC(1),  etc. 


302 


303 


SYMBOL  DICTIONARY 


c 

cc 

CMAX 

CNEW 

CNNW 

EPS 

ICONJ 

I COUNT 

I  FLAG 

I  SI  ART 
Life  I  i 
M 
MI 


MM 
MMP  I 
MM 
Q 
R 

RJ 

RJP 

RT 

SR 

START 

TEST 

XI 

XR 


ki'/RtCING  ARRAY  OF  POLYNOMIAL  COEFFICIENTS 
A  COMPLEX  ARRAY  CONTAINING  THE  POLYNOMIAL  COEFFICIENTS 
MAGNITUDE  OF  LARGES!  COEFFICIENT 
ARRAY  CONTAINING  COEFFICIENTS  OF  POLYNOMIAL  LEFT 
AFTER  THE  PROSPECTIVE  ROOT  HAS  BEEN  FACTORED  OUT 
ARRAY  CONTAINING  COEFFICIENTS  OF  POLYNOMIAL  LEFT  AFTER 
THE  PROSPECTIVE  ROOT  HAS  BEEN  FACTOR B3  OUT  TWICE 
SMALL  NUMBER  (RELATIVE  TO  LARGEST  COEFFICIENT) 

INDEX  FOR  TRYING  THE  CONJUGATE  OF  THE  PREVIOUS  ROOT 
AS  A  GUESS 

INDEX  ON  THE  NUMBER  OF  TIMES  THE  ITERATION  PROCEDURE 
SEARCHES  FOR  A  RCOT 

FL/,0  USED  TO  INDICATE  IF  ALL  POSSIBLE  STARTING  VALUES 

HAVE  BEEN  TRIED 

INDEX  FOR  STARTING  VALUES 

MAXIMUM  NUMBER  OF  ITERATIONS  USED  TO  SEARCH  FOR  THE  ROOT 
ORDER  OF  POLYNOMIAL  BEING  WORKED  ON 
COMPUTATIONAL  VARIABLE 


ORDER  OF  THE  EQUATION 
MM  PLUS  ONE 

ORDER  OF  ONCE  FACTORED  POLYNOMIAL  BEING  WORKED  ON 
MAGNITUDE  OF  POLYNOMIAL  COEFFICIENTS 
A  COMPLEX  ARRAY  CONTAINING  THE  ROOTS  OF  THE  EQUATION 
REMAINDER  LEFT  AFTER  PROSPECTIVE  ROOT  HAS  BEEN 
FACTORED  OUT 

REMAINDER  LEFT  AFTER  PROSPECTIVE  ROOT  HAS  BEEN  FACTORED 
CUT  TWICE 

PROSPECTIVE  RCOT  BEING  ITERATED 
SQUARE  ROOT  CF  CC(2>*C(2 >~4*C(I )*C(3  )) 

ARRAY  CONTAINING  INITIAL  GUESS  OF  ROOT  LOCATIONS 
BOUNO  USED  TO  OETERMJNE  IF  THE  PROSPECTIVE  ROOT 
HAS  CONVERGED 
IMAGINARY  PART  OF  CC 
REAL  PART  OF  CC 


CODE  LISTING 


2  subroutine  pclyrk am,cc, r> 

2  Cl  !! 

4  llll  THIS  ROUTINE  SOLVES  A  COMPLEX  POLYNOMIAL  EQUATION, 
b  (-ill  MM  IS  THE  ORDER  QF  THE  EQUATION 
0  Ul!  CC  IS  A  COMPLEX  ARRAY  CONTAINING  THE  COFF'tICI ENTS. 

T  C!  I !  CC(I)  IS  THE  CONSTANT  TERM,  CC<2>  THE  COEFFICIENT  OF  2, 

U  US!  - —  .QCIKM-M  )  THE  COEFFICIENT  OF  Z**VM. 

V  C !  I !  It  IS  A  COMPLEX  ARRAY  IN  WHICH  THE  ROOTS  KILL  BE  RETURNED. 


Ik)  US! 

IN  THE  DATA  STATEMENT  LIMIT  IS  THE  NUMBER  OF  CYCLES 

II  Ul! 

WHICH  r.ILL  BE  ALLOWED  BEFORE  THE  SEARCH  FOR  A 

12  CSS! 

PARTICULAR  ROOT  IS  TERMINATED.  TEST  IS  THU  MAXIMUM 

13  CSSS 

INEQUALITY  OF  THE  EQUATION  ALLOWED  BEFORE  A  ROOT 

IS 

14  till 

ACCEPTED. 

It*  CMS 

lO 

COMPLEX  C(2I), 00(21 ),CNEW<2t ).R(2«),SR,RT,Y,0Y,RTP 

n 

COMPLEX  STARK 4) ,CNNK(2 1 ), RJ.RJP 

18 

DATA  START/I I.U .),(!., 0.),<-1 -t.,0.)/ 

IV 

DATA  TEST, LIMIT/ 1  .  E-05 , 1 0fl/ 

2k!  US! 

COPY  THE  INPUT  PARAMETERS  CC  AND  MM  INTO  C  AND  M. 

2  1 

I  FLA  0*0 

22 

MM PI =MM* 1 

23 

CMAX«BAES(CC(I )> 

24 

DO  V  1*1, IMP  1 

2b 

C(I)*CC(I) 

2t 

IF(BAaS(CC(l>) .GT.CMAX )  CMAX*BABS(CCtI >> 

2".  V 

CONTINUE 

2U 

EPS*I.E-5*CMAX 

2V  2b3b 

M*fcM 

ICOf.J*0 

31  US! 

FIND  AND  DIVIDE  OUT  ANY  ZERO  ROOTS. 

22  2 

0*BABS(C(M*l H 

33 

IF(Q.LT.EPS)  GO  TO  7 

24 

0»BABS(C< 1  n 

2  b 

IFUJ.GT.EPS)  GO  TO  ! 

3o 

DO  8  1*1,  M 

21  fc 

ccixci+i  > 

2fc  •. 

R(M)*(0.,B.) 

JV 

U=M~  1 

4U 

1FCM.NK.0)  GO  TO  2 

4  1 

RETURN 

42  1 

DO  3  N-I.M 

_ 

C(N)*C(N)/C(M*n 

44 

C(M*I)*(I.  ,U.) 

4b  US! 

IF  EQUATION  IS  1  ST  OR  2ND  ORDER  SOLVE  DIRECTLY  AND 

RETURN. 

40 

IrCM-2)  5.6.4 

47  i 

R(  1  )*-U  1) 

4l> 

RETURN 

4 v  US! 

START  SEARCH  FOR  A  ROOT. 

Sk>  *■ 

UO  140  I  ST  AWT*  1,4 

bl  24 

hT»STARTU  START) 

b2 

1MIC0NJ.E0.  1 1  RT*C0«J0<R (*♦!>> 

b- 

!C0UNT*0 

b4  14 

CfiEr.(H>*<  i .,?. ) 

bb 

UN *U— 1 

bo 

1.  ,0.) 

bl 

t COUHT-I COUNT* 1 

be 

IMICOUNT.OT .LIMIT}  00  TO  141 

bv 

PO  Ml  t«2,M 

ul »s-I 

Cl  111 

CttfoM « 1  *  II  *U U I *2  1  *WT «CMFW< M I *2 ) 

•»j*e<  i  i*i*T*c>ifes»i  i  > 

c. 

»>|3AUS(WJ? 

■jA 

IFIC.LE.TEST)  <»  TO  12 

u  b 

l.HJ  1 12  1*2, MK 

40 

V 1  1 

3G5 


o7 

H2 

CNKW  ( M I  ♦  i )  *CNE W ( M I  *2  )*RT*CNNW<  MI *2 ) 

ofct 

kJP-CNEM!  HRT*CNJ1K(  1 ) 

ov 

RT-HT-RJ/RJP 

7  It. 

GO  TO  U 

7  l 

14  1 

CONTINUE 

72 

1MIC0NJ.NE.I)  CO  TO  I4H 

7  ~ 

ICONJ-O 

74 

GO  TO  24 

7  b 

U0 

CONTINUE 

7o 

IFdFLAC.EO.  1 )  GO  TO  15 

7  7 

I 8 LAG* 1 

78 

DO  W,M  JJ-I ,MMPI 

7  v 

XR-HEAL(CC(JJI ) 

84; 

XI=AIMAG(CC(JJ)) 

81 

1F(AHS( XRI.LT. EPS)  XR*0. 

82 

IF(ABS(AI ) .LT. EPS)  XI*0. 

82 

C(  JJ  )*CMPLX( XR.XI ) 

84 

VtfV»> 

CONTINUE 

8b 

GO  TO  3535 

88 

lb 

nklTEIb, 16)  >-,0 

87 

lo 

FORMAT!  IH4J,4e>H  CYCLE  LIMIT  EXCEEDED  WHILE  FINDING  R00T.I3. 

te 

2  IdH  FINAL  INEOUALITY  ,FI0.4) 

8V 

12 

CONTINUE 

Vit 

DO  18  1*1, M 

VI 

18 

C(I)*CtIEh(i) 

V2 

RUI)*(<T 

Vj 

m*  a- 1 

V  *i 

IC0NJ»IC0NJ>l 

vb 

IF t ICONJ.GT. 1 )  ICONJ-H 

VC, 

C!  ! ! 

IF  MORE  THAN  TV.O  ROOTS  LEFT  RECYCLE  THE  SEARCH. 

V7 

IF(«.GT.2)  GO  TO  4 

Vb 

U  !! 

FIND  THE  LAST  Tlr.O  ROOTS  BY  THE  OIIAPfiATIC  FORMULA. 

vv 

t 

SR=CSQRT(C(2)*C(2)-4.«*C(I )*C<3>> 

14.4 

k<  1)*«-C(2H5R>*0.5/C<3> 

14,1 

H (2  )  *(-C (2  >-S«  >*S.5/a 3) 

14,2 

HeTUMN 

14, -> 

CKO 

PRIOUT 


PURPOSE 

To  output  field  data  in  standard  f'  mat:  4  integer  indicators 
and  then  magnitude  and  phase  of  E- theta  <id  E-phi  components. 

METHOD 

This  subroutine  is  activated  by  setting  L0UT=.TRUE.  When  the  in¬ 
dividual  field  components  are  being  printed  out,  that  is  when  Lj»1000 
and  when  L*K  and  J*I,  only  the  fields  with  | ET | >0  or  |EP|>0  are  printed 
out.  A  list  o f  the  different  indicator  numbers  and  what  field  they 
correspond  to  is  given  in  Table  7. 


Table  7 

Individual  field  types  printed  when  LOUT=.TRUE. 


L 

K 

J 

I 

100 

0 

0 

0 

200 

HP 

0 

0 

300 

HP 

HP? 

0 

600 

HP 

HE 

0 

650 

HP 

He 

0 

700 

m 

HP 

MS 

750 

w 

HP 

HE 

aoo 

HP 

ME 

MR 

HP 

MS 

m 

no 

0 

0 

0 

l?0 

0 

0 

0 

no 

0 

0 

0 

160 

MC 

0 

0 

500 

MC 

0 

0 

?<0 

HP 

0 

0 

?w 

MR 

0 

0 

i  10 

HP 

0 

0 

HP 

0 

0 

>9 

Mi 

0 

*65 

HP 

HE 

9 

iMstr 

Utttf 

jastt 

Sfvit 

i«s» 

lASRt 

ixs&t 

.’wan 

Field  Type 

Direct  field  when  plates  are  present 
Field  reflected  from  plate  HP 
Field  reflected  from  plate  HP  then 
reflected  from  plate  MPP 
Field  diffracted  from  edge  HE  of 
plate  HP 

Field  diffracted  frcm  the  comers 
of  edge  HE  of  plate  HP 
Field  reflected  from  plate  MR  then 
diffracted  from  edge  ME  of  plate  HP 
Field  reflected  from  plate  hr  then 
diffracted  by  the  corners  of  edge 
ME  of  plate  M P 

Field  diffracted  from  edge  M£  of 
plate  HP  then  reflected  from  plate 

MR 

Field  diffracted  fro®  the  comers 
of  edge  HE  of  plate  mp  then  reflected 
from  plate  w 

O'rect  field  When  Only  cy! fnders 
alone  are  present 

Geometrical  optics  field  reflected 
by  cylinder  (for  comparison  only) 
Field  scattered  by  the  curbed  sur. 
face  of  the  -yRscer 
Field  reflected  by  end  cip  K  of 
the  cylinder 

Field  diffracted  by  the  e«d  cap 
ria  MC  of  the  cyl tnfier 
Geometries!  optics  f’eid  reflected 
fra#  plate  HP  then  reflected  from 
the  eurved  surface  of  the, cylinder, 
(For  comparison  only! 

Field  reflected  fren  plate  *P  and 
then  scattered  p,  the  curved  sur¬ 
face  of  the  cylinder 
Geometrical  ootks  field  reflected 
fro*  the  curved  surf  tee  of  the  cy¬ 
linder  im  tftto  reflected  from  plate 
MR.  {For  compaction  fthly} 
field  scattered  frat  the  cy*M 
surface  of  the  cylinder  them  re¬ 
flected  from  plat?  HP 
Field  reflected  frcm  the  curved 
surface  of  the  cylinder  then  dif¬ 
fracted  by  e«pe  Ml  cf  plate  s? 

Field  diffracted  iron  eds*  *€  t-f 
plate  >9  then  reflected  fro*  the 
curved  iirf«<!  si  the  Cylinder 
Sat  of  fields  «f  a  «i,e<<  type  UCEfi 
fpr  a  five*  angle  ftts&f} 
fetal  field  tot  a  five#  angst 


<  *  *4 &\n  *  *■-«*  -  c  <  c 


FLOW  DIAGRAM 


CODE  LISTING 


«J  ^  SUBROUTINE  PfilOUTlU*,J.I,ET,EP> 
j  (.  <  5  < 

4  V. !  ! ;  PMlttT  GUT  DATA  IN  STANDARD  FOOFJ.T. 
SO!!  IKTtCsH  !!<ClCATOHS,TKSS  MAC.  AW)  PHASE 
OU!!  E-THLTAW^m  CGMPCJirHTS. 

CORPUS  FT.EP 
CtK&cK/FtS/Pt  ,TPS,DP»,RPD 
i,Tit»DASS<67) 

UTP»t>PR«BT  At’2  t  A I  SAG!  ST  > .  8c  At  t  ET ) ) 
tP;»*UA«£«fc’Pf 

t'FP.f»R*rTAj:3  ‘  A!  *?AG<  5P ) ,  ficAUEP  > ) 
tML.cf!,  ItfiVlCO  TO  2 
:*-a.sj9.E.A.nn,j.EG.t  >co  to  j 
JFtyTa.U.  Ui~5.  Ajm.UPM.tr.  I  .E-$)RST1£J« 
2  ftkmta.IJ  L.E.JI.S  .OTA.UTP.UPa.UPP 

t  F«ftSA?ciH  ,«5S.2FlS.6,S X,2F»S.«> 

8£T5#&< 


QFUN 

PURPOSE 

To  compute  the  q*  function  for  the  cylinder's  acoustically  hard 
diffraction  coefficient. 

METHOD 

The  q*  function  is  defined  as {14,15] 


q*(x)  =  — —  +  Ph(x)eJ  71/4 
2/nx 


where 


p>)  ■ 


and 


and 


V(t)  and  w2(t)  are  Fock  type  Airy  functions, 


0  = 


3_ 

3t* 


The  q*  fund -on  is  computed  as  follows: 

1)  for  x  £  -3  x3 

g*(x)"  -i-  - 1/17]  (1  -  j  W  17  1/4  , 

27ix  v  xJy 

V 

2)  for  -3  <  x  <  2 

q*(x)  =  q*(x.)  +  ^ - — -  (q*(xi+1)-q*(x,))  , 

where  the  q*(x.)  are  tabulated  values[14, 151  and  x-^-x^O.l  with 
xi  <  x  <  x.+1. 

3)  for  x  >  2 


e^/*  |  eX?"e  J  r 

2jnx  2jv  n=l  qnfAi(-qn)l 

where  A ..(•<■)  is  the  Miller  type  Airy  function. 


q*(x)  = 
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SYMBOL  DICTIONARY 


AMC  -t).5*CEXP(J*PI/6>/S0RT(PI) 

AU  MILLED  TYPE  AIRY  FUNCTION  AT  0 

C  0.3/SORT(PI> 

EXC  CEXP(-5*PI/6> 

I  SMALLEST  INTEGER  CLOSEST  TO  I0*X 

0  ZEROES  OF  DERIVATIVE  OF  MILLER  TYPE  AIRY  FUNCTION 

Qt-UN  0  FUNCTION 

0!  IMAGINARY  PART  OF  TABULATED  0  FUNCTION 
UR  REAL  PART  OF  TABULATED  0  FUNCTION 

X  ARGUMENT  OF  0  FUNCTION 

XI  REAL  NUMBER  REPRESENTATION  OF  I 


CODE  LISTING 


2  COMPLEX  FUNCTION  OFUN(X) 

3  0 !  ! ! 

*  C!!!  COMPUTES  THE  0  FUNCTION  OF  THE  CYLINDER'S 
0  Cl!!  Dlr-E  FACTION  COEFFICIENT  (HARD  CASE) 

0  0!  !! 

7  DIMENSION  0k(6l),QI(6! ) 

B  COMPLEX  AMC, EXC 

v  DIMENSION  0(5) ,  A0( 5 ) 

1 1;  CO/V.'.ON/P  I  S/P  I ,  TPI ,  DPR,  RPD 

)1  DATA  A,MC,HXC/(-0. 24430. 14105)  .(-0.B66025, -0.5)/ 

12  DATA  C/<’. 215209/ 

IS  DATA  0/1.01879,3.24820,4.82010,6.16331 ,7.37218/ 

1  4  DATA  AQ/0. 53566, -0.41902, 0.38041, -0.35791. 0.34230/ 

15  DATA  OR/-. 22V, -.4.1  559,-. 673, -.754, -.807, -.834, -.841 

10  2, -.832, -.810, -.780, -.744, -.705. -.665,-. 625, -.587, -.551 , 

17  2-. 5 17, -.486, -.458, -.432, -.409, -.388, -.369, -.352, -.335, 

lb  2-.32C,-.20O,-,293,-.279,-.2o6,-.253,-.239,-.226,-.2i2, 

IV  2-. 198,-. 184,-. 170,-. 155,-. ! 4  I,-. 126,-.  1 1 2,-. 098, -. 084, 

29  2-. D7 1 ,-.058, -.046, -.034, -.023, -.012, -.0026, .0064, .015, 

2  I  2.O22,.02V,.03o,.04  1, .046,. 05  I,. 056,. 06  1/ 

22  DATA  01/-. 838, -.771, -.676, -.562. -.440,-. 317,-. 199,-. 090 

23  2,. ('08,. 094,.  166,  .226,. 274,  .31!  ..338,  .357,. 368,  .372  ,.371 

24  2,. 305,. 356 ,.342, .327,. 309, .289, ,2681 .246 , .223, .200. . 1 77 

23  2,. 154, . 131 , . |09, ,088,, 067, . 048,, 03  I , .0 14 ,-.001 3, -. 01 5 

20  2, -.027, -.028, -.048, -.056, -.062, -.068, -.072 .-.075, -.078 

27  2, -.079, -.079, -.079, -.078, -.077, -.075 ,-.072, -.070, -.067 

28  2, -.064, -.061 ,-.059/ 

2V  IF(X.LK.-3. >00  TO  1 

Sii  I  F(X.GE.2.  >C0  TO  2 

31  I “<  ( 3.+>  )*  ItJ. ) 

32  XI =FLOAT( l )-30. 

2c  1=1+1 

~4  (JFUN=C.*TLX(0R(  I  ),-QI  (!))+(  !0.*X-XI  )*CMPLX<  OR  ( 1  + 1  )-OR(I  ), 

35  2-01 ( I+l )+0I( I) ) 

36  RETURN 

37  I  OFUN  =  .b*  (  I  ./(SQRKPI  )+X)-SORT(  ABS(  X)  )*CEXP(CMPLX(0.,0.25 

:i(  2*P I  +  X*X* X/  12  .  >  )*CMPLX(  I.  ,-2./(X*X*X)  )) 

~9  RuTUCN 

42  2  OFUN=( 0. ,0. ) 

<■1  DO  3  8=1,5 

42  2  UFUN=GFUN+CEXP(0<N)*X*EXC>/A0(N)/A0(N>/0(N) 

Ob  UN  =OFU N *  A.MC+C/  X 
44  RETURN 

+  3  END 
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RADCV 


PURPOSE 

To  compute  the  longitudinal  and  transverse  radii  of  curvature 
of  the  elliptic  cylinder  at  a  given  point. 

METHOD 

The  longitudinal  radius  of  .curvature  of  the  elliptic  cylinder 
(in  the  plane  of  incidence)  at  the  point  defined  by  elliptical  angle 
VR  is  given  by 


(A2sin2VR+B2cos2VR)3/2 
AB  sin  as 


The  transverse  radius  of  curvature  at  the  point  defined  by  ell.  angle 
VR  is  given  by 


=  (A2sin2VR+B2cos2VR)3/2 
AB  sin2(as-ir/2) 


where 


a 

P 

P 


s 

g 

t 


=  AS 
=  RG 
=  RT. 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


HO  RADIUS  OF  CURVATURE  IN  THE  PLANE  OF  INCIDENCE 

HOT  RADIUS  OF  CURVATURE  OF  THE  ELLIPTIC  CYLINDER  IN  THE 

PRINCIPAL  (X-Y)  PLANE 

Hi  HADIUS  OF  CURVATURE  TRANSVERSE  TO  THE  PLANE  CF 
INCIDENCE 

VK  ELLIPTIC  ANCLE  DEFINING  THE  DESIRED  POINT  ON  CYLINDER 


CODE  LISTING 


1  c — 

2 

sun 

4  U  II 

sun 

0 

*/ 

0 
V 
10 
•I  I 
12 
I  j 

U  I 

lb 

lo 


SUBROUTINE  RADCVIRG, RT,VR) 

COMPUTES  RADII  OF  CURVATURE  OF  ELLIPTIC  CYLINDER 

C0MM0N/GE0KEL/A,B,ZC<2  >,SNC(2),CNC(2),CTC(2> 

COMM ON/GT  D/AS , ID,SAS ,SASP,CAS 

DN“SQRT(A*A*SI M( VH )*SINC  VR )+B*B*COS<  VR)*COS< VR ) ) 

HGT=DN*ON*DN/A/B 

RG=RGT/SAS/SAS 

IFISASP.LT. I ,E-5)G0  TO  I 

RT»ROT/SASP/SASP 

RETURN 

RT=I .E20 

RETURN 

END 
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RCLDPL 


PURPOSE 

To  compute  the  far-zone  electric  field  for  a  source  ray  which 
is  reflected  by  the  elliptic  cylinder  and  then  diffracted  by  a  given 
edge  on  a  given  plate. 

PERTINENT  GEOMETRY 


Figure  86--Ray  reflected  by  cylinder  and  then  diffracted 

by  plate  edge. 

METHOD 

The  field  reflected  by  the  elliptic  cylinder  and  then  diffracted 
by  a  plate  edge  is  calculated  in  this  subroutine.  The  field  reflected 
by  the  cylinder  is  found  using  geometrical  optics  14] .  This  causes 
an  astigmatic  tube  of  rays  to  be  incioent  on  the  plate  edge.  The 
uniform  Geometrical  Theory  of  Diffraction[4)  is  then  used  to  find 
the  diffracted  field  from  the  edge.  The  resultant  field  in  the  far 
zone  has  the  form  (pp.  154-155,  Reference  1) 
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9 


Tr*‘l=r1(QR)  -  Tr  •  w 


°lp2 


lpie-JKs'e_ 


jks 


(pJ+s'HpJJ+s') 

where  r1^)  is  the  incident  field  at  the  reflection  point  Q^,  IT  is 

the  diadic  reflection  coefficient,  !J  is  the  dyadic  edge  diffraction 
coefficient,  p[  and  p£  are  the  reflected  ray  caustic  distances,  p^ 
is  the  incident  caustic  distance  on  the  edge,  s'  is  the  distance  from 
the  reflection  point  to  the  diffraction  point,  and  s  is  the  distance 
from  the  diffraction  point  in  the  far  zone.  The  geometry  is  shown 
in  Figure  85  and  further  illustrations  can  be  found  in  the  write  ups 
for  subroutines  REFCYL  and  DIFPLT.  The  phase  of  the  field  is  referred 
to  the  reference  coordinate  system  origin  so  that 


e~^s  _  jkD*Xj  e'jkR 

s  '  e  0  R 


The  reflected-diffracted  field  then  has  the  form 


t  *  =  Wm(EDTH6+EDPH$)  , 

-jkR 

where  the  factor  — * —  and  the  source  weight  (Wm)  are  added  elsewhere 
in  the  code.  R  m 
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FLOW  DIAGRAM 
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SYMBOL  DICTIONARY 


bO  UI FFHACTED  FIELD  POLARIZATION  UNIT  VECTOR  PARALLEL 
TO  EDGE 

bOP  INCIDENT  FIELD  POLARIZATION  UNIT  VECTOR  PARALLEL 
TO  EDGE 

DU  NORMALIZATION  CONSTANT  FOR  CYLINDER  TANGENT  VECTOR 
UH  EUGc  DIFFRACTION  COEFFICIENT  FOR  HARD  FIELD  COMPS. 

UHIT  DISTANCE  FROM  SOURCE  TO  HIT  POINT  (FROM  PLAINT) 

UOTP  TEST  PARAMETER  USED  TO  DETERMINE  IF  REFL  IS  LEGAL 
US  DIFFRACTION  COEFFICIENT  FOR  SOFT  FIELD  COMPONENTS 
UV  DOT  PRODUCT  OF  EDGE  UNIT  VECTOR  AND  DIFFRACTED 
RAY  PROPAGATION  DIRECTION 
EDPH  PHI  COMPONENT  OF  DIFFRACTED  FIELD  IN  RCS 
EUPL  DIFFRACTED  FIELD  COMPONENT  PARALLEL  10  EDGE 
EDPR  DIFFRACTED  FIELD  COMPONENT  PERPENDICULAR  TO  EDGE 
EUiH  1HE1A  COMPONENT  OF  DIFFRACTED  FIELD  IN  RCS 
EIPL  COMPONENT  OF  FIELD  INCIDENT  ON  CYLINDER  (OR  PLATE) 
PARALLEL  TO  PLANE  OF  INCIDENCE  (OR  EIX3F) 

EIPK  COMPONENT  OF  FIELD  INCIDENT  ON  CYLINDER  (OR  PLATE) 
PERPENDICULAR  TO  PLANE  OF  INCIDENCE  (OR  EDGE) 

El  A  1 

EH  >  SOURCE  PATTERN  FACTORS  FOR  X,Y,Z  COMPONENTS  OF 
EIZ  J  INCIDENT  E-FIELD 
EkX  \ 

tRY  >  X, Y,Z  COMPONENTS  OF  CYLINDER  REFLECTED  FIELD 
ERZ  J  IN  RCS 

EXPH  COMPLEX  PHASE  AND  SPREADING  FACTOR 

LDRC  SET  TRUE  IF  REFL  DATA  IS  AVAILABLE  FROM  PREVIOUS  PATTERN 
ANGLE  (OR  FOR  NEXT  PATTERN  ANGLE  (WEN  LEAVING  ROUTINE)) 
LHI1  SET  TRUE  IF  HAY  HITS  PLATE  (FROM  PLAINT) 

ME  EDGE  ON  PLA1E  VP  WHERE  DIFFRACTION  OCCURS 
MP  PLATE  WHERE  DIFFRACTION  OCCURS 
PH  DIFFRACTED  FIELD  POLARIZATION  UNIT  VECTOR  NORMAL 
TO  EDGE 

PHICR  PHI  C0MP0NEN1  OF  FIELD  INCIDENT  ON  CYLINDER  IN  RCS 
PHC  INCIDENT  FIELD  POLARIZATION  UNIT  VFCTOR  NORMAL  TO 
EDGE 

FoGH  INCIDENT  RAY  PHI  ANCLE  IN  DIFFRACTION  POINT  COORD  SYS 
PSk  DIFFRACTED  RAY  PHI  ANGLE  IN  DIFFRACTION  POINT  COORD  SYS 
RHII  CAUSTIC  DISTANCE  OF  CYLINDER  REFLECTED  FIELD  INCIDENT 
ON  EDGE  IN  THE  DIRECTION  PERPENDICULAR  TO  THE  EDGE 
RHI £  CAUSTIC  DISTANCE  of  CYLINDER  REFLECTED  FIELD  INCIDENT 
ON  EDGE  IN  THE  DIRECTION  PARALLEL  TO  THE  SHOE 
KHlb  EDGE  CAUSTIC  DISTANCE 

WHO  I  RAY  SPREADING  RADIUS  AT  CYLINDER  IN  PLANE  NORMAL 
TO  PLANE  Or  INCIDENCE 

«MC2  RAY  SPREADING  RADIUS  AT  CYL  IN  PLANE 
OF  INCIDENCE 

SMAG  LENGTH  OF  RAY  FROM  REFL  POINT  CH  CYL  TO  SOURCE 
SP  DISTANCE  uETt-cFN  REFLECTION  i?!P  DIFFRACTION  POINT 
THICK  THETA  COMPONENT  Of  INCIDENT  RAY  DIRECTION  ON 
CYLINDER  IN  RCS 

m>  DISTANCE  PARAMETER  FOR  EDGE  01 FFRACTEO  FIELD 

X.Y.Z  COMPONENTS  OF  INCIDENT  POLARIZATION  UNIT  VECTOR 
PARALLEL  ro  PLANE  OF  INCIDENCE 

X.Y.Z  COMPONENTS  OF  t)!C/RO-L  POLARIZATION  WIT  VECTOR 
PERPENDICULAR  TO  PLANE  OF  INCIDENCE 

*,Y ,2  COMPONENTS  OP  RfeH.ECTID'  POLARIZATION  UNIT  VECTOR 
PARALLEL  TO  the  "Lane  of  iMClOhm 
v (  X.Y.Z  COVPOMNTS  OF  RAY  PROPAGATION  01 RfrCl  JC  •’ 

CF  K AY  INCIDENT  it.  nipFBACTtOW  ffl|«T 
vie  X.Y.Z  COMPONENTS  OF  RAY  PROPAGATION  THPECTIO*?  OF- RAY 
INCIDENT  ON  CYt  J?1IEH 


UIIPxl 
UIPPY  ) 
uitpz  ) 

Ut  PRAT 
u l pry  ) 

UlPKZ  ) 
UmFI 
UhI  i 
Uhi 


IT  HA  J 
<KI’X  Y 
i*  T  Y  } 
iG-PA  ) 


VK  fcLL  ANGLE  DEFINING  HOfLECTION  PC  ITT  ON  CYL  (2-1)) 

XU  X.Y.2  COMPONENTS  OF  f>!  rFRAC'T  I  OH  POINT  IN  rtCS 

AUP  MOUIFIEU  DIFFRACTION  POINT  LOCATION  FOM  S"ANOWIMG  TEST 

Art  X.Y.Z  COMPONENTS  OF  REFLECTION  POINT  ON  CYL 
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g i-.-im  -J-^M.11-  u  iiigi^iff  j  ii-,  ■  "-4  y? 


CODE  LISTING 


2  SUBROUTINE  HCLDPLI  EDTH,  EDPH,  FN,  ME,  KP ) 

2  C!  !! 

4  LIU  COMPUTES  THE  HELP  REFLECTED  FROM  THE  ELLIPTIC  CYLINDER 

V  CM!  THEN  f)l i-FHACTEi;  FROM  EWE  #ME  OF  PLATE  #MP 
6  C! !! 

V  COMPLEX  Er .EG,EIPR,EIPL,EXPH,nS,nH,DPS,DPH,EDPR,EDPL.EDTH,EDPH 

b  COMPLEX  EHFR,ERPP,EIX,EIY,EIZ,ERX,ERY,ERZ 

V  DIMENSION  UM2),U13(2>»VIC(3)  ,XR(3) 

It)  DIMENSION  VI{3),XI)(3>,PHO<3>.PH(2>.BOP{3).BOX3),XOP<3) 

•II  LOGICAL  IJTIT  ,LRDC,LDEBUG,LTEST 

12  COPMON/GEOPI.A/XC  14,6, 3), VC  »*.o,3).VP< I4,6,3).VN<  14,3) 

12  2.MEPC I4),MPX 

I  <.  CUV.1' ON /i OR  I NF/XS  C  3 ) ,  VXSC  3,  3 ) 

IS  CQMMON/OI R/D ( 3 ) ,  THSf?  ,PHSR, SMI’S  ,CPHS, STHS.CTHS 

I  o  COMM Of.VGEO'-' tL/ A . B , ZC ( 2  > .  SNCC  2 )  .CNCC2  ),  CTCC  2 ) 

I  »  COMMON/tflDHCL/VCDC  U,6),!JCD<  l4,o),DCDC  14,6.2) 

1  b  COMMOti/THPHUV/DT  (3),  UP  (2) 

IV  COMMOH/PIS/P I , T  P I .OPR.RK) 

2ii  C0MK0N/1EST/LDEBUC.LTES7 

2  I  C0MM0N/CLRDC/L3DCC 14 .6) 

22  IFCFfl.GT.2.)  GO  TO  40 

23  0V=*>. 

24  CO  li)  Ns  I,  3 

2V  It)  I)Va[jV*t)(  N )  *V  (A. P.  ME,N ) 

20  Ull  IS  OlrFRACTICN  POSSIBLE? 

2'i  IF<DV.LT.aCL'(MP,;<£.l)4QH.DV.Gr.PCr)C«P.MF,2))  GO  TO  3V 

2b  CHI  COMPUTE  fiAl  PATH 

2 V  CALL  RFUFPTCVR, XR.DOTP.DO.SMAG, VIC, XD.SP, VI. OV, •!>£.**? 

20  2,LRDC(MP,,'S)  J 

31  Lil!  IS  h SELECTION  LEGAL? 

32  IFCDOTP.LE.O.)  GO  10  40 

32  CM!  IS  REFLECTION  POINT  OFF  OF  FINITE  CYLII-OER? 

34  IFCXRC3) .GT.ZCC I )*XR(I )«CTC< D.OR. 

3  V  2XHC3  )  .LT.2C(2)*Xt‘((  I  )*C7C<2  ) )  CO  10  41 

jo  CNP»CuS<FN*O.S*Pn 

-?  SNP»SIHtFf>U.S*Pt ) 

jo  DO  I  o  K»  1 , 3 

-v  VECT  ■  v  P  ( v? ,  a  f ,  ft »  vn  t  ap .  »t ) «  «HP 

4v  »©  xon :.*)•«)! M*vfec>!.5-s 

4  i  C1‘!  ;s  OIrFRACTEC  Ra v  5MA;>0.:gO  BY  A  PLATE  «• 

«  C!!.  A  CYLINDER? 

43  call  PLAlNTtiDP.li.WinV  P.LHIT) 

44  lE'LMIT;  GO  10  40 

4V  CAL,  CYUKTO©,O.I*HSa,OMlT.LHIT..T»UE. ) 

40  IrCLH'T)  GO  “0  4t? 

«*•  CS  it  IS  «*AY  feETPEEN  R  Sr  LECTION  Also  DIFFRACT 5CN  $iIA5<&Eft? 

4R  CALL  PL*  I I>"T <  Xrf, V  J . HHJT, *ip, LMIT ) 

•iv  tr  tLHIT.ANj .  COMT.LT.SP) )  f<0  TC  40 

St  c*  !!  55  «lt  JNCl'lfNT  <3t  CYL5*<rgF  «?!Ai)CIt£0? 

VI  CALL  PLAUTUS,  It. Wilt, 

V2  If  (1‘iiT.AMD.  tl'«5T  t.  .SUACl)  08  \r  40 

V.  OI*M. 

S4  pp*i* , 

Is  co»o. 

Vo  Pt  , 

V?  00  .'•*•1.3 

Vo  OKfti-vfsr:**,!  )*tf  J»kj 

W  t  «f  ,*;•  ,>i  }«*  |  ii;  i 

ew  CiU*Cy*vj  tsP.f  »*!«::) 

©i  ju  ^«p;s*vp3rf , if 

c.  f'S:'>rPu»rsyi> 

©V  A)  it 

tfc  PS«3  *-<; 
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o 7  IPtPS.L’l.O.)  FS»3fti*. *PS 

oO  FNP"rN*iflO.* I.E-A 

OV  IF (PSO.CT. FflP.03 .PS.CT.rllP)  GO  TO  4«» 

7  b  SPHO-SItUPSOKJ 

7  1  CPi(C«COSCPSOf<) 

72  SPH»Slfl<P5P) 

72  CPOCOSIPSP) 

74  C!  1 1  COMPUTE  POLARIZATION  UNIT  VECTCHS  F  )S  IIXIOEVT 

75  CHI  AND  DIFFHACTSD  FIELD  OK  PLATE 

7o  DO  30  f f*  1 , 3 

77  PHO(  N)  ■- VP(  V P,  HE  ,M  >* SPHO+Vfi(  MP  ,M  >*CPHU 

78  :-0  PH(?0*-\P<.'-'P,.‘IE,N)*SPH+VflC4P,r0*CPH 

7 V  BOP( l)»PHO(2)*VI (3>-PHO(3)*VI(2) 

bl  BOP12)«PHO<j)*VM1  )-P»IO(  I  J*V!<  j) 

«l  BOPt3)=PtiO<  I  )*VK2)-PHO<2)*VIO) 

62  UO( I )=PH(2 )«P( 3)-PH(3)*D(2 ) 

fcj  &0(2  )«PIi<3  )*bl  I  J-P!'(  I  )*D(i) 

b*  t«0(3)aPH(l  )*f{2)-PH(2)*L'(l  > 

bb  THICK-BlAflitSOHnviCd  J*VIC(  I)»VIC(2)*VIC(2)>.VIC(3J) 

bo  PHIC}£«8TAi;2tV{C(2),VlCt  I  )) 

a  7  CALL  SOURCE!  EF  ,EG,£IX,EI  Y.EIZ.UIICR,  Pf;tCfi,VXS> 

tb  HG»DD*f®*|5D/A/3 

bv  CALL  flAI.DBIlM.i'SMH) 

vc  CTHC«UN< l)*VI(  l)*o:U2>*VI(2) 

VI  Hl*»brAfi2t-ViC(  l)*LD<l>-VtC(2>*UB(2>.-VlCf3>) 

V2  S«-SUiCfP> 

vi  C«<OS(MO 

v*  SST2»SS*S«*Ct"*Cri*CTHC*CTHC 

vb  KH02*£.’.1AC 

Vt  WHOI  »S«AO*mC«CTHC/  ( PC*CTS(C*2  .*Jsl  AO«5ST2 ) 

v7  cm  CQ*'PC1fe  P0LARI2ATI0?;  UNIT  VECTCHS  FOB  INCIOEKT 
Vb  cm  AND  REFLECTED  FIELDS  AT  CYLI?4)Efi 
vv  UlPhX»SIN(i!R-.S*»2  i*U0t  t ) 

it*)  UIPiiY»Str:(.-P-o*PI  )*L5t2) 

lei  UIPH2«CCS«K-H-.b»PI) 

U«  OiPPX»VIC(  3>*U IPtfY-V ICI2  )*U!??IZ 

llj  UIPPY»VIC(  I  J*UPfi2-VICU)*?itPRX 

U4  UIPP2.¥ICJ2J«aS?RA-VICt  t 

iVb  UKPPa»¥IO»*CIP?Y-V!  (2  >*UI?82 

li?0  U»P?Y»YIM  }*LIP«2-VI  C3J*CIP;{£ 

ic>7  UhPP2«vU2  l  sY 

lib  cm  CALCULATE  CCPPSCIgftTS  0?  FIEL3  iNCiCS'**?  Cf>  CYLjF'DSP 
U<V  cm  PEHPg’WJICUUfi  ASO  PAS.AU.SL  TO  PL  A' IE  Or  HCIOSSCE 
lit  eXPH-C£XPtC«flitt’.  .-7PI«S7AC»/S*aC 

1 1 1  eiPK«0tPHi*F.U*UIt*^Y.?.(  Y*ifIPCC*st2 

l  >2  StPL»C!IP9S*EU*0|s>PY*gtY<SiPP'*Sl6 

n  j  cm  coiJpiaS  cc.!«p«ifcxTS  or  cyu«i?»  «pflsc; se  field 

ii*  is«pv«*sa8TtaMLii*Rii£a  »•?«»**•*  i»n 

1 1>  E  ftPr-  7 1  KHC  I  •  1(1*32 !  •£  iPI!*  £  I  PL 

lie  tl«A«i‘»tPh*UlPHs*S*I^P*I»PPs 

lil  chY*eHPi.*CIP<f»2ii5>?*fc7*?PY 

l  lb  efcl*fcHPfc*‘2SPiil*SW?P«t,«Pf*6 

n>  cm  <v*»wt  COmai-STS  «•  F! FLP  ISCISSMJ  W  PLATE 

llit  cm  tfSS  PAMLlit  ASP  P£KPeSJ»JC*3U3  to 

•  22  tf?t«£»A*»OP<n*Si3iY*e€iP«2I#tSS:*?P'Pt3J 

I ii  S§o«$Stf;«{vt*SV  s*¥f  «p.yf  ,l  > 

I2A  2»i?t  J I  *Otl  ilMjotvc  I  J-v< 

2  **2  : 

u«  cm  wiptfsrrs  8£i*tEC??J»“fit «*»*£;€?’  »#y  cystic 
i.  .  if  I!  01  s\ KiCkS  AND  SPdfAi)  F *C eV«-5 
?;.4  j!  H'S  *CfM  t ! * v 5 bl»s •7IS < 2 1 *C* 5 ppy 

i.-v  i  J*str*-*s«0S»^»*«lPwr 

..Si  i  i»a*|  I  » 

iji  CM  IY«^I&?>-2.*»S3M*C@U2! 

lij  U*fa!i  «<!{?>»?/ 
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153  UXH2 X-UlPliX-2.*U I N2*UN< I ) 

I5<  UXH2Y»U1PHY-2.*U1H2!*WH2) 

13b  UXH2Z-IJIPHZ 

156  TH 1 1  “U1PPX*UP<  I  )H)IPPY*ilD(2) 

157  1HI2-UIFPZ 

I3«  TH2I«UIPI(X*U6<  !)*U!PftY*UD<2) 

13V  TH22*J!PHZ 

Ul/  DkT-THII*TH22-THI2*TH2l 

14  1  OH  1 1 *1  ./£MA0>2 .*CT)C*TM22*TP22/(  RO*DET*OET) 

1 42  OH  12  —2 .  *CTHC*TH22*TKI 2/  <  HODcT^DET ) 

14  j,  0i<22»l./SMAO2.*CTHC*THI2*THI2/<RG*DE'f*0ET> 

l*<  GHH-0H22-I ,/HKOI 

1 4b  ODK»SOH»<OHH*OHH4QHI2*Ofi 12) 

Uo  XKI  X*(Ohi(*t!Xli  1  X-GR  I2*UXR2X  )/00H 

14  7  XH I Y =(OfiH«UX  R I Y-CH  12*UXR2Y )/QDH 

i4b  XHiz=(Oi.i:*uxMZ-n«)2*uxn22)/ODH 

Uv  XH2X»-(V1  (2)*X!!IZ-V!  (3)*XH)Y) 

!bc  X!'.2Y=-(VI  (5 )*.<«!  X-VI 1 1  )*XRIZ) 

lb  I  xa2Z*-<M<  I)*X.:1Y-VI  (2>*XH!X) 

ib2  cxiiiavii  p, n*xtnx*vcip,aE.2)*x»iY*vcMP, -IE, 3)*xhiz 

I  b5  CX((2«V  ( f*P  ,,-lE ,  I  )*XH2X*V  CMP,  ‘'E,2  )*XR2Y*V  ( fP,  S?E  ,3  )*XH22 

I b4  kHI E*fiHC I *HI:C2/t  nH02<XH  l*CXRI  4RH0 l*CXR2*CXR2) 

ibb  i»Ur>MrtE«SP 

Ibc  KHI  l*SP 

\‘j'  KhI2*M!C2*«P 

«M»  l*idU2*S90*£00/ki?!E 

ibv  OAH-xon  )»tK  n»xc{2)-*D(2)*xnt3)*n(3) 

lo.  EX?!:*CSX?te:F'l.X<tf.,7Pi*(CA*-SP:))/SCRT<RHt  l*RMI2 ) 

lo>  EXP!,*SXt-t'*SCPT(H’lls) 

Ic2  Ci !  I  C(;.  PlrI2  DIFFRACT IOC  COEFFICIEMTS 

If:  CAU.  t  .i(t>S.f:|-,r:PS,n?t‘,TPP,PS.P50,SS0,F»!..FALSE.) 

I(,4  CIS!  CY-rOIF  DJFFI  ACTED  FIELDS 
It!  SwPti—SJPH-tH^SXPD 

Iff  uLPL»-ul?L*t'S*EXDH 

U.T  c! !!  iHe-T /  A?D>  ?«!  COrPOHBiTS  OF  EUFFRACTED 

Ibv  4. ! ! !  Flat;:  t?  ;»cs 

(tv  LL-7:>b'!fL««fC(  I  )*OTC  i 5*3Cl2 )*OTt 2>*30t  J)*DTt 3>  > 

r.i  2*ttD?».»(PF(  n»DT<  I  )*P!’t2>*DTt2)4PHt3)*TT(3)) 

I*.  I  ELin:*»xQ:L»tsiC(  U*r?<  l>*30C2>»OPC2i ) 

iV  2*B0P4*ori  l)♦p»^{^)*^pc^n 

If*  t  '**  Vi  * 

17*.  .V  urc«'P,'*S)». FALSE. 

r.b  •*-  Srv‘v;f 

If  if  *y.l.®4i.,*J.f 

r.'i  i 

I  H  V  4  •*  iV  *>  *  S  *‘Ci: 

V  »  IpI;;.cT.LTE$T)  CLTCHI: 

i:-  .  «  |4|  ,  ;•  tit,  Vi-  t  I 

III.,'  F-iVMiTt/.f  TCSTIW  aclDPL  SUS8«m«S'> 

r>*-  .S.|sstft.«»  EL"H,  ,S?P 

I-, 

i.  *  y  f- 
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RCLRPL 


PURPOSE 

To  calculate  the  geometrical  optics  fields  of  a  source  ray  which 
is  reflected  by  the  elliptic  cylinder  and  then  reflected  by  a  given 
plate. 

PERTINENT  GEOMETRY 


y 


SOURCE 

LOCATION 


Figure  87— Illustration  of  ray  reflected  by  cylinder  and 
then  reflected  by  a  plate. 


METHOD 

Subroutine  RCLRPL  functions  as  a  service  routine  for  subroutine 
SCLRPL,  where  the  actual  cylinder  fields  are  computed.  The  geomet¬ 
rical  optics  reflected  field  components  ETH  and  EPH  computed  in  RCLRPL 
are  used  only  for  reference  purposes  (when  LOUT  is  set  true).  The 
field  components  calculated  in  RCLRPL  which  are  used  in  SCLRPL  are 
the  hard  and  soft  components  of  the  source  field  incident  on  the 
cylinder  at  the  reflection  point.  These  components,  along  with  sev¬ 
eral  other  useful  parameters  are  passed  to  subroutine  SCLRPL  through 
common  block  FUOGJ. 
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The  geometrical  optics  fields  determined  in  this  subroutine, 

£pr  the  reflection  from  the  cylinder,  are  calculated  in  the  direction 
DJ.  This  direction  is  found  by  imaging  the  observation  direction 
into  the  plate,  as  illustrated  in  Figure  87.  The  cylinder  reflected 
fields  are  found  in  a  similar  manner  to  those  obtained  in  subroutine 
REFCYL.  The  plate  reflected  fields  are  found  by  satisfying  the  bound¬ 
ary  conditions  for  the  fields  on  the  surface  of  the  plate. 

The  phase  of  the  resultant  double  reflected  field  is  referred  to  the 
reference  coordinate  system  origin.  The  double  reflected  field  thus 
has  the  form 

v  -jkR 

£  ’  Wm(ETH8+EPH$)  , 

-jkR 

where  the  factor  —  and  the  source  weight  (VI  )  are  added  elsewhere 
in  the  code.  K 
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ray  shadowed  anywhere?. 


Yes 


NO 


t 
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SYMBOL  DICTIONARY 


A I 
A2 
A3 
C  II 
C  12 
C2I 
C22 
D 

UDI 

UU2 

OH  IT 
UH'l 
01 
OJ 

EF 

EG 

EHPH 

EHT'H 

EIPP 


El  PH 
EllPP 

ERPR 

EHX 

ERY 

ERZ 

ESPH 


ESTH 

EX 

EY 

EZ 

GAM 

LHH 

LRFS 

LTRFJ 

PH 

PHIH 

PHJH 

K'HO  I 

RH02 

SMAG 
SXN  T 
SYN  > 
SZN  > 
THIN 
HUH 


FIELD  COMPONENTS  OF  RAY  INCIDENT  ON  PLATE 
NORMAL  AND  TANGENT  TO  THE  PLATE 
DETERMINANT  OF  POLARIZATION  TRANSFORMATION 

COEFFICIENTS  USED  TO  CONVERT  POLARIZATION  FROM 
THETA  ANO  PHI  COMPONENTS  IN  RCS  TO  COMPONENTS 
NORMAL  AND  TANGENT  TO  PLATE  (AND  VICE-VERSA) 

PROPAGATION  DIRECTION  AFTER  PLATE  REFL.  IN  (X,Y,Z) 

RCS  COMPONENTS 

DOT  PRODUCT  OF  UNIT  VECTOR  OF  PROPAGATION  DIRECTION  AND 
CYLINDER  TANGENT  UNIT  VECTOR  THROUGH  TAN  POINT  I  <2-D> 

DOT  PRODUCT  OF  UNIT  VECTOR  OF  PROPAGATION  DIRECTION  AND 
CYLINDER  TANGENT  UNIT  VECTOR  THROUGH  TAN  POINT  2  <2-D) 
DIS1ANCE  FROM  SOURCE  TO  HIT  POINT  (FROM  PLAINT) 

DISTANCE  TO  HIT  POINT  (FROM  PLAINT  AND  CYI.INT) 

X, Y,  AND  Z  COMPONENTS  OF  INCIDENT  RAY  DIRECTION  ON  CYL  IN  RCS 
X,Y,Z  COMPONENTS  OF  PROPAGATION  DIRECTION  OF  RAY 
INCIDENT  ON  PLATE 

PATfERN  FACTOR  OF  THETA  COMPONENT  OF  INCIDENT  FIELD  IN  RCS 
(ALSO  THETA  COMPONENT  OF  CYL  REFLECTED  FIELD  IN  RCS) 

PATTERN  FACTOR  OF  PHI  COMPONENT  OF  INCIDENT  FIELD 
IN  RCS  (ALSO  PHI  COMPONENT  OF  CYL  REFL  FIELD  IV  RCS) 

PHI  COMPONENT  OF  HARD  COMPONENT  OF  FIELD  INCIDENT 
ON  CYLINDER 

THETA  COMPONENT  OF  THE  HARD  COMPONENT  OF  FIELD  INC  ON  CYL 
(PARALLEL  TO  PLANE  OF  INCIDENCE) 

INCIDENT  FIELD  COMPONENT  PARALLEL  TO  PLANE 
OF  INCIDENCE  ON  CYLINDER 

INCIDENT  FIELD  COMPONENT  PERPENDICULAR  TO  PLANE  OF  INC  ON  CYL 
COMPON  EM 'I  OF  CYLINDER  REFLECTED  FI  an  PARAaF.L 
TO  PLANE  OF  INCIDENCE 

COMPONENT  OF  CYLINDER  REFLECTED  FIELD  PERPENDICULAR 
TO  PLANE  OF  INCIDENCE 

X, Y,Z  COMPONENTS  OF  CYLINDER  REFLECTED  FIELD 
IN  RCS 

PHI  COMPONENT  OF  SOFT  COMPONENT  OF  FIELD  INCIDENT 
ON  CYL 

THETA  COMPONENT  OF  SOFT  COMPONENT  OF  FIELD  INCIDENT 
ON  CYL 

X.Y.Z  COMPONENTS  OF  SOURCE  FIELD  PATTERN  FACTOR 
IN  RCS 

PHASE  CONSTANT 

SET  TRUE  IF  RAY  HITS  PLATE  (FROM  PLAINT) 

SET  TRUE  IF  REFL  DATA  IS  AVAILABLE  FROM  PREVIOUS  PATTERN 
ANGLE  (OR  FOR  NEXT  PATTERN  ANGLE  <  i'.HEN  LEAVING  ROUTINE)) 

SET  TRUE  IF  C.O.  REFLECTED-REFLECTED  FIELDS 

DO  NOT  EXIST 

COMPLEX  PHASE  CONSTANT 

PHI  COMPONENT  OF  INCIDENT  RAY  DIRECTION  ON  CYL  IN  RCS 

PHI  COMPONENT  OF  RAY  PROPAGATION  DIRECTION 

BETWEEN  CYLINDER  AND  PLATE  IN  RCS 

RAY  SPREADING  RADIUS  IN  PLANE  OF  CYLINDER  CURVATURE 

AT  REFLECTION  POINT 

HAY  SPREADING  RADIUS  IN  PLANE  NORMAL  TO  PLANE  OF 

INCIDENCE  AT  REFLECTION  POINT 

LENGTH  OF  RAY  FROM  REFL  POINT  ON  CYL  TO  SOURCE 

X.Y.Z  COMPONENTS  Or  UNIT  VECTOR  OF  RAY  FROM  REFL. 

POINT  ON  CYLINDER  TO  SOURCE  LOCATION  IN  RCS 
THETA  COMPONENT  Of  INCIDENT  RAY  DIRECTION  ON  CYLINDER 
THETA  COMPOf ENT  OF  RAY  PROPAGATION  DIRECTION 
BLlT.EEH  CYLINDER  AND  PLATE 
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U1PPX  ■) 

UIFPY  >X,Y,Z  COMPONENTS  OF  INCIDENT  POLARIZATION  UNIT  VECTOR 

UtPPZ  J  PARALLEL  TO  PLANE  OF  INCIDENCE 

UIPRX'I 

UIPRY  >X,Y,Z  COMPONENTS  OF  IUC/REFL  POLARIZATION  UNIT  VECTOR 

UIPHZ J  PERPENDICULAR  TO  PLANE  OF  INCIDENCE 

URPPXA 

UKPPY>X,Y,Z  COMPONENTS  OF  REFLECTED  POLARIZATION  UNIT  VECTOR 
UKPPZ J  PARALLEL  TO  PLANE  OF  INCIDENCE 

VT  X.Y.Z  COMPONENTS  OF  POLARIZATION  UNIT  VECTOR  TANGENT 
TO  PLATE  AND  NORMAL  TO  RAY  INCIDENT  ON  PLATE 
VXS  MATRIX  DEFINING  SOURCE  COORDINATE  SYS  AXES  IN  RCS  COMPONENTS 
XR  X,Y,Z  COMPONENTS  OF  REFLECTION  POINT  LOCATION  ON  CYL 

XKS  REFLECTION  POINT  ON  PLATE  (ALSO  CYL  REFL.  POINT  IMAGE 

LOCATION  IN  PLATE)  ALSO  CYLINDER  REFLECTION  POINT 


CODE  LISTING 

2  C  SUBROUTINE  RCLRPL! ETH,EPH,UP) 

3  C! !! 

4  C!!t  COMPUTES  THE  G.O.  FIELD  REFLECTED  FROM  THE  L.^IPTIC  CYLINDER 

5  cm  THEN  REFLECTED  FROM  PLATE  #MP 

6  cm 

7  DIMENSION  UN!2)  ,UB!2  )‘,DI  !3>  ,DJ! 3)  ,XRSt  3)  ,VT' 3) 

8  COMPLEX  ETH,EPH,EX,EY,EZ,PH,EIPR,EIPP,ERX,T  (Y.ERZ, ERPR,ERPP 

9  COMPLEX  EF,EC,A1 , A2, ESTH.ESPH, EHTH.EHPH.TRAN 

10  LOGICAL  LHIT,LRFS,LDEBUG,LTEST,LTRFJ 

1 1  COMMON/FUDGJ/TRAN,ESTH,ESPH,  EHTH,EHPH,XR!3)  ,RG,R',iOI,SMAG,LTRFJ 

1 2  COMMON/GEOMEL/ A,  B , ZC  <2  ) , SNC !  2 )  ,CNC <2  > , CTC12  > 

13  COMMON/SORINF/XS!3),VXS!3,3) 

14  COMMON/GEOPLA/X! 14,6,3), V( I4,6,3),VF)!  I4,6,3),VN< 14-3) 

15  2,MEP(14),MPX 

16  COMMON/PIS/PI, TPI, DPR, RPD 

17  COMMON/DI R/D <3 ) ,THSR,PHSR,SPS, CPS, ST HS.CTHS 

18  COMMON/THPHUV/DT  !  3 ) ,  DP  ( 2 ) 

19  COMMON/bNDSCL/DTS, VTS<2) ,BTS(4) 

20  COMMON/TEST/LDEBUo, LTEST 

21  COMMON/CLHFS/LRFSC 14  > 

22  IF(LDEBUG)  WRITE!6,900) 

23  900  FORMAT!/'  DEBUGGING  RCLRPL  SUBROUTINE') 

24  LTRFJ-.<  ALSE. 

25  IF(DTS.LT.-1 .5)  GO  TO  12 

26  C!U  COMPUTE  DIRECTION  OF  RAY  INCIDENT  ON  PLATE 

27  CALL  REFBP(PHJR,THJR,PHSR,THSR,MP) 

28  SPHJ-SINCPHJR) 

2V  CPHJ*COS(PHJR) 

30  STHJ-SIMTHJR) 

31  CTHJ-COS(THJR) 

32  DJ ( 1 )«CPHJ*STHJ 

33  DJ!2)-SPHJ*STHJ 

34  DJ(3)-CTHJ 

35  DXY“XS( 1 )*CPHJ*XS(2>*SPHJ 

36  IF!DXY.GT.0.)  GO  TO  10 

37  DD1*BTSU)*CPH>BTS(2)*SPHJ 

38  DD2»BTS!  3)*CPHJ*BT5!4)*SPHJ 

39  C!!!  CAN  CYLINDER  REFLECTION  OCCUR? 

40  IF!DDI.GT.DTS.AND.0D2.GT.DT5>  GOTO  12 

41  .10  CONTINUE 

42  Cl!!  COMPUTE  CYLINDER  SELECTION  POINT  LOCATION 

43  CALL  RFPTCL!  PHJR,-MP,VR,DOTP,DO,S,LR';S  IMP) ) 

44  IF(LDEBUG)  WRITE<6,*)  VR,DOTP,k  ,S,LRFS!MP> 

45  IF(DOTP.LE.0.)  GO  TC  11 

46  XR(  1  )»A*C0S!  VR  '• 

47  XR(2 )“B*SIN<  VP)  r 

48  XR!3>-XS!3)*S*CTHJ/STHJ 

4V  C1U  IS  REFLECTION  POINT  ON  CYI.INUER? 

50  IF(XR(3).GT.  C!i HXR!  I  >*CTC!  I >  .OR. 

51  2XR(3).LT.ZCU)4XR<  I  >*CTC<2  )>  GO  TO  1 1 

52  DO  15  N«l,3 

53  15  X^SINJ-XHtN) 

54  C1H  DOES  REFLECTION  FROM  PLATE  OCCUR? 

55  CALL  PLAINT! XRS.DJ ,DHJT,-MP,LHIT> 

56  IF(.NOT.LHIT)  00  TO  II 

57  CU!  IS  RAY  SHADOWED  ANYWHERE? 

58  CALL  PLAINT! XRS,D,DNT,MP,LHIT> 

5V  IFILHIT)  00  TO  II 

60  CALL  CYL1NT!  XRS,D,1-HSR,DHT,LHIT,  .TRUE. ) 

61  IF!LH1T)  00  TO  II 

62  CALL  PLAINT! XR,DJ,DHT,MP,LHIT) 

63  IF!LHIT.AND. iDHT.LT.DHJT>)  GOTO  II 

64  SXN-XSMl-Xf'!! ) 

65  SYN*XS»2)-XR<2> 

66  S7N— S*CTHJ/ST'U 


67  SMA05GRT<  SXN*  SX  tl*  SYN*SYN+SZN*SZN 1 

68  SXN-SXN/SKAC 

69  SYN-SYN/SMaC 

70  SZN-SZN/SMAG 

71  PHIR«8TAN2(-£YN,i-SXN) 

72  TNIR-BTAN2  <SGfmSXN*SXN+SYN*SYN> ,-SZN) 

73  DI  ( 1  )"COS(PHIR)*SIN(THIR) 

74  DI  (2 )*SIN( PHIR)*SIN(THIR) 

7b  ul <3)»C0S<THIR) 

76  CALL  PLAINT(XS.DI,DHIT,0,LHIT) 

77  IFfLKIT.AND. (DHI  T.LT.SMAG) 1  GO  TO  1 1 

78  C I ! I  COMPUTE  SOURCE  PATTERN  FACTOR 

79  CALL  SOURCE! EF tEG, EX,  EY, EZ,THIR, PHIR,VXS) 

80  IF(LDEBUG)  HRITSI6,*)  EF.EG 

81  PG«DD*D.n*DD/A/B 

82  CALL  NANOB(UN,UB.VR) 

83  CTHN»UN( 1 )*DJ( t )+UN(2)*DJ(2) 

84  NR«BTAN2<SXN*UB< I  >*SYN*UB<2)  ,SZM 

85  SfMSIN(WR) 

86  CN-COSIhRi 

87  SST2*SW*SW*CW*  CW*CTHX'  *  CTHW 

68  RH02*S11AG 

89  RHO I  "SMAG* RG*CTH W/  ( R G*CTHW *2  .*SMAG*SST2) 

90  IF(LDEBUG)  WRITE(6,*>  RG, RHQ1 , RH02.CTHI, SS.2 
VI  C!  i!  COMPUTE  POLAR!  AHON  UNIT  VECTORS  FOR 

V2  C1U  INCIDENT  AND  f  iFLECTED  FIE  i  AT  'CYLINDER 
93  UIPRX-SiN(WR-PI/2.)*UBf 1 ) 

V4  UIPRY»SIN(NR-PI/2.  >-*UB(2) 

95  "IPRZ«CCS(WR-PI/2. 1 

96  IPPX«SYN*UIPRZ-S2.W*UIPRY 

97  UIPPY»SZN*UIPRX-SXN*UIPRZ 

98  U I PPZ»S  XN*  UI PR  Y“ SYN*U I  PR  X 

9V  URPPX«UIPRY*DJC3>-’JIPRZ*DJ<2> 

UW  URPPY*UIPRZ*OJtl >-UIPRX*DJC3) 

101  URPPZ»U1P?X*DJ(2  ‘  *UI  PRY*DJ ( I ) 

102  PH-CEXP<C.;PLX<0.,-TPI*SMAG))/SMAG 

103  C!l!  COMPUTE  FIELD  COMPONENTS  OF  RAY  INCIDENT  ON  CYL. 

104  El PR»<  UI PRX*EX«UI PRY*EY*UI PRZ*EZ ) 

105  EI.PP«<-TPPX*EXmPPY*EY+UIPPZ*EZ> 

106  C!!l  COMPUTT  LOCATION  OF  CYLINDER  REFL.  POINT 

107  CIIl  IMAGE  IN  PLATE  HP 

108  CALL  IMAGE CXRS,XR,ANR,MP) 

109  GAM*XRS( 1 )*D( I >*XRS(2>*0(2  >*XRS<3)*0<3> 

110  PH-PH*CEXP(CMPLX(0.,TPI*GAM)) 

IJ  I  SQRH-SORTC  PHOI  *RH02 1 

112  CU!  COMPUTE  V  IPONENTS  OF  CYLINDER  REFL.  FIELD 
M3  CIIl  PARALLEL  AND  PERPENDICULAR  TO  PLANE  OF  INC 

114  £RPfc*-SQRH*PH+EI  PR 

115  ERPP«SGkH*PN*ElPP 

116  TRAN-SQRH*PH 

117  ERX»ERPR*UJPRX*ERPP*URPPX 

118  ERY»ERPR*UIPRYtERPP*URPPY 

119  ERZ»ERPR*UIPRZtERPP*URPPZ 

120  cm  COMPUTE  THETA  AND  PHI  COMPONENTS  OF  CYLINDER 
12  i  C!!'  REFLECTED  FIELD 

1 22  EF»ERX*CPHJ*CTHJ*ERY*SPHJ*CTHJ-ERZ*STMJ 

123  EG— EHX*SPHJ4ERY*CPHJ 

124  CIIl  CALCULATE  POLARIZATION  VECTORS  AND  DOT  PRODUCTS 

125  CIIl  NECESSARY  TO  COMPUTE  PLATE  REFLECTED  FIELD 

»?"  VT(n«VN(MP,2)*0t3)-Vf4(MP,3)*0(2) 

l«~  VTt2l»VNtMP,3>*Om-VHIMP,  l)*0<3) 

*28  VT{31«VN(MP,l)*D(2)-VN<.MP,2)*OMS 

129  C1I»VN(MP, l>«CPHJ*CTKJTVH(MP,2)*SPHJACT>U-Vtl(MP,3)*STHJ 

130  CI2«-VN(MP.I >*SPHJtVN(«P,2)*CPHJ 

131  C21«VTU)*CPKI*CTH>VT(2)*SPHJ*CnU-VT(2)*STNJ 

132  C22«-VT ( 1 ) *SPHJ»VT  <2 )*CPHJ 


133  CHI  COMPUTE  FIELD  REFLECTED  FROM  PLATE 

134  AI*EF*CI 1 ♦EO*C 1 2 

135  A2»EF*C2I*EG*C22 

136  CJI-VNIMP, l)*OT< l>4VN(MP,2)*Dn2)4VN<MP,3)*DT<3> 

137  C.I2«VN(MP,  I  )*DP(  I  )+VN(MP  ,2  )*DP(2 ) 

138  C2I-VTH )*DT(1 >*VT<2)*DT(2)+VT(3)*DT(3) 

13V  C22*VT( I )*DP ( 1 )*VT(2 )*DP(2 ) 

140  A3«CU*C22-Ct2*C2l 

141  C! 11  COMPUTE  THETA  AND  PHI  REFLECTED  FIELD  COMPONENTS 

142  ETH»CAI*C22+A2*C12)/A3 


143  £PH»-(A2*CI I ♦A 1 *C2 1 )/A3 

144  Cl ! !  COMPUTE  THETA  AND  PHI  COMPONENTS  OF  HARD  AND 

145  Cl  11  SOFT  COMPONENTS  OF  RAT  INCIDENT  ON  CYLINDER 

146  ERX*EI Ph*UIPRX 

147  ERY*EI PR*UIPRY 

148  ERZcEIPft*UIPR2 

1 49  ESTH»ERX*CPHJ*CTHJfERY*SPHJ*CTHJ-ERZ*STHJ 

150  ESPH»-Ef<X*SPHJ*ERY*CPHJ 

151  ERX*EI PP*URPPX 

152  ERY»EI  PP*URPPY 

153  ERZ-EI PP*URPPZ 

1 5  4  EHTH*ERX*CPH J*CTHJ *£R Y*SPRJ*CTHJ-ERZ*STHJ 

155  EHPH—  ERX*SPHJ*ERY*CPHJ 

156  GO  TO  905 

157  12  LRFS(MP)«. FALSE. 

158  II  LTRFJ-.TRUE. 

159  ETH*(0.,0. ) 

160  EPH*<0. ,0. ) 

161  V05  CONTINUE 

162  IF(.NOT.LTEST)  RETURN 

163  NRITEC6.901 > 

164  90  J  FORMAT!/,'  TESTING  RCLRPL  SUBROUTINE') 

165  WRITE(6,*)  ETH.EPH.MP 

166  RETURN 

167  END 


I 
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REFBP 


PURPOSE 

To  calculate  incident  ray  direction  needed  in  order  to  obtain  re¬ 
flected  ray  in  a  given  direction  off  of  a  specified  plate. 

PERTINENT  GEOMETRY 


Figure  88— Illustration  of  incident  and 
reflected  rays  on  plate. 

METHOD 

A  A 

VI  is  found  by  imaging  DR  into  plate  HP: 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


CPS  COSINE  OF  PHSS 

CIS  COSINE  OF  THSR 

ON  CROSS  PRODUCT  CF  OR  ANO  VN 
JR  REFLECTED  RAY  PROP NATION  DIRECTION  IN  X.Y.2 
PCS  COMPONENTS 

END  EHRCR  DETECTION  VARIABLE 

MP  PLATE  UPON  WHICH  REFLECTION  OCCURS 

PHIR  PHI  COMPONENT  0?  INCIDENT  RAY  PROPAGATION 
DIRECTION  ?N  RCS 

PUSR  PMJ  COMPONENT  <>'  REFLECTED  »AY  PROPAGATION 
DIRECTION  IN  SCS 
SFS  SINE  OF  PMSI. 

STS  SINE  Or  THSR 

THl k  THETA  COMPONENT  Cf  INCIDENT  P'v  PROPAGATION 
DIRECTION  IN  RCS 

THSR  THETA  CO*‘  '?.*>.  T  O  REFLECTED  RAY  PROPAGATION 
018SCII0S  IN  RCS 

»5  X.Y.2  COMPONENTS  Of  iJcCISFJf?  RAY  PROPAGATION 

fti  Ifrld  i  *£  fci-  *' 

YIN  r-~T  P-  ’tWC'}  O'  PLATE  KGRkaL  AND  VI 
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CODE  LISTING 


2  SUBROUTINE  REF3P(PHIR,THIR,PH58eTHSR.MP) 

3  C!  !! 

<  cm  DETERMINE  INCIDENT  BAY  DIRECTION  (PHIR.THIB) 

5  CH!  II-  NAY  NEGLECTED  FROM  PLATE  #MP  IS  IN  (PHSP.THSR)  DIBECTION. 

o  cm 

7  DIMENSION  DR(3),VH3) 

b  COiWON/CEOPLA/X( 14,6,3), V( 14,6,3), VPI 14,6,3), VN< 14,3) 

ii  7  »JDY 

It)  COA«ON/pis/Pl,TPi,nPR,flPD 

11  CPS«COS(PH£N) 

12  SPS«SINt  PHSB  J 

13  CTS=COStlHSS) 

U  STS*SI?UTHSR) 

IS  nB(l)-CPS*STS 

to  Dli<2  )»SPS*STS 

17  UftC3)*CTS 

lb  Ci !!  TAAE  DOT  PRODUCT  OF  DR  AND  VN 

iv  0ci.«vtmip,i  t  )-»vN{iip.2>*ORt?)*vfi<M>,3)*i)R«2) 

2i>  C!!!  CALCULATE  VI,  THE  INC  RAY  DIRECTION 

21  00  Itl  M»l,1 

22  IW  VI  tfl)«DMN)-2,*DN-*VN(PP,ll) 

23  cm  CONVERT  VI  TO  SPHERICAL  ANGLES  IN  RCS 

24  PHiW«*JTAN2{Vi(2>,VI(l)) 

25  THill'*UTAK2  < SORT! VI  ( I  )*VI  ( I  )*VI  (2 )*VI  (2  ) )  .VI  ( 3)  ) 

2o  VlN*>'flUP,  |  >*V|{  U*VNUP,2)*VI<2>*VN<**P,3)*vn3) 

27  EH  D*  ARS  ( DN*  V I N ) 

2b  IFtEhD.CT.  I.E-S)  N»nE(6,l)  ERD.PHSR.TKSR 

2V  I  FORMAT ( *  ERROR  IN  R£FBP»  '.3F12.5) 

in;  RETURN 

3 1  END 
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REFCAP 


PURPOSE 

To  calculate  the  far-zone  electric  field  resulting  from  the 
reflection  of  the  source  off  of  a  given  cylinder  end  cap. 


Figure  8S--IUu$tration  of  source  ray  reflection  from  end  cap* 
KtTHQO 


The  field  reflected  froa  a  cylinder  end  cap  is  found  using 
image  theory.  First  the  ray  path  is  checked  to  insure  that  the 
reflection  point  is  on  the  end  cap  and  that  the  ray  is  not  shadowed. 
The  fields  are  then  calculated  using  the  SOtStCE  subroutine  with 
the  source  coordinates  oriented  froas  image1  theory  so  tl.at  the  proper 
boundary  conditions  aet  at  the  surface  of  the  end  cap.  The 
phase  is  referred  to  the  reference  coordinate  system  origin  using 
iLn.tfr 

the  factor  eJ  .  The  reflected  field  has  the  fora 


tr(r.0,e) 


WjETH0*EPKe) 

91 


IRS  M* 


►jkR 


or 


and  source  weight  (W^)  are  added  elsewhere  in 
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FLOW  DIAGARM 


REFCAP  (ETH.tW.HC) 


input  vwiaji.es 

Mf  end  c*p  for  which  reflection  occurs 
OUTPUt  VWIA8t.ES 

ETH  thet*  ew^enent  of  reflected  E-field 
with  phjse  referred  to  ACS  origin 
EPH  phi  component  of  reflected  E  fietd 
with  phete  referred  to  ACS  origin 


*es 


SYMBOL  DICTIONARY 


DHT  DISTANCE  FROM  SOURCE  TO  HIT  POINT  ON  END  CAP  (FROM 
CAP I  NT) 

DHIT  DISTANCE  FROM  SOURCE  TO  HIT  POINT  ON  PLATE 
(FRCM  PLAINT) 

DI  UNIT  VECTOR  OF  INCIDENT  RAY  PROPAGATION  DIRECTION 

DN  DOT  PRODUCT  OF  REFLECTED  RAY  PROP  DIR  AND  END  CAP  UNIT 

NORMAL 

DNI  DOT  PRODUCT  OF  INCIDENT  RAY  AND  END  CAP  UNIT  NORMAL 

EF  PATTERN  FACTOR  FOR  THETA  COMPONENT  OF  INCIDENT  E  FIELD 

EG  PATTERN  FACTOR  FOR  PHI  COMPONENT  OF  INCIDENT  E  FIELD 

EPH  PHI  COMPONENT  OF  REFLECTED  E  FIELD  IN  RCS 

ETH  THETA  COMPONENT  OF  REFLECTED  E  FIELD  IN  RCS 

EX  PHASE  TERM 

GAM  PHASE  TERM  PARAMETER 

LHIT  SET  TRUE  IF  RAY  HITS  PLATE (FROM  PLAINT) 

MC  END  CAP  WHERE  REFLECTION  OCCURS 

N  DO  LOOP  VARIABLE 

NC  SIGN  CHANGE  VARIA3LE 

NI  DO  LOOP  VARIABLE 

NJ  DO  LOOP  VARIABLE 

VAX  X,Y,Z  COMPONENTS  DEFINING  THE  IMAGE  SOURCE 
COORDINATE  SYSTEM  IN  CXYZ.)  RCS  COMPONENTS 
VN  UNIT  NORMAL  TO  END  CAP  IN  RCS  (X,Y,Z)  COMPONENTS 
XIS  SOURCE  IMAGE  LOCATION 
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CODE  LISTING 


1  c - ; - - - - - 

2  SUBROUTINE  REFCAP! ETH.EPH, MC) 

SC!!! 

4  CIS!  COMPUTES  THE  REFLECTED  FIELD  FROM  THE  END  CAPS 
b  C! ! !  OF  THE  ELLIPTIC  CYLINDER 
o  C! ! ! 

7  COMPLEX  £TH»£PH, EF.EG, EIX,EI Y, EIZ, EX 

8  DIMENSION'  XIS<3) ,DI!3),VN(3)  ,VAX(3,3) 

V  LOGICAL  LHIT.LDEBUG, LTEST 

10  CQMMON/DIR/D<3 ) .THSR.PH5R, SPHS.CPHS.STHS.CTHS 

■II  COMMON/SOHINF/XS(3),VXS(  3,3) 

12  COMMON/IMCINF/XIC<2,3) ,VXIC(3, 3,2) 

1 3  COMMON/GEOMEL/A,  B, ZC !2 ) ,  SNC< 2 )  ,CNC<2  )  ,CTC(2 ) 

14  COMMON/PIS/PI, TPI, DPR, RPD 

1 b  COMM  ON/TEST/LDEBUG , LTE ST 

16  IF(LDEBUG)  WRITE(6,900) 

IT  900  FORMAT!/,'  DEBUGGING  REFCAP  SUBROUTINE') 

18  C! ! !  SPECIFY  IMAGE  LOCATION 
IV  DO  5  N=1 ,3 

20  b  XIS!N)»XIC(MC,N) 

21  Cl  ! !  DOES  RAY  FROM  IMAGE  PASS  THRU  DISK 

22  CALL  CAPINT! XIS»D, DHT, MC.LHIT) 

23  IF(.NOT.LHIT)  GO  TO  30 

24  Cl! I  DOES  HEFL.  RAY  HIT  A  PLATE 

2b  CALL  PLAINT! XI S, t), DHIT ,0 ,LHIT) 

26  IF! LHI T >  GO  TO  30 

27  Oil!  KNOWING  OBS.  DIR.  COMPUTE  THE  INCIDENT  RAY  PROPAGATION 

28  Oil!  DIRECTION 

2 V  NC*MC 

30  IF(MC.GT.l)  NC*— 1 

31  VN!  1  )*=-NC*CNC(  MC ) 

32  VN(2)*0. 

33  VN ( 3 )=NC*SNC (MC ) 

34  DN*VN! I )*D( 1 )+VN<2  )*D(  2  )+VN  ( 3)*D(3 ) 

3b  DO  10  N*1 ,3 

36  10  DI(N)=D!N)-2.*DN*VN(N) 

37  Oil!  DOES  RAT  FROM  SOURCE  HIT  A  PLATE 

3b  CALL  PLAINT! XS.DI , DHIT, 0, LHI T) 

3V  IFILHIT.AND. IDHIT.LT. DHT))  GO  TO  30 

40  dll  DOES  HAY  FROM  SOURCE  HIT  THE  CYLINDER 

41  DNI»VN!  I  )*DI  ( 1  )+VN  <2  )*DI  (2  )+VN  !3  )*DI  !3  ) 

42  IFIDNI.OE.0, )  GO  TO  30 

43  Cll!  SPECIFY  SOURCE  IMAGE  AXES 

44  DO  20  NJ*I ,3 

45  DO  20  NI-1 ,3 

4020  VAX!  NI  ,NJ)  =VXIC(  NI .NJ.MC) 

47  Oil!  CALCULATE  INCIDENT  FIELD  PATTERN  FACTOR 

48  CALL  SOURCE! EF.EG, El X,EI Y,EIZ,TFSR ,PHSR, VAX) 

4 V  IF(LDEBUG)  WRITE!6,*)  XIS 

b0  IF(LDEBUG)  WRITE (6,*)  EF.EG 

bl  Clll  CALCULATE  PHASE  TERM  IREFER  PHASE  TO  RCS  ORIGIN) 
b2  GAM-XIC(MC,I )*D( 1 )+XIC(MC,2)*D!2)+XIC(MC,3)*D!3) 

b3  EX-CEXP'.CMPLX!0.  ,TPI*GAM)) 

54  ETH*EF*EX 

bb  EPH“EG*EX 

56  RETURN 

57  30  CONTINUE 

58  ETH*!0.,0.) 

5V  EPH«!0.,0. > 

00  IF (.MOT. LTEST)  RETURN 

61  WRITE(6,V1 0) 

62  V10  FORMAT!/,'  TESTING  REFCAP  SUBROUTINE') 

63  WHITE! 6,*)  ETH.EPH.MC 

64  RETURN 

6b  END 


PURPOSE 


To  calculate  the  geometrical  optics  field  due  to  reflection  of 
the  source  field  off  of  the  cylinder  surface  and  generate  data  used 
in  subroutine  SCTCYL. 


Figure 90—  Geometry  of  ray  reflected  from  cylinder. 

=  UIPRX  x  +  UIPRY  y  +  UIPRZ  z 

e,1,  =  UIPPX  x  +  UIPPY  y  +  UIPPZ  z 

el  =  URPPX  x  +  URPPY  y  +  URRPZ  z 

UN  =  UN(l)x  +  UN(2)y  -  normal  to  cylinder 

UB  =  UB(l)x  +  UB(2)y  =  tangent  to  cylinder 
XR  =  reflection  point  =x  XR(1)  +  ^  XR(2)  +  z  XR(3) 


METHOD 


Subroutine  REFCYL  functions  as  a  service  routine  for  subroutine 
SCTCYL,  where  the  actual  cylinder  fields  are  computed.  The  geo¬ 
metrical  optics  reflected  field  components  ETH  and  EPH  computed 
in  REFCYL  are  used  only  for  reference  purposes  (when  LOUT  is  set 
true).  The  field  components  calculated  in  REFCYL  which  are  used 
in  SCTCYL  are  the  hard  and  soft  components  of  the  source  field 
incident  on  the  cylinder  at  the  reflection  point.  These  components, 
along  with  several  other  useful  parameters  are  passed  to  subroutine 
SCTCYL  through  common  block  FUDG. 

The  geometrical  optics  fields  [4]  in  the  far  field  have  the 

form 


where  ^(Qp)  is  the  incident  field  at  the  reflection  point,  IT  is 
the  dyadicreflection  coefficient,  s  is  the  distance  from  the  re¬ 
flection  point  to  the  far  field,  andJpTpT/s  is  the  far-field  spread 
factor  for  the  field.  The  caustic  distances  plj  and  and  further 
details  to  the  solution  are  given  on  pages  105-107  of ^Reference  1  . 
The  phase  of  the  reflected  field  is  referred  to  the  reference  co- 

-jks  i|cD»XR  e”^R 

ordinate  system  origin  so  that  — - —  =  eJ  -p--—  .  The  re¬ 
flected  field  then  has  the  form  s  K 

Er  =  Wm(ETH6  +  EPH<t>) 
e~M 

where  the  factor  — 5 —  and  the  source  weight  (WJ  are  added  elsewhere 
in  the  code.  R  m 
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FLOW  DIAGRAM 
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SYMBOL  DICTIONARY 


CTHI 

CW 

D 

D 12 

DD 

DDI 

002 


DHIT 

01 

DOTP 


DXY 

EF 

EG 

EHPH 

EH1H 

EIPP 

El  PR 

EPH 

ERPP 

EHPR 

ERX 

ERY 

EHZ 

ESPH 

ESTH 

ETH 

EX  ? 

EY  > 

EZ  \ 

LH 1 1 

LRFC 


J 


LTRF 

PH 

PHIR 


DOT  PRODUCT  OF  CYLINDER  NORMAL  AND  REFL  PROP  DIR  UNIT  VECTOR 
COSINE  OF  WR 

PROPAGATION  DIRECTION  AFTER  REFL.  IN  (X.Y.2)  RCS  COMPONENTS 
DOT  PRODUCT  OF  SOURCE  VECTORS  TANGENT  TO  CYLINDER.  (2-D) 
NORMALIZATION  CONSTANT  FOR  REFL.  PT.  UNIT  NORMAL  (FROM  RFPTCL) 
DOT  PRODUCT  OF  UNIT  VECTOR  OF  PROPAGATION  DIRECTION  AND 
CYLINDER  TANGENT  UNIT  VECTOR  THROUGH  TAN  POINT  1  (2-D) 

DOT  PRODUCT  OF  UNIT  VECTOR  OF  PROPAGATION  DIRECTION  AND 
CYLINDER  TANGENT  UNIT  VECTOR  THROUGH  TAN  POINT  2  (2-D) 

DISTANCE  FROM  SOURCE  TO  HIT  POINT  (FROM  PLAINT) 

X, Y,  AND  Z  COMPONENTS  OF  INCIDENT  RAY  DIRECTION  IN  RCS 
DIFFERENCE  OF  DOT  PRODUCTS  RETURNED  FROM  SUB  RFPTCL  (2-D) 

DOT  PRODUCT  OF  VECTOR  FROM  ORIGIN  TO  SOURCE  AND  PROP.  DIR  (2-D) 
PATTERN  FACTOR  OF  THETA  COMPONENT  OF  INCIDENT  FIELD  IN  RCS 
PATTERN  FACTOR  OF  PHI  COMPONENT  OF  INCIDENT  FIELD  IN  RCS 
PHI  COMPONENT  OF  THE  HARD  COMPONENT  OF  FIELD  INC  ON  CYL 
THETA  COMPONENT  OF  THE  HARD  COMPONENT  OF  FIELD  INC  ON  CYL 
INCIDENT  FIELD  COMPONENT  PARALLEL  TO  PUNE  OF  INCIDENCE 
INCIDENT  FIELD  COMPONENT  PERPENDICULAR  TO  PLANE  OF  INC 
PHI  COMPONENT  OF  REFLECTED  E-FI  ELD 

REFLECTED  FIELD  COMPONENT  PARALLEL  TO  PLANE  OF  INCIDENCE 
REFLECTED  FIELD  COMPONENT  PERPENDICUUR  TO  PUNE  OF  INC. 

X, Y,Z  COMPONENTS  OF  REFLECTED  FIELD  IN  RCS 
(ALSO  USED  TO  DEFINE  COMPONENTS  INCIDENT  ON 
CYLINDER) 

PHI  COMPONENT  OF  THE  SOFT  COMPONENT  OF  FIELD  INC  ON  CYL 
THETA  COMPONENT  OF  THE  SOFT  COMPONENT  OF  FIELD  INC  ON  CYL 
THETA  COMPONENT  OF  REFLECTED  E  FIELD 

PATTERN  FACTOR  OF  X,Y,Z  COMPONENTS  OF  INCIDENT  FIELD  IN  RCS 

SET  TRUE  IF  RAY  HITS  PUTS  (FROM  PLAINT) 

SET  TRUE  IF  REFL  DATA  IS  AVAILABLE  FROM  PREVIOUS  PATTERN 
ANGLE  (OR  FOR  NEXT  PATTERN  ANGLE  WHEN  LEAVING  ROUTINE) 

SET  TRUE  IF  G.O.  REFLECTED  FIELD  DOES  NOT  EXIST 

PHASE  AND  MAGNITUDE  CONSTANT  FOR  INCIDENT  OR  REFLECTED  FIELD 

PHI  COMPONENT  OF  INCIDENT  RAY  DIRECTION 


RG 
RHOI 
RH02 

S 

SMAG 
SQRH 
SW  , 
SXN  , 
SYN  j 
SZN 
THIR 
TRAN 
TXI 
TX2 
TYI 
TY2 
UU 

UIPPX' 

UIPPY  - 

UIPPZ, 

UIPHX 

U I  PRY  • 

UIPRZ, 

UN 


PARAMETER  USED  IN  TRANSITION  FUNCTION 

RAY  SPREADING  RADIUS  IN  PLANE  OF  CYL  CURVATUOE  AT  REFL.  PT. 

RAY  SPREADING  RADIUS  IN  PLANE  NOP«.*L  TO  PLANE 

OF  INCIDENCE  AT  REFLECTION  POINT 

DISTANCE  FROM  SOURCE  TO  REFL.  POINT  IN  X-Y  PUNE 

DISTANCE  FROM  SOURCE  TO  REFLECTION  POINT 

SPREADING  FACTOR 

SINE  OF  WR 

X, Y,  AND  Z  COMPONENTS  OF  UNIT  VECTOR  OF  PAY  FROM  REFL. 

POINT  TO  SOURCE  IN  RCS 

THETA  COMPONENT  OF  INCIDENT  RAY  DIRECTION 

PARAMETER  USED  IN  TRANSITION  FUNCTION 

X  COMPONENT  OF  SOURCE  VECTOR  TANGENT  TO  TAN  POINT  1  (2-D) 

X  COMPONENT  OF  SOURCE  VECTOR  TANGENT  TO  TAN  POINT  2  (2-0) 

Y  COMPONENT  OF  SOURCE  VECTOR  TANGENT  TO  TAN  POINT  I  (2-0) 

Y  COMPONENT  OF  SOURCE  VECTOR  TANGENT  TO  TAN  POINT  2  (2-0) 

X.Y  COMPONENTS  OF  UNIT  VECTOR  TANGENT  TO  CYLINDER 
REFLECTION  POINT  IN  RCS  (2-D) 


X.Y ,Z  COMPONENTS  OF  INCIDENT  FIELD  POLARIZATION  UNIT  VECTOR 
PARALLEL  TO  PLANE  OF  INCIDENCE 

X, Y,Z  COMPONENTS  OF  INC/REFL  FIELD  POLARIZATION  UNIT  VECTOR 

PERPENDICULAR  TO  PLANE  OF  INCIDENCE 

X.Y  COMPONENTS  OF  UNIT  NORMAL  TO  CYLINDER  REFL 

POINT  IN  RCS  (2-D) 
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% ’V  ^ VStL\ Y i aSrii 


URf-PA  _  __ 

URf-PY  X, Y,Z  COMPONENTS  OF~REFL  FIELD  POLARIZATION  UNIT  VECTOR 
UHPPZt  PARALLEL  TO  PLANE  OF  INCIDENCE 
VI)  ELL.  ANGLE  DEFINING  REFLECTION  POINT  IN  ERCS. 

VXS  X, Y,Z  COMPONENTS  Or  UNIT  VECTORS  DEFINING  SOURCE 

COORDINATE  SYSTEM  AXES  IN  RCS 
HR  PHI  ANGLE  DEFINING  PROPAGATION 

DIRECTION  IN  CYL  REFL.  POINT  COORD  SYSTEM 
XR  LOCATION  OF  REFLECTION  POINT  IN  (X,Y,Z>  REF  COORD  SYS. 


CODE  LISTING 


t— 


CM! 
C!  it 
CM! 


1 

2 

3 

4 

5 
o 

'i 
8 
V 
»C 
•1 1 
12 
13 
U 
18 
lo 

r, 

18 

IV 

20 

21 

22 

1  3 
24 
2b 

20 

21 
4.8 

2  V 
.  v 
:■  i 
o.* 


34  CM! 


Vfc-0 


C!  !S 


CM! 


05 

3o 

3  '# 
38 
3V 
4L 

41 

42 
*3 
44 

4  b 
40 
4*1 
4b 
4  V 

b»! 

bl 

b2 

bo 

*J4 

Lb 

bo 

b*. 

bb 

bv 

U 

o  I 

©i 

ft. 

o* 

Ob 

CO 


10 

CM! 


C!  !! 


CM! 


CM! 


c!  !• 


t:! 


SUBROUTINE  REFCYL! ETH,EPH> 

COMPUTES  THE  REFLECTED  FIELD  OF  THE  ELLIPTIC  CYLINDER 
DIMENSION  UN(2),UB!2),DI (3) 

COMPLEX  ETH,EPH,EX.EY,EZ,PH.EIPR,EIPP,ERX,ERY.ERZ,ERPR,ERPP 
COMPLEX  ESTH.ESPH.EHTH.EHPH.TRAN.EF.EG 
LOGICAL  LHIT, LRFC , LTPF .LDEBIJG,  LTEST 

COMMON/FUDG/TRAN ,ESTH«  ESPH . EHTH, EHPH.XR! 3) , RG, RHOI , SMAG.LTRF 
COMMOfl/CEOMEL/ A ,  R,  ZC  <2  ) ,  SNC ( 2 )  .CMC  (2  ) , CTC<  2 ) 

COMMON/SOH INF/XS (3  > ,  VXS!  3 , 3 ) 

COMM OH/PIS/PI ,TPI,DPR, RPD 

C0MM0N/DIR/D<3 ) ,THSR .PHSR.SPS.CPS, STHS.CTHS 

C0M.M0N/THPHUV/E)T<3 ) ,  DP  (2  ) 

COMMON/tNDSCL/DTS , VTS( 2 ) , BTS (4 ) 

COAMON/TEST/  LI  )ER  UG ,  LTEST 
common/clrfc/lrfc 

Ip<LDEBUC)  WRITE  16,900) 

FORMAT!/. •  DEBUGGING  REFCYL  SUBROUTINE') 

ltrf*. false. 

CAN  SOURCE  ILLUMINATE  CYLINDER? 

If  (UTS. LT. -1 .5)  GO  TO  12 
DXY-XSI I  )*CPS*XS!2  )*SPS 

IS  SOURCE  AND  OBSERVATION  POINT  ON  SAME  SIDE  OF  CYLINDER? 
IHOXY.GT.0. )  GO  TO  10 
DI2»UTS 
TXI*BTS< I) 

TYI*B1S<2) 

TX2s'"rSC) 

l.Y.?«Pir{4) 

DDIoTXMCPS+TYUSPS 

I'02«TX2*CPS*TY2*SPS 

IS  OBSERVATION  POINT  IN  SHADOW  ZONE  OF  INFINITE  CYLINDER? 

IFtDDl . 0T.DI2. AND.D02.CT.DI2 )  GO  TO  12 

CONTINUE 

CALCULATE  REFLECTION  POINT 

CALL  HFPTCL!  PHSR.fl.VR.DOTP'.PD,  S.LRFCJ 

If (LDE0UG)  WRITE(6.4)  VR.DOTP, DO.S.LRFC 

IS  REFLECTION  ILLEGAL7 

I F ( DOT? . LE .(> . ) GO  TO  II 

XK( I )«A*COS!VR) 

XW(2)-B*SIN(VR) 

X R ( 3 ) - X S ( 3 J ♦ S*CTHS/STHS 

IS  REFLECTION  POINT  OFF  OF  FINITE  CYLINDER? 

IP!Xh<3).GT.ZC<  I  J*Xnn  >*CTCM).OR. 

2XR(3J.L1.ZC(2)4XR< I >*CTC(2)>  GOTO  II 
IS  REFLECTED  RAY  SHADOWED  BY  A  PUTE? 

CALL  PLAINT! XR.O, UNIT, a.LHIT) 

IriLHIT)  GO  10  II 
SXN-XSM  >-XR<  I ) 

SYK«XS(2>-XR(2 J 
SZN»-S*CTHS/STH5 

SM  AG -SORT  I S  X  N*SX  N*  SYN*SYN*  <L  N*S2N) 

SXfi«S>N/S«AC 

SYN*SYN/SMAG 

S2N«.S2ft/5.MA  C 

P*’l  R*8TAN2  f  “SYN,  -SXN I 

t»Mh»NTAK2tSt*T< SXN*SXN*SYN*SYN),-S2N) 

H  tl l«Ct S!PH1P)»5IN(THtS) 

D!  !.’I«S1N<PH1h)*SINcTHIRJ 
n t3)«CtS(THIRi 

IHJeS  INCIDENT  RAY  HIT  PLATE  BEFORE  CYl  IND68? 

CALL  PLaI8T<XS.IU»0PIT.<*.LI!IT? 

Ir (LHIT. AND. CDHIT.LT. SMASH  GO  TO  1 1 
CAi.Cin.AU  INCIDENT  FIELD  PATTERN  FACTORS 
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o/  CALL  S0UHCb(bF,EG,EX,tY,FZ,TH!R,WUMX5Y 

6b  IF(LDEBUG)  WRITE£6,*)  EE, EC 

ev  HG-DO*DD*niy>/B 

70  CALL  N AfiOB ( UN, UB , V  rt ) 

i  I  CTHI«UN(  I  )*D(I  )4tJN(2)*D(2) 

72  WH»BTAN2<S)£J1*UB(  I  >4SYN*UB(2)  ,SZM> 

Vi  SW-SIR(ftH) 

74  Ctt-COSCKH) 

7  b  SST2»SN*SW-*CW*CN*CTHI*CTHI 

76  RH02»SMAC 

77  HHOI  »SMAG*HC*CTHI/  <RC*CTHM2  .*SKAG*5ST2> 

7a  IFCLDEBUC)  HRITEfd,*)  RO,kHOI,RH02,CTHI,SS72 

7v  CM!  COMPUTE  FIELD  POLAWIZATI  ON  UNIT  VECTORS  (PERPENDICULAR 
80  C! ! J  AND  PARALLEL  TO  PLANE  OF  INCIDENCE) 
dl  UIPRX«S1H(  Wl-PI/2. )*UB( I ) 

a.  uiphy«sin<wr-pi/2.)*i:bc2) 

bi  tJIPH2*COS(NR-PI/2.  ) 

84  UIPPX»SU*U!PWZ-SZN*UIPHY 

8b  U1PPY-S2N*UIPHX-SXN*UIPRZ 

86  UIPPZ»SXN*UIPkY-5YN*UIPRX 

8V  UHPP  X*U1 PH  Y*D£  3 )  HI  I  PRZ*D(2  ) 

88  URPPY»UJPR2*D< M*OI  PRX*PC3 ) 

8V  URPPZ«UlPRX*Di2)-ilIPiiY<«ni  ) 

V0  PH*CEXP(CMPLX<a.,-TPI*S«AO))/S?.*AC 

VI  CIS!  COMPUTE  INCIDENT  FIELD  COMPONENTS  PERPEHDICUUR  AND 
V2  C!!!  PARALLEL  TO  PLANE  OF  INCIDENCE 
Vi  £1  PRaftil  PHX*EX+U  I  PRY*EY>UI  PPZ*EZ ) 

V4  6IPP*(U1PPX*EX4UIPPY*EY*LTPPZ*EZ) 

Vb  PH»PH*CbXP  (CMPLXtO.  ,TPI*{XR{  I  )*0t  I  )>XR<2  )*D(2  )-*XR(2)0<3)) )) 

Vo  SQRH*50kT  £  RHOI *RK02 ) 

V7  C! ! 1  COMPUTE  REFLECTED  FIELD  COMPONENTS  PERPENDICULAR  AND 
V8  C!  12  PARALLEL  TO  PLANE  Or  INCIDENCE 
VV  ERPrf*-SCfiM*PH*  21  Pll 

ICO  ERPP»SQRH*PH*Et  PP 

I W 1  TWAN*SONH*PH 

IkJ 2  C!!S  COMPUTE  REFLECTED  FIELD  COMPONENTS  IN  (XY2)  RCS  CQ1*P0NB.‘TS 
ICi  l'RX»ERPR*UlPftX*ERPP*URPPX 

l»4  fctIY-EkPK»UIPRY*EnPP*U(tPPY 

liib  eHZ«FHPN«UIPRZ>Ei<PP*UkPPZ 

loo  CM!  COMPUTE  TIC^A  AND  PHI  CC.,!PCNENTS  OF  REFLECTED  FIELD  IN  RCS 
li/7  EiH»SKX*Ol  C I  )*ERY*DT(2)*ERZ*!T«2) 

IU8  EPH*ERX*OPf I )*ERY*RPI2  > 

liiv  CM!  COMPUTE  THETA  AND  PHI  COMPONENTS  OF  HARD  AND  SOFT 

UW  CM!  CCMPUMSMS  of  FIELD  INCIDENT  ON  CYLINDER 
HI  cHX«SIPR«UlPRX 

112  EKY-MPK*UIPRY 

Ili  fckZ*blPk«lUPRZ 

114  ES7H-ERX*OTM»*e«Y*OTC2)*6RZ*3Tt2) 

Hb  £SPH«gHX*DPU  )♦£«¥*{»£  2) 

Ho  fc*X«i:IPP»UHPPX 

H  7  E«V«E5Pr»U8PPY 

<14  cWZ«EIPk*UFPP: 

1 1 V  gHTH«eWX*i)T<  I  >  *ERY«OT (2 )  ♦*RZ*07 £  j) 

I2t  SHPH«fc«X»i)P£  !)*£»Y«DPt2> 

12  I  GO  TO  Vt’b 

U2  »2  L«FC». FALSE. 

123  »•  LlRF«.TFi/£. 

124  £TH»lO.,S*. ! 

i2b  ,ii. ) 

120  Wi  CON'.  iKUfe 

12 7  li-I.ViT.L<EST>  nPTURK 

i2h  **#liE£e,viiJI 

12V  viu  kVh*-a7i/.'  TESTING  REFCYL  SUNBOCTIDE') 
ii»  “«3  7elO,4l 

i.i  -.ETUsCJ 

1J2  F«* 
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REFPLA 


PURPOSE 

To  calculate  the  far-zone  electric  field  due  to  single  reflection 
off  of  a  given  plate. 

PERTINENT  GEOMETRY 


SOURCE 

LOCATION 


/ 

/ 

/ 

'  .SOURCE  IMAGE 
LOCATION  XIS 

Figure  91—  Geometry  for  source  ray  reflection  from  plate 
xH  «  x  XIS(l)  ♦  y  XIS{2)  +  2  XIS(3) 

01  =  x  01(1)  ♦  y  01(2)  ♦  2  01(3) 

METHOD 


The  reflected  field  from  a  plate  is  found  using  image  theory. 

First  the  ray  path  is  checked  to  insure  that  the  reflection  point  is 
on  the  plate  and  that  the  ray  path  is  not  shadowed.  The  fields  are 
then  calculated  using  the  SOURCE  subroutine  with  the  source  coordinates 
oriented  trota  image  theory  so  that  the  proper  boundary  conditions  are 
met  at  the  surface  of  the  plate.  The  phase  i§  referred  to  the  reference 

ikD  *  Sft" 

coordinate  system  origin  using  the  factor  eJ  .  The  reflected 
field  has  the  fora 


m 


*  -JkR 

JV.e,*)  *  w0(ERTe  ♦  ew»)  S__  . 

_-JkR 

The  factor  ~ —  and  the  source  current  weight  (W_)  are  added  elsewhere 
in  the  cede.  *  " 
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FLOW  DIAGRAM 


n*  i**t*  - '«!«  3*;  tV*  f  *a$r 

;i*  **i  IS? 


W* 

ftfSjt  *  $ 


SYMBOL  DICTIONARY 


CPHI  COSINE  OF  PH1R 

CPHS  COSINE  OF  PHSR 

CTHI  COSINE  OF  THIR 

CTHS  COSINE  OF  THSR 

0  X,Y,Z  COMPONENTS  Of  RAV  PROPAGATION  DIRECTION 
AFTER  REFLECTION  IN  RCS 

OHIT  DISTANCE  FROM  SOURCE  TO  REFLECTION  POINT 
(FROM  PLAINT) 

OHT  DISTANCE  FROM  SOURCE  TO  HIT  POINT  (FROM  PLAINT 
AND  CYLINT) 

01  X,YtZ,  COMPONENTS  OF  INCIDENT  RAY  PROPAGATION 
DIRECTION  IN  RCS 

GF  PATTERN  FACTOR  FOR  THETA  COMPOf€NT  OF  SOURCE 
FIELD  IN  RCS 

fcG  PATTERN  FACTOR  FOR  PHI  COMPONENT  OF  SOURCE 
FIELD  IN  RCS 
en  NOT  USED 

EIV  NOT  USED 

EIZ  NOT  USED 

EX  COMPLEX  PHASE  FACTOR  tCEXPC J*TPI*GAM )) 

GAM  PHASE  DISTANCE  TO  ORIGIN  (OOT  PRODUCT  OF  I  MACE 

LOCATION  AND  REFLECTED  RAY  PROPAGATION  DIRECTION) 
LHIT  SET  TRUE  IF  RAY  INTERSECTS  A  PLATE  OR  CYLINDER 
(FROM  PLAINT  OR  CYLINT) 

HP  PLATE  FRO.-.  MUCH  REFLECTION  OCCURS 

N  DO  LOOP  VARIABLE 

N(  DO  LOOP  VARIABLE 

NJ  00  LOOP  VARIABLE 

PHI  it  PHI  COMPONENT  CF  INCIDENT  RAY  PROPAGATION 
DIRECTION  IN  RCS 

PHSR  FU  COMPONENT  OF  RAY  PROPAGATION  DIRECTION 
AFTER  REFLECTION  IN  RCS 
SPHi  SINE  OF  PHlk 

SPNS  SINE  OF  PHSR 

STVil  SINE  OF  7*1  R 

THIR  T  ft  ETA  COMPONENT  CF  INCIDENT  RAY  PROPAGATION 
DIRECTION  IN  RCS 

THSR  THETA  COMPONENT  CF  RAY  PROPAGATION  DIRECTION 
AFTER  REFLECTION  IN  RCS 

VAX  X,Y,Z  COMPONENTS  DEFINING  UNIT  VECTORS  OF  THE 
SOURCE  I  RAGS  COORDINATE  SYSTEM  AXES  IN  RCS 
XI  TRIPLY  DIMENSIONED  ARRAY  OF  IMAGE  LOCATIONS 
X1S  X, Y,Z  COMPONENTS  OF  SOURCE  IMAGE  LOCATION 
(SINGLE  REFLECTION  FROM  PLATE  HP) 

XS  SOURCE  LOCATION  IN  tX.Y.Z)  REF  COORD  SYS. 


i 

C - 

2 

3 

CIS! 

4 

Ci  ! ! 

b 

C!  ! ! 

6 

C!  !! 

7 

B 

V 

10 

1  i 

12 

13 

|A 

lb 

lo 

!  7 

lb 

IV 

101 

20 

C!  !! 

2  1 

22 

w 

23 

C!  !! 

24 

2b 

26 

C!  !  1 

27 

2  b 

2  v 

CHI 

30 

3  1 

32 

C!  I ! 

34 

3  b 

3c 

3b 

3v 

40 

A  1 

42 

C!  !  1 

43 

AA 

4b 

C!  1 ! 

AO 

A  7 

4b 

4  V 

bO 

20 

b  1 

CIS! 

b2 

b3 

b4 

C!  ! ! 

bb 

bo 

bl 

bb 

bv 

CO 

30 

0  1 

o2 

o3 

1 

0- 

ob 

3 

co 

o7 

j 

Ob 

SUBROUTINE  RtFPLA(ERT.ERP,MP) 

DETERMINES  THE  REFLECTED  FIELD  FROM  PLATE  #MP  WITH  PHASE 
REFERRED  TO  THE  ORIGIN. 

COMPLEX  EF ,EG, EX .ERT.ERP, E I X  ,EIY .EIZ 
DIMENSION  XI  S(  3)  ,DI  <  3) ,  V AX (3  ,3  > 

LOGICAL  LHIT 
LOGICAL  LDEBUG-.LTEST 
CO  MMON /TE  ST/ LD  E  B  UG , LTE  ST 

COMMON/DIR/D  (3 ) ,  THSR,  PHSR,  SPHS.CPHS,-  STHS  ,CTHS 
COMMON/GEO  PL  A/ X(  14,6, 3), V<  1 4 ,6 ,3 ) ,  VP(  1  4, 6, 3 ) , VN(  14,3) 

2 ,MEP( 14) ,MPX 

COMMON/ SCR  I NF/XS (3 ) , VXSC  3,3) 

COMMON/IMA  INF/ XI (14,  14, 3 ) , VXIC 3,3, 14) 

COMM GN/P 15/P  5 , TP  I , DPR, RPD 
IF  (LDEBUG)  WRITE  (6,101) 

FORMAT  </,"  DEBUGGING  REFPLA  SUBROUTINE") 

SPECIFY  IMAGE  LOCATION. 

DO  5  N=l ,3 

XI  S( N)=XI ( MP ,MP, N) 

DOES  RAT  FROM  SOURCE  IMAGE  PASS  THRU  PLATE 
CALL  PLAINK  XIS,D,DHIT,-MP,LH1T) 

IF ( .MOT. LHIT)  GO  TO  30 

DOES  REEL,  RAY  HIT  ANOTHER  PLATE . 

CALL  PLAINT! XIS,D,DHT,MP,LHIT) 

IF (LHIT)  GO  TO  30 

DOES  REFL.  RAY  HIT  A  CYLINDER. 

CALL  CYLINT(XIS,n, PHSR, DHT, LHIT,. TRUE. ) 

If (LHIT)  GO  TO  30 

KNOWING  RAD.  DIR.  COMPUTE  THE  INCIDENT  RAY  DIRECTION 
CALL  REFBP( PEI R.THIR, PHSR, THSR, MP) 

IF  (LDEEUG)  WRITE  (6,*)  PH IR ,THI R, PHSR , THSR ,MP 
SPHI  =SI  t\(  PHI  R) 

CPHI=COS(PHIR) 

STHi=SIN(THIR) 

CTHI  =COS(THI  R) 

HI  (  I  )=CPHI*ST!-iI 

di  (2  )=sp::i*sthi 

DI  (3  )=CT1U 

POES  RAT  FROM  SOURCE  HIT  ANOTHER  PLATE. 

C ALL  PLA I NT( XS , D I , DHT, MP , LHI T) 

IF  (LHIT.  AND.  (I)HT.LT.DHIT ) )  GO  TO  30 
DOES  RAT  FROM  SOURCE  HIT  A  CYLINDER. 

CALL  CYLINT( XS ,01 , PH  I R, DHT, LHIT, .FALSE.) 

IF (LHIT. AND. (DHT .LT.OHIT ) )  GO  TO  30 
DO  20  NJ=I ,3 
DO  2U  NI  =  I  ,3 
V AX( Nl , NJ )  -VXI  (N I ,  NJ ,MP) 

CALCULATE  SOURCE  FIELD  PATTERN  FACTOR 
CALL  SOURCE! EF,EG,EIX,EI Y,EIZ, THSR, PHSR, VAX) 

IF  (LDEtUG)  WRITE  (6,.)  EF.EO 
COMPUTE  PHASE  REFERRED  TO  THE  ORIGIN. 

GAM=X! (MP,MP, 1 )*D( 1 ) +X I ( MP , MP, 2 ) *D ( 2 )+XI (MP,MP,3)*D(3> 
EX=CEXP(CMPLX(0. ,TPI*GAM ) ) 

ERT=EF*EX 
ERP=  EO*EX 
CO  10  1 
CONTINUE 
ERT=(0.,i'.  ) 

ERP=(0. ,0. ) 

IF  ( .NOT.LTFST)  GO  TO  2 
WRITE  (6,3) 

FORMAT  </,'  TESTING  REFPLA  SUBROUTINE") 

WRIT F  (o.*)  ERT.ERP.MP 

RETURN 

END 
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I 

T  RFDFIN 

PURPOSE 

1  To  determine  the  reflection  point  on  an  elliptic  cylinder  for  a 

*  given  source  and  observation  location  in  the  near  field  of  the  cylinder. 

1  PERTINENT  GEOMETRY 


1 

1 


t 

r 


Figure  92—  Illustration  of  a  reflection  point  on  a  cylinder  for 
a  near  field  observation  point. 

XS  =  x  XS(1)  +  y  XS(2)  +  z  XS(3) 

XR  =  x  XR(1)  +  y  XR (2)  +  z  XR(3) 

IfC  =  x  XC(1)  +  y  XC(2)  +  z  XC(3) 

METHOD 

This  subroutine  solves  a  polynomial  equation,  the  roots  which 
define  possible  reflection  point  locations.  The  true  point  is  singled 
out  using  the  laws  of  reflection. 


353 


FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


CA 

R'l 

S 

S  AI 


v;.i 

VIA 

Xk 


COMPLEX  COEFFICI ENTS  OF  SIXTH  ORDER  POLYNOMIAL  EOIJATION 
HOOTS  OF  POLYNOMIAL  EQUATION 

SMALLEST  DISTANCE  FROM  SOURCE  TO  REFLECTION  POINT 
TO  OBSERVATION  POINT 

DISTANCE  FROM  SOURCE  TO  REFLECTION  POINT  PLUS  THE 
DISTANCE  FROM  THE  REFLECTION  POINT  TO  THE  OBSERVATION 
PO  INI- 

ELL  ANGLE  DEFINING  POSSIBLE  REFLECTION  POINT  ON  CYL 

NORMALIZATION  CONSTANT  FOR  VI 

X,Y,2  COMPONENTS  OF  REFLECTION  POINT  LOCATION-  ON 

CYLINDER 
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CODE  LISTING 


2  C  SUBROUTINE  RFUF1NC VR ,UR,VI  ,XC) 
o  c i  1  i 

4  C!!I  DETERMINES  THE  NEAR  FIELD  REFLECTION  POINT  FROM  AN 
bC!!!  ELLIPTIC  CYLINDER 
0  C! !! 

7  COMPLEX  C A  ( "/ ) ,  HT ( 6 ) 

fc  DIMENSION  XR(3), VI (31, XC(3) 

V  GOMMON/GEOMEI./A, B,2C(2 ) ,SNC(2) ,CNC(2 ),CTC(2) 

ID  COMMON/SOR INF/X5(3 ) , VXS( 3, 3) 

11  Oil!  DETERMINE  COEFFICIENTS  OF  POLYNOMIAL  EQUATION 

12  C  A(  7  )  =  (  A*A-IS*U  )*CMPLX(  A*  ( XC( 2) +XSC2 ) ) ,  B*  (XC(  I  )+XS(  I))) 

13  CA(o )=-2 . <CMPLX( ( A*A+B*B  )*(  XS( 1 )*XC(2)+XS(2)*XC( 1 ) ) 

U  2,2.*A*B*(A*A-B*B+XS( l)*XC( 1 >-XS(2)*XC(2)  )> 

lb  CA(5)=CMPLX(A*(5.*B*B-A*A)*(XS(2>+XC(2>> 

16  2,B*(b.*A*A-B*B)*<XS( 1 >+XC( 1 ) )) 

17  CA(4)=CMPLX(4.*(A*A-B*B)*(XS(1 )*XC(2 )+XS(2 )*XC( I )),0.) 

18  CA<3 )=C0NJG(CA(5 )) 

IV  CA (2 )=CCNJG(CA( 6  ) ) 

2D  CA ( I )=CONJG(CA(T )) 

21  C • ! i  SOLVE  POLYNOMIAL  EQUATION  TO  OBTAIN  POSSIBLE 

22  C! ! !  REFLECTION  POINTS 

23  CALL  POL YRT ( 6, CA , RT ) 

24  VR= BT  AN  2 ( A I M AO  <  RT ( 1 )),REAL(RT( I ) ) ) 

2b  S=SQHT((A*COS(VR)-XS(t ) ) **2+(B*SIN< VR)-XS<2 ) >**2 ) 

2 1  S=S+SOHT ( ( XC ( I )- A*COS( VR ) ) **2+ ( XC( 2 ) -R*SIU( VR ) )**2 ) 

27  oil!  DETERMINE  PHYSICALLY  CORRECT  REFLECTION  POINTS 

28  CUl  (SATISFY  LM'<  OF  REFLECTION) 

2V  DO  ID  I «2,6 

30  VM*f?.TAN2  ( AIMAG(RT(  I ) ) , REAL(RT( I ) )> 

31  XR( I >=A*C0S(V4> 

32  XH(2)«B*SIN(VM) 

33  SMA»(XR(  1)-XS(  I )  )*<XkM  1  )-X?<  I)  )+(Xl!(2 )  -XS(2  )  )*  (XR(2 )  -XS(  2) ) 

3«,  SMB«(XC(  I  )-XR(  1  ))*(XC(  l)-XH<  I ) )+( XC(  2)-XR(2  )  )*(XC!2  )-XR(  2  ) ) 

3b  SM«SQRT(SMA)+SQRi(SMB> 

36  IF(S.LE.SM)  GO  TO  10 

37  S=SM 

38  VH-VM 

3v  .10  CONTINUE 
4D  SNV-SIN(VR) 

41  CSV=COS ( VR ) 

42  XR ( I )=A*CSV 

4j  XR(2)=B*SNV 

44  SNX=>B*CSV 

4b  SNY=A*SNV 

4o  SI  X=XR<  1  )-XS(  1  )  l 

47  SIY=XR(2)-XS(2> 

4b  VI  ( 1  )*XC(I)-XR(1  >• 

4 V  VI(2)=XC(2)-XR(2) 

bD  SND*SMX*VI ( 1 )*SNY*VI (2 ) 

bl  SNI=»SHX*SI  X+SNY*SI  Y 

52  XR(3 )  =  (  ETD*XS<35-5NI*XC(3) )/(SND-SNI ) 

bo  UR=XR(3) 

b4  V I (3)=XC(3 )-XR (3 ) 

bb  V I M®SOHT ( V I f i ) *V I ( 1 ) +V 1 ( 2 ) * V I ( 2 ) +V I ( 3 ) *V I ( 3 ) ) 

bo  DO  20  N= 1 , 3 

b7  2u  VI (N  )=VI (M  )/VIM 
b8  RETURN 

bv  END 
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RFDFPT 


PURPOSE 

To  compute  the  ray  path  for  a  source  ray  which  is  reflected  by 
the  cylinder  and  then  diffracted  by  a  given  edge  on  a  given  plate. 

PERTINENT  GEOMETRY 


Figure  93— -II lustration  of  ray  reflected  from  cylinder  and 
then  diffracted  by  a  plate  edge. 

YR  =  x  XR(1)  +  y  XR ( 2 )  +  z  XR(3) 

YU  =  x  XD(1)  +  y  XD(2)  +  z  XD(3) 
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METHOD 


The  reflection  point  on  an  elliptic  cylinder  and  the  diffraction 
point  on  a  plate  edge  for  the  reflected-diffracted  ray  In  a  given 
observation  direction  is  calculated  via  an  iterative  process.  The 
equations  are  based  on  a  first  order  Taylor  series  approximation  to 
the  equations  governing  the  laws  of  reflection  and  diffraction.  The 
details  of  the  analysis  are  given  on  pages  141-148  of  Reference  1. 

The  iteration  process  follows  the  same  basic  scheme  outlined  in  the 
write  up  for  subroutine  RFPTCL.  The  Initial  start  up  procedure  for 
this  subroutine  is  composed  of  locating  the  reflection  point  on  the 
cylinder  for  a  known  diffraction  point  which  is  taken  to  be  on  the 
corners  of  the  plate  edge  under  consideration.  The  details  of  this 
procedure  are  discussed  on  pages  149-154  of  Reference  1. 


FLOW  DIAGRAM 


RFOFPT  (VR,XR,OOTP,$NM,VIM,Vt,XO,DRM,DR, 

DE.ME.MP.LROC) 

INPUT  VARIABLES 

HP 

plate  where  diffraction  occurs 

HE 

edge  on  plate  HE  where  diffraction  occurs 

LROC 

set  true  If  startfng  point  data  from 
previous  pattern  cut  Is  available 

OE 

dot  product  of  diffracted  ray  direction 
and  edge  vector  of  edge  HE 

OUTPUT  VARIABLES 

VR 

elliptical  angle  defining  reflection 
point  on  cylinder  (2-0) 

XR 

x,y,z  components  of  reflection  point 
on  cylinder 

DOTP 

test  parameter  used  to  determine  If  re¬ 
flection  Is  leoal 

SNH 

normalization  constant  for  cylinder  tangent 

VIM 

distance  from  source  to  reflection  point 

VI 

x,y,z  components  of  unit  vector  of  ray 
from  source  to  reflection  point 

XD 

x,y,z  components  of  diffraction  point 
location 

ORM 

distance  from  reflection  point  to  the 
diffraction  point 

DR 

unit  vector  of  ray  from  reflection  point 
to  diffraction  point 

LROC 

set  true  if  starting  point  data  is  avail¬ 
able  for  next  time  RFOFPT  Is  called 

Note  -  LROC 

is  used  both  as  input  and  output  variable 

Place  branch  cut  behind  cylinder 
from  edge  ME 


—  Yes— I 


No 

Compute  starting  point  (pp,  150-152,  Reference  1) 


Store  par.we'srs  for  use  as 
starting  po-iH  "*£<  Ua* 
RfOfPT  ti  catted 


SYMBOL  DICTIONARY 


DC  X,Y,Z  COMPONENTS  OF  DIFFRACTED  RAY  PROPAGATION 
DIRECTION  USED  IN  ITERATION 
UCP  X, Y  COMPONENTS  OP  PHI  POLARIZATION  UNIT  VECTOR 
FOR  DIFFRACTED  RAY  USED  IN  ITERATION 
DCT  X,Y,Z  COMPONENTS  OP  THETA  POLARIZATION  UNIT  VECTOR 
FOR  DIFFRACTED  RAY  USED  IN  ITERATION 
DPSK  PHI  ANGLE  INCREMENT  SIZE 

DR  X,Y,Z  COMPONENTS  OP  RAY  DIRECTION  BETWEEN 

REFLECTION  AMD  DIFFRACTION 

URP  PARTIAL  DERIVATIVE  OF  DR  WITH  RESPECT  TO  PHI 
DKT  PARTIAL  DERIVATIVE  OF  DR  WITH  RESPECT  TO  THETA 

URU  PARTIAL  DERIVATIVE  OF*  DR  WITH  RESPECT  TO  UR 

DRV  PARTIAL  DERIVATIVE  OF  DR  WITH  RESPECT  TO  VR 

UTSK  THETA  ANGLE  INCREMENT  SIZE 

DU  CHANGE  IN  UR  FOR  ONE  ITERATION  USING  TAYLOR  SERIES  EXPANSION 

DV  CHANGE  IN  VR  FOR  ONE  ITERATION  USING  TaYLOR  SERIES  EXPANSION 

ERC  ERROR  DETECTION  VARIABLE 

PI  EOUATION  GOVERNING  THE  LAW  OF  REFLECTION 

FP  PARTIAL  DERIVATIVE  OF  FI  WITH  RESPECT  TO  PHI 

FT  PARTIAL  DERIVATIVE  OF  FI  WITH  RESPECT  TO  THETA 

FU  PARTIAL  DERIVATIVE  OF  FI  WITH  RESPECT  TO  NR 

PV  PARTIAL  DERIVATIVE  OF  FI  WITH  RESPECT  TO  VR 

Cl  EOUATION  GOVERNING  THE  LAW  OF  REFLECTION 
CP  PARTIAL  DERIVATIVE  OF  GI  WITH  RESPECT  TO  PHI 

GT  PARTIAL  DERIVATIVE  OF  Gl  WITH  RESPECT  TO  THETA 

GU  PARTIAL  DERIVATIVE  OF  GI  WITH  RESPECT  TO  UR 

CV  PARTIAL  DERIVATIVE  OF  GI  WITH  RESPECT  TO  VR 

IVD  STORED  NUMBER  OP  STEPS  USED  IN  ITERATION 
LRDC  SET  TRUE  IP  STARTING  POINT  DATA  IS  AVAILABLE 
FROM  PREVIOUS  PATTERN  ANGLE 
PHCR  PHI  COMPONENT  CP  DIFFRACTED  RAY  DIRECTION 

USED  IN  ITERATION 

PHOR  PHI  COMPONENT  CP  DIFFRACTED  RAY  DIRECTION 
UHUM  PREVIOUS  TIME  RPDPPT  WAS  CALLED  (OR 
PRESENT  VALUE  FOR  next  TIME  ROUTINE  IS  CALLED) 

PHChP  PHI  ANGLE  OP  DIFFRACTED  RAY  DIRECTION  IN 
ROTATED  HCS  SYSTEM  (BRANCH  CUT  PLACED 
UbHINO  CYL) 

PilSPM  PHI  ANGLE  OP  DIFFRACTED  RAY  DIRECTION  it! 

ROTATED  RCS  SYSTEU  (BRANCH  CUT  PLACED  BEHIND 
CYLINDER) 

SNPX  PARTIAL  DERIVATIVE  OF  SNX  WITH  RESPECT  T  j  ANGLE  VR 

SNPY  PARTIAL  DERIVATIVE  OF  SNY  WITH  RESPECT  TO  ANGLE  VR 

SMX  X  COMPONENT  OP  NORMAL  TC  CYLINDER 

SNY  Y  COMPONENT  OF  NORMAL  TO  CYLINDER 

STP  NUMbER  OF  STEPS  USED  IN  ITERATION 
THCR  THETA  COMPONENT  OF  DIFFRACTED  RAY  DIRECTION 
USED  IN  ITERATION 

THUH  THETA  COMPONENT  OP  DIFFRACTED  RAY  DIRECTION  FROM 
PREVIOUS  THE  RFDFPT  WAS  CALLED  (OR  FOR 
NEXT  TIME  ROUTINE  IS  CALLED) 

UR  Z  COMPONENT  OP  REFLECTION  POINT 

LOCATION  0)1  CYLINDER 

URO  SICKED  COMPONENT'S  DEFINING  Z  COMPONENT  OF  STARTING  REFLECT  I C" 
POINT  LOCATIONS  ON  CYLINDER 
VI  X.Y.Z  COMPOWfcilTS  OP  DIRECTION  OF  RAY  INCIDENT 
ON  CYLINDER 

v  10  PARTIAL  DERIVATIVE  OP  VI  WITH  RESPECT  TO  **R 

vi v  partial  derivative  op  vj  with  respect  to  angle  vh 

VM  ELL  ANGLE  DEFINING  REFLECTION 

POINT  ON  CYLINDER 

VMO  STORED  ELL  ANGLES  DEFINING  STARTING  REFLECTION  POINT  LOCATIONS 
UR  CYLINDEKR 

XD  X.Y.Z  COMPONENTS  OF  DIFFRACTION  POINT  LOCATION 

XR  X.Y.Z  COMPOf ENTS  OF  REFLECTION  POINT 

Location  on  cyi.kufh 
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CODE  LISTING 


2  SUBROUTINE  HFDFPTI VR,XR,DOTP,SHM,VJM,VI,XD,DRM,DR,DE,UE, MP 

2  2.LHUC) 

4  C!!l 

b  CIIJ  DETERMINES  THE  HAY  PATH  FOR  A  REFLECT! OH  FROM  THE  ELLIPTIC 
fc  C!!!  CYLINDER  THEN  DIFFRACTION'  FROM  A  PLATE  EDGE 

T  cm 

8  DIMENSION  DC<3 ), DCPI2) ,DCT(3 >, VI (3), VIV(3) ,VIU<3), V$D< 3) 

V  DIMENSION  XP(3), XH(3),XRP(3) ,XRV<3),XRU(3) ,Xf)( 3) 

10  DIMENSION  0R(3),DRU<3),DRV<3),DRT(3>,DRP(3) 

I  I  DIMENSION  IVD(  l4,6),PH0f<n4,6>,TK0R<  )4,6),VR0(  14,6). URO<  14,6) 

12  DIMcHSIGN  PHCRPl 14,6) 

13  LOGICAL  IRrC 

14  CO/./iON/CEOPLA/X(  14,6,3), V<  I4,6,3),VP<|4,6,3),VN<  14,3) 

lb  2,McP(l4),MPX 

lo  CQMMON/SOR INF/X5<  3 ) ,  VX  S(  3 , 3 ) 

i  1  CUf'/.'.0N/DIH/0(3  ) , THSR.PHSR.  SPHS.CPHS,  STKS.CTHS 

18  CO)  .VOfl/CEO.MEL/A,  B,ZC(2  ) .  3HCI2)  ,CNC<2  ).CTC(2 ) 

1  V  CO W'Ot i/ Lf .OHCty VCDt  U,6). UCD<  14,6), OCD(  U,6,2) 

20  common/)  m.'PHi/PHiif;  { 1 4, 6) 

21  C0;‘M0H/FIS/PI,TPI,DPfi,3Pr) 

22  cm  PLACE  Hk  AttCF  CUT  BEHIND  CYLINDER  FROM  EDGE 

23  PHSPiUP)SR-?H.ijK?fP,JtE) 

24  IMPHSPk.OT.PI )  PHSPR*PHSPR-TPI 

2  5  IF<P"SPK.LT.-',I>  PHSPR»PKSPR*TPI 

Zc  C!M  IS  START  IfiG  POINT  DATA  AVAILABLE  FROM 
2't  cm  PREVIOUS  pattern  ANGLE? 

21  Il-(LW)C)  GO  TO  41) 

2v  cm  COMPUTE  STARTING  POIfT 
El  nO.Ma-2, 

2  1  cm  STEP  THRU  CORNERS  ON  EDGE  HE 

32  Cl!!'  CHOOSE  l.HICH  CCftf.'ER  TO  USE  AS  STARTING 

23  cm  DIFFRACTION  POINT 

a  no  b  1 ,2 

25  )■■€=■:  E-I*J 

2c  I  r  { .‘..C.OT  ."'EPtMP ) )  MC*I 

2T  ISCVsi 

a  SA;  =SOI-.T  ((  I.-DE*DE)/CI.-ECD<,1P,ME.J)*0CD{MP.)1E,J))) 

3v  2  SG^fAf^SCOU’P.ME.J) 

4i.  C AX«*M  I  )*A"*V(MP,(.l£;,  I) 

*1  (MY*D(2)*A.M*V(jiP,.‘tE,2) 

42  UA2=»J<3)*A)'*V(  it?  ,.‘IE,3) 

43  SA»OAX*DAX*DAY*DAY 

4*  Sii»SA4!)At*0AZ 

4  b  SA«SlWT(SA! 

*-c  S2«Sri:T(S3l  ; 

‘T  CPOP-DAI/SA 

40  SPOP*UA>/SA 

<  v  CTCP»OA<./sn 

be  STC?  ■SA/SI1 

bi  do  x  *e  pop  *?tc  p 

b2  > CY«SP0P*5T0P 

b:  :.cz»ctop 

b4  00U«0<  I  )«t)GX'*0(2  )*0CY*D(2)*D0Z 

bb  OW «i K)X* V ( MP , HE ,  l>-H)OY*V{HP,KE,2)4nOZ*V(.HP,SE,3) 

be*  II:UH)V4iC0a'P,UE,J).LT.iS.)  GO  TO  4 

b‘.  IFurStLC0).GT.I .)  GO  TO  4 

bi.  IHUCJ.LE.CM)  CO  TO  4 

bv  i  ounce 

c*s  Jk*J 

c i  e^tucpor 

62  S.X«SPUP 

04  CTCUCTOk 

c*»  3TOSTCP 

Ob  ‘  ISCU-ISG-i 

to  IFfJW.r..:})  GO  TO  3 
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o7  *„  continue 

to  PH(;il(;iP,f;t)»FTArii(SP6,CPO) 

fA  p;  iOi<  pc  ;:p  ,:i  b )  =pnor  (  mp  ,me>  -phkr  ( mp .  me  ) 

•  it  I  r  (  PMORPOMP , ME ) . OT.PI )  PHORPMP,  ME)-P!!ORP(MP,ME)-TPI 

7  I  IFUMIORMUP,  AEJ.LT.-PI )  PHCRPt  MP,  ME)  *PFCRP(MP,  ME  )•*•  TP  I 

7 2  1 1  !()H  (/IP,  ME  )  =  bTAN2(  ETO.CTO) 

73  mc=;ie-i+j:- 

7*.  IFUIC.GI  .MEP(M.P)  )  MO  I 

7  t-  V  i  i  0  ( M  P ,  fc  b )  =  V  Cl )  ( M  P ,  M C ) 

7 o  ORO(  -MP,  ME)  »UCD(MP,  MC ) 

77  iVD(MP,ME)»l 

7«  C*.'!  SPECIFY  NUMBER  OF  STEPS  IN  ITERATION 

7 V  V:  SVD=IVf)(MP,ME) 

M  IVi'P=IVU(MP,/.E)+1 

c-  1  DPSRMPI  SPR-PHORPCMP.ME)  )/5TP 

c  c  ;;tso<thsr-tfor<mp,me)  >/stp 

c-  C !  ! !  SPECIFY  STARTING  POINT 
hi  VH=VROU.P,ME> 

at  UH=NiiO(.MPtME) 

cc  L!!!  PEUrOKM  IVDP-STEP  ITERATIONS  TO  NUMERICALLY 
cl  7  c !  ! !  COMPUTE  REFLECTION  AND  DIFFRACTION  PCItHTS. 

Ic  L ! ! !  STEP  THROUGH  ANGLES  (DEFINING  DIF.  RAY  PROP.  DIR.) 

c  V  IjO  :ji!  I\  =  l  .  I  VCP 

vi  PHCi;=PHCR(MP,..!E)+(  I V—  I  )*DP£R 

v  I  TIICIi^THCR(MP,ME)+(  I V-l  )*DTSR 

VC  CPCS=CC£  (PHCfi) 

V-  S  PCS =S  IMPUGN) 

v  *>  C’TCS=CGS(THCR) 

vt  STCS=SIN (THCR) 

vo  DCC I  )=Cf-CS*$1CS 

V 7  i  C(<7)=SPCS*STCS 

vo  DG(3)=CjCS 

vv  PCP( I )=-SPCS*STCS 

it..  r:cp<«?)»cpos*STcs 

III  DCj( I )=CPCS*C7CS 

li.C  I.’CT ( 2  )  =i'PCS*C7CS 

I.  _  [C’T(  3)=-STCS 

It  •.  CSV=COS(Vrt) 

It.o  Si.V»SIN<ViO 

ICC  SNX=ii*CSV 

I v  7  <NY  =  A*SI.V 

u  o  s;.px=-b*SNV 

lev  SNf'Y  =A*CSV 

lie  C !  ! !  COMPUTE  OLD  REFLECTION  POINT  ON  CYLINDER 
ill  XR(l)«A*CSV 

IIC  XR(2)=B*SNV 

11-  XR(3)»UR 

lie  XHV( I )=-A*SMV 

I  I h  XRV<2)=L*CSV 

lie  XRV<  3)=C.  I 

I  1 7  Xi<L'(  I  )»t<.  ! 

Ilrt  XRl'(2)=0. 

I I  V  XRU(3)=I. 

I2C  RV=C. 

12  1  DIJV=’.). 

I  22  DC  10  M«  I,  3 

123  VI  (N)  =  XI.(N)-XS(N) 

12- 1  i'DV=»l>DV+DC(N)*V(.YP.ME,N) 

1 2  ‘.i  1 1 .  P V  =P  V+  (  X R {  M )  -X  ( M P,  ME ,  M  ) )  *V  ( M P,  ME  , N  ) 

ICO  I’O  I  I  N«  I  ,3 

127  II  XI’(N)»X(M;>,;U;,N)+PV*V(MI',,ME,M) 

I2<  SM,«i). 

I2v  i.O  12  M-  1 . 3 

i.-c  12  :;.M=s:.+-<xitUi)-xpci)  )*(XH(N)-XP(N) ) 

I.  1  SM,»S<VT(  S'U  : 

I  ,i  2  CC)'l:'*!:l>V/r'.DI?T<  I.  -I'HVAnnV) 


I~J  CM!  FIND  OLD  DIFFRACTION  POINT.  KNOWING  RADIATION 
1^4  CM!  DIRECTION  AND  HOUSING  CYLINDER  REFLECTION 
!3o  CM  I  POINT  CONSTANT  i 

!3o  DO  13  N=  1 , 3 

1 3  7  xi)  a;  )=xp<  ;i  )+s.m*cotb*v<  mp.me,  n> 

i:l  Dim:)=xn(f;)-XR(n) 

I3v  VIV(N)=XRVO!) 

U.L  13  V 1 1 J { N )  =  X.RU  ( K  ) 

1*1  IFCIV.EO.IVDP)  GO  TO  AO 

1*2  UDPV=DC F  ( 1  )*V(  .MP  .ME,  I )  +DCP (2  )*V(,MP  .ME,  2 ) 

i '  3  DDTV  r:|)C  J  (I  )* V(MP  I )  +DCT  (2  )*  V  ( MP , M  E.  2 )  +DCT  (3  )  *V(  MP ,  ME.  3 ) 

I  *  *  CDDV=( I ,-DDV*DDV )**l .5 

Ub  CTRP»DDFV/DmV 

14,  CTbY=OD1 V/DDDV 

I  4  7  DO  I  4  N=l  ,3 

Ub  DRP(  ti  )  =  £.M*CTEP*V  (MP  ,,V.E,N  ) 

UV  !•.  DRT  (  N)=£M*CTBT*V  (MP.ME.N  > 

I  be-  CliUV  =0 . 

•lb  I  CRVV=D. 

Ib2  CkUiUO.  ; 

l‘jj  CRVRs'J. 

lb*  CHV=U.  : 

Ibb  DO  lb  N=i,3  ! 

I  bo  CR U V  =CRUV+XKL’(  M)  *V  < MP,  ME  .N  )  I 

i  b7  CkVV=CRVV+XRV< N)*V(MP, ME.NJ 

Ibb  CkUk=CkL:k+XRU<  N)*(  XH  (N  )  —  X <  MP.ME,  N)  > 

1 b V  15  CRVR=CRVR+XR V( N ) *( XR (N )-X( MP , ME, N) ) 
i to  ccu»cnuv+coTB*(CRnn-cnuv*pv)/sM 

It  I  CCV*CR VV  +COTB* ( C  RV  R-CR VV  *P V ) /SM  : 

l o2  DO  16  N« I, 3  ; 

I  c  3  DhU ( M ) =CCU  *V ( MP, ME , N)-XRU(N) 

Ic4  lo  DRV ( N) =CCV*V (MP, ME.N )-XRV( N) 

lob  0!!!  PERFORM  TAYLCR  SERIES  EXPANSION  TO  DEFINE  DV  AND  Dll 
lot  FV*>(  SDPX*V  I  (  I )  ♦SNX*V  IV  (  I  )+SNPY*V,I(2)+SNY*VIV(2  ))* 

167  2  ( SNX*UR<  2)  -SNY*DR(  1  )  5  i 

IOH  FV=FV+ ( iNPX*DR (2 )+SNX*DR V( 2 ) -SNP Y*DR ( I >-SNY*ORV( I))* 

16V  2 ( SNX*YI I  I ) +SNY*V 1(2))  | 

1 7  i  ■  FV«FV+(SHPX*VI (2 )  +  SNX*VIV(2)-SNPY*VI ( I )-SNY*VIV( I ) )* 

m  2  (SliX*DR(  I  )+SNY*DR(  2 ) )  i 

172  FV=Fv'+(  SNPX*Ok(  I  )+SMX*DRV(  I  )+SNPY*PR  (?.  )+SNY*DRV(2  )  )* 

173  2 ( SNX*V 1(2) -SNY*V 1(13) 

174  FU*(  SNX*DR (2  )-SNY*DR { I  >)*(SNX*VI1J(  I )  +SNY*V I UC 2  ) ) ♦ 

17b  2  (SNX*DR  (  I  )  +SNY*DR<  2  )  )*(SNX*V  I'J  (2  )-SNY*  VI  U(  1  )) 

I  7c  FU=FU+(SNX*VI( I >+SNY*VI<2) >*(SNX*DRU(2 )-SNY*f)RtJ( 1 > )  + 

177  2  (  SNX*l)RL  (  I  )  +  ?NY*PRUC2)>*<SNX*VI(2)-Sf,’Y*VI(  I  )  ) 

1 7 J  GV*DM(3)*(SNPX*VI( I >+SNX*V I V ( 1 )+SNPY*VI (2)+SNY*V[V(2 )) 

17V  GV=3V+V  I  (3  )*(SNPX*DK<  l  )+SNX*DRV(jl)  +SNPY*DR(2  )+SNY*PRV<2  ) ) 

ISO  GV  =GV+DI.V( 3  )*(  SN X* V I  { I  )+Si.’Y*VI  (2  ) )  +V IV  (3  >*(SNX*DR(  I  )+SMY*DR(2  ) ) 

lc  I  GU=Dfi ( 3)*(  SilX*YI U<  1)+SNY*VIU<2  )  )‘+VIU(3  )*(SNX*f)R(  I  >+SNY*PR<2>  ) 

Ib2  Gu*GU+Dhli(  3)*(  5NX*VI  (  I  )  +  SllY*VI  (2  )  >+VK  3>*< SNX*DRU(  1)  +SNY*DRU  (2  ) ) 

lb-  hP»( SNX* VI  (  I  )  +  SfJY*V I  (2  ))*(SNX*DRP(2)-SNY*DRPCI  )>  + 

104  2  (  SfiX*  V I  ( 2  )  -SNY*V  I  (  I  )  )*<SMX*DRP(  I  )+SNY*DRP(2) ) 

10b  FT»C  SIIX* V I  (  I  )+SNY*VI  (2  ))*<SNX*DRT(2)-SHY*DRT(  I  )>  + 

I  be  2(SI1X*VI(2)-SNY*VI(  I  }  )*CSNX*DRT(  I  )  +  SNY*DRTC 2 >  > 

Ib7  GP«VI (3)*<SNX*DSP< 1 )+SNY*DRPC2 ) > +DRP (3 )*( SNX*VI ( t)+SNY*VI<2) ) 

I  bU  GT*DRT(  2  )*  ( SKX*V  I  (  ! )  t-S!IY*VI  C  2  )  >+VI  (3  )*  (SHX*DRT(  I  )+SNY*DRT(  2  ) ) 

.  IbV  FI«<S:iX*VI(l  )  +  S;iY*VI(2))*(?NX*DR(2)-SNY*nR(!  ))  + 

I  VO  2<S!IX*IJH<  1  )  +Sf'Y*DR(  2  )  )*  (  S''X*VI  <  2  )—SMY*V  I  (  I  )) 

IV  I  GI-Dii(3)*(Sr'X*VI  (1  )+SNY*VI  (2  ) )  +V I  (  3)  +(  SMX*DR(  I  )+Sf’Y*DR(2  )) 

I V2  l>.  r=FO*(. V-FV*GU  I; 

I  V3  I'V*(  <FI*C!1-GI*FU  )+(GU*rP-FU*G?)*DPSR+(GU*FT-FU*GT)*DTSR)/DET 

I V4  DU= ( ( Gl*FV-r I*GV )+ ( FV*GP-CV*FP )*DPSR+< FV*GT-GV*FT) *DTSR> /DE7 

ivb  CM!  COMPOTE  .’.'E.V  liEFLECTION  POINT  ON  CYU’^ER 
I  VO  Uk=l)k+DU  } 

IV7  *o  VR-vk+’H 

i  vis  it-  com  m  nut:  I 

*  i 
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I 

i 


1  v  v  c.; 
2fci  C!  ! ! 
2l  I  L  !  !  ! 
20.! 

20- 
2 1  4 
2t-5 
21  o 
..’>  ’< 

2i  r, 

2 1  V 
2  111 

2  I  I  2'. 

2  12 
2  13 
21*. 

2  1  5 

2  I  c  2o 
2  i 
2  1  i 
2  I  v 
221 

22  1 
222 
i.i.  « 

22*- 

22- 

22  o  c  !  ! ! 
22  7  <-  !  ! ! 

22  b 

22V  C ! ! ! 
23 1.  c!  !! 

23  I 

222 

2- v  .  i  > 

235 
22  o  l 
2~  ’< 

22o 

22 V  lb' 

24 
2*.  1 
242 

24  3  Vlr. 

2  o!  ! ! 

24t, 

2*.6 
241 
2<b 
2*- v 
2  a  H 

25  I 
2  a  2- 
25  3 


CONTINUE 

TEST  10  5EE  IF  COMPUTED  SC /TIER  POINTS  SATISFY 
LAPS  Ob'  REFLECTION  AND  D I TFRACTI  CM 
SN  " = SORT ( S I  /  X  * S  N X  +S N  V  *S  N  Y ) 
s::x=snx/snm 

SNY=SNY/5i\’.M 
;.imv=n.  - 
drm=c. 

VI.M-O. 

DO  2'J  N=  I ,3 

v i ,\.=v i m+ v i  <rn*vi  (ii) 

UDRV  =DDkV+UR  (fl  )*V(  J.  P.I.lE,  N) 
l:R.M=DR;.t+DR(N)*OR(N) 

vi.Y.=soin  (vi.".) 

U:<.M=SOiVi  (Dll/.' ) 

1  >o  3 u  ;.'=i, 2 

VI(f:)»VI(N)/VIM 

I;W(N)=!)K(N)/DR/! 

L'DI<V=CDR  V/DRM 
t-.KCb=AB2  (L'DV-DDHV) 

S!iAI)=SNX*DR(  1  )  ■»-SNY*DR(  2  ) 
s;;A!)C=sr;x*vi  <  i  >+sny*vi (2 > 

ER’C=SH  AD+SMADC 
i.0TP  =  .5*(  SHAD- SH  ADC ) 

ERCAaA3i  (FRO 
bKC=t:RCA 

I F  ( L  RC  Li .  GT .  E  RC  >  E  i  tC = ERC  B 

! r  ERROR  IS  VERY  SHALL,  DIVIDE  NUMBER  OE  STEPS 
III  HALE  FOR  NEXT  TIME  ROUTINE  IS  CALLED 
IE(L:RC.LT.tl.OI  )  CO  TO  UK 

IF  EnROR  IS  TOO  151 C,  DOUBLE  MUMPER  OF  STEPS 
( UP  TO  32)  AND  REPEAT  ITERATION 
I  F <  I  VI)(A!P,  ME  ),  OE .32 )  GO  TO  72 
I VLH  MR,  X  E)  =»2*I  VD(MP,NE ) 

GO  TO  40  j 

CONTINUE 

NKITEIo,  I)  PH5((,THSR  ,MP,.‘IE,VR,t)R,ERCA,  ERCB 
bORM  AT( '  ERROR  IN  RFDFPT=  2F  12  .6,2  I5.4FI2.6) 
lrix.'=. false. 

RETURN  ; 

CONTINUE 

IrTERC.GE.C.ClM  )  00  TO  VO 
Ir(IVD<;AP,MO).EO.I  )  GO  TO  VM 
1  VD(:.'P,I.  L)=I  vi)( ,M P ,  ME ) /2 
CONTINUE 

STORE  PARAMETERS  FOR  NEXT  TIME  RFDFPT  IS  CALLED 
Vh C(  MR ,  /•  E )  =VR 

URO(  MR,,'.  E)  =UR  j 

f ’K  OR  ( M  P ,  ME  )  =  PI  I  SR 
PH  Ok  P  ( Mi  P  ,  M  E )  *PH5  PR 
THOR (IP,  'IE  )=THSR 

I F ( .HOT, LRPC )  IVD(MP,ME)=I  I 

LI,  DC =.  TRUE .  ! 

RETURN  I 
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RFPTCt 


I 

PURPOSE 

To  calculate  the  reflection  point  on  the  elliptic  cylinder  for 
a  source  ray  reflected  In  a  given  direction.  The  routine  also 
computes  cylinder  reflection  points  for  source  rays  that  are  re- 
fleeted  by  a  given  plate  and  then  reflected  by  the  cylinder. 

PERTINENT  GEOMETRY 


y 


figure  94*-  Illustration  of  cylinder  reflection  point. 
I  *  x  SIX  ♦  y  SI Y 
n  *  x  SNX  ♦  y  SNY 
^  *  A  cos  VR  ♦  y  o  sin  Vft 
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Figure  95--  Geometry  for  calculating  reflection  point. 


x  DX  +  y  DY 
x  DPX  +  y  DPY 
x  SNX  +  y  SNY 
x  SNPX  +  y  SNPY 
x  SIX  +  y  SIY 
x  SIPX  +  y  SIPY 

reflection  point  for  ray  with  reflected  phi  angle  PHPR 
x  A  CSV  +  y  B  SNV 
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SOURCE 


Figure  96 - - I i lustration  of  iterative  method  used  in  computing 
the  cylinder  reflection  point. 


METHOD 

The  reflection  point  For  a  ray  reflected  in  a  direction  de¬ 
fined  by  the  phi  angle  PHSR  is  calculated  via  an  iterative  process. 
The  routine  starts  with  the  tangent  ray  nearest  to  the  reflected 
ray  direction  (or  other  nearby  reflected  r$y  whose  reflection 
point  is  known)  and  steps  along  the  cylinder  surface*  calculating 
the  approximate  reflection  point  for  each  reflected  ray  phi  angle 
PHPR  (which  is  stepped  from  PHOR  to  PHSR  in  evenly  spaced  steps). 
Each  reflection  point  calculation  uses  the  previous  reflection 
point  as  a  reference.  As  long  as  the  steps  are  sufficiently 
small,  the  approximation  is  accurate.  The  equations  are  based 
on  a  first  order  Taylor  series  approximation  of  the  equation  gov¬ 
erning  the  laws  of  reflection.  Further  details  are  given  on  pages 
102-104  of  Reference  1.  The  point  obtained  at  the  end  of  the 
process  is  the  estimated  reflection  point.  The  routine  then  takes 
the  sum  of  dot  products  of  the  cylinder  normal  and  the  incident 
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and  reflected  rays  (which  should  be  zero  in  order  to  satisfy  the 
law  of  reflection).  If  it  is  larger  than  some  minimal  amount, 
the  number  of  steps  used  to  iterate  angle  PHPR  is  doubled  and 
the  calculation  is  done  again.  If  the  error  is  much  smaller  than 
necessary,  the  number  of  steps  used  in  the  next  calculation  is 
divided  by  two. 

Once  a  reflection  point  is  calculated  for  a  particular  geometry, 
the  elliptical  angle  defining  the  reflection  point  (VRO(MR))  is 
saved,  along  with  the  number  of  steps  used  to  calculate  it  (IVD(MR)) 
for  the  next  time  RFPTCL  is  called  for  the  same  geometry.  Since 
the  next  pattern  angle  is  likely  to  be  quite  close  to  the  previous 
one,  this  gives  the  computer  a  good  starting  point  in  defining 
the  next  reflection  point,  hence  minimizing  computer  time.  LRFC 
is  a  logical  variable  which  if  true  tells  the  user  that  there 
is  data  from  the  previous  pattern  angle  available  to  compute  the 
next  reflection  point.  If  a  reflection  does  not  occur,  LRFC  is 
set  false,  and  the  next  time  the  routine  is  called,  it  will  start 
at  the  nearest  tangent  point. 
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FLOW  DIAGRAM 


RFPTCL  ( PHSR.MP , VR ,DOTP ,DO , S.LRFC ) 

INPUT  VARIABLES 

PHSR  phi  component  of  reflected  ray 
propagation  direction  in  RCS 
HP  used  to  specify  source  or  source  image: 
NP*0  indicates  source 
MP>0  indicates  source  image  for 
reflection  from  plate  HP 
LRFC  set  true  if  reflection  occurred  last  time 
subroutine  RFPTCL  was  called 

OUTPUT  VARIABLES 

VR  elliptical  angle  defining  2-d  reflection 
pointij  ERCS 

DOTP  (fi*n-i*n)/?  (error  detection  variable) 

DC  normal  iaacon  constant  for  n,  the 
inflection  poir-  normal 
S  distance  iron)  source  to  reflection  point 
in  x-y  plane 

LRFC  set  true  to  indicate  presence  of  stored 
starting  point  data  for  next  time 
RFPTCL  is  called 

Note:  LRFC  is  used  both  to  input  and  output  data 


Specify  source  location 


No 


Compute  starting  point 
i 

_ i _ 

Specify  source  vectors  tangent 
to  cylinder  and  ell.  angles 
defining  tangent  points 
i  j 

_ i - 

Compute  angles  and  specify  which  tangent 
vector  is  closest  to  the  reflected  ray 
propagation  direction.  PHOP(MR)  defines 
nearest  tan  v  -’tor,  VRO(NR)  defines 
correspond^  tan  point  In  ERCS 
IVMFEH 


Spec.fy  starting  point 
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SYMBOL  DICTIONARY 


CPP 

CPS 

CSV 

DD 

DOTP 


DPX? 

Dpy] 

DR 

DS 

DSPK 
DV 
DX  I 
DV  J 
DVD 

DVJ 


ERC 

ERCA 

ERCS 

FI 

IVD 

IVDM 

LRFC 

MP 


MR 

PHE 

PHEP 

PHIR 

PHOH 

PHOfiU 

PHORP 

PHPR 

PHSPR 

PHSR 

S 

SIPX 
SIPY  , 
SIX 
SIY  . 
SNPX 
SNPY 
SNV 
SNX  1 
SNY  J 
SPP 
SPS 
STP 


COSINE  OF  PHPR 
COSINE  OF  PHSR 
COSINE  OF  VR 

NORMALIZATION  CONSTANT  FOR  REFL  POINT  NORMAL  VECTOR 
ONE  HALF  THE  DIFFERENCE  BETWEEN  THE  DOT  PRODUCTS 
OF  THE  REFLECTED  RAY  DIRECTION  AND  CYLINDER  UNIT 
NORMAL  AND  THE  INCIDENT  RAY  DIRECTION  AND  CYLINDER 
UNIT  NORMAL 

X  AND  Y  COMPONENTS  OF  PARTIAL  DERIVATIVE  OF  REFLECTED  RAY 

DIRECTION  WITH  RESPECT  TO  PHI  OBSERVATION  ANGLE 

DOT  PRODUCT  OF  INC  RAY  UNIT  VECTOR  AND  CYL  UNIT  NORMAL 

DOT  PRODUCT  OF  REFLECTED  RAY  PROPAGATION  DIRECTION 

UNIT  VECTOR  AND  CYLINDER  UNIT  NORMAL 

SIZE  OF  ANGLE  STEP  USED  IN  ITERATION 

CHANGE  IN  ANGLE  VR 

X  AND  Y  COMPONENTS  OF  UNIT  VECTOR  OF  REFLECTED  RAY 
(DIRECTION  DEFINED  BY  ANGLE  PHPR)  IN  RCS 
PARTIAL  DERIVATIVE  OF  THE  REFLECTION  LAW  EQUATION 
(FI)  WITH  RESPECT  TO  ELL  ANGLE  V 
PARTIAL  DERIVATIVE  OF  THE  REFLECTION  LAW  EQUATION 
(FI)  WITH  RESPECT  TO  THE  PHI  ANGLE  OF  THE 
OBSERVATION  DIRECTION 
ERROR  PARAMETER  (SUM  OF  DS  AND  DR) 

ABSOLUTE  VALUE  OF  ERC 

(NOl  A  VARIABLE)  ABBREVIATION  FOR  ELLIPTICAL  REFERENCE 
COORDINATE  SYSTEM 

EQUATION  SATISFYING  THE  LAW  OF  REFLECTION 
NUMBER  OF  I  ORATIONS  USED  TO  FIND  REFL  POINT  THE 
LAST  TIME  RFPTCL  WAS  CALLED  FOR  PLATE  MP 
NUMEER  OF  STEPS  USED  IN  ITERATION 

(ENTERING  ROUTINE)  SET  TRUE  IF  REFL  OCCURED  LAST  TIME 
REFCYL  WAS  CALLED.  (LRFC  ALWAYS  SET  TRUE  LEAVING  ROUTINE) 
USED  TO  SPECIFY  WHETHER  SOURCE  OR  SOURCE  IMAGE  IS  USED 
MP=fc)  DESIGNATES  SOURCE 

MP>0  DESIGNATES  SOURCE  IMAGE  FOR  REFLECTION  FROM  PLATE  MP 
INDEX  VARIABLE  (MP+MPRX-M)  FOR  STORING  DATA  FOR  NEXT 
CALL  TO  RFPTCL 

PHI  ANGLE  BETWEEN  REFLECTED  RAY  DIRECTION  AND  TANGENT 
POINT  M2 

PHI  ANGLE  BETWEEN  REFLECTED  RAY  DIRECTION  AND 
TANGENT  POINT  #1 

PHI  COMPONENT  OF  SOURCE  LOCATION  IN  RCS 
REFLECTED  RAY  PHI  ANGLE  (STORED  AS  STARTING  POINT 
PARAMETER  FOR  NEXT  TIME  ROUTINE  IS  CALLED) 

PHI  ANGLE  DEFINING  RAY  TANGENT  TO  TAN  POINT  I 
PHI  ANGLE  OF  CYLINDER  REFLECTED  RAY  DIRECTION  IN 
ROTATED  RCS  SYSTEM 

REFLECTED  RAY  PHI  ANGLE  (ITERATED  FROM  PHOR  TO  PHSR) 

PHI  ANCLE  DEFINING  REFLECTED  RAY  DIRECTION  IN 
ROTATED  RCS 

PHI  COMPONENT  OF  REFLECTED  RAY  PROPAGATION 
DIRECTION  IN  RCS 

DISTANCE  FROM  SOURCE  TO  REFL  POINT  IN  X-Y  PLANE 
X  AND  Y  COMPONENTS  OF  PARTIAL  DERIVATIVE  OF  INCIDENT 
RAY  VECTOR  WITH  RESPECT  TO  ELL  ANGLE  V 
X  AMD  Y  COMPONENTS  OF  INCIDENT  RAY  PROP  VECTOR 
IN  RCS  (NOT  CONSISTANTLY  NORMALIZED) 

X  AND  Y  COMPONENTS  OF  PARTIAL  DERIVATIVE  OF  CYLINDER 
NORMAL  AT  REFLECTION  POINT  WITH  RESPECT  TO  ELL  ANGLE  V 
SINE  OF  VR 

X  AND  Y  COMPONENTS  OF  RAY  NORMAL  TO  CYL  REFL  POINT 
IM  RCS  (NOT  CONSISTANTLY  NORMALIZED) 

SINE  OF  PHPR 
SINE  OF  PHSR 

NUMbER  OF  STEPS  USED  IN  ITERATION 


I 

I 

V ii  ELL.  angle:  defining  reel  point  in  ercs 

YiiO  ELL  ANGLES  DEFINING  TANGENT  POINTS  FOR  SOURCE  RAY  (OR 

1  SOURCE  RAY  REFLECTED  FRO!.<  PLATE)  TANGENT  TO  CYLINDER 

XIS  SOURCE  LOCATION 

I 

I 

f 


1 

A 


3. 
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CODE  LISTING 


1  - - - 

2  SUBROUTINE  RFPTCLf PHSR.MP,  VRj,DOTP,DD,S,LRFC) 

4  C !  ! ! 

4  tii!  DETERMINES  REFLECTION  POINT  ON  AN  ELLIPTIC  CYLINDER 
b  t !  ! ! 

0  LOGICAL  LRFC.LGRND 

V  DIMENSION  I VD(29) ,PH0R(29) ,VRO(29),XIS(3) , PH0RP(29 ) 

B  COMMON/CEOMEL/A, B,ZC  (2  ) ,  SNC(2>',CNC(2  )  .CTCI2 ) 

V  COMMON/ SOR I NF/ XS ( 3 ) , VXS  <  3, 3 ) 

It  C  0 1W.1  ON/GEQ  PL  A  /  X  ( 14,6,3), V( 14 ,6 ,3) , VP( I  4,6,3) ,VN( 14,3) 

ill  2  ,MEP(  1  4)  ,MPX 

12  COfcMON/I MAIHF/X! < 14, I4,3),VXI(3,3, 14) 

1 3  COMMON/P  I  S/P  I ,  TPI ,  DPR',  RPD 

U  COMMON/fcNDSCL/DTS, VT3(2) ,BTS(4) 

lb  COMMON/fcNDICL/DTK 14), VTI( 14,2), 3TI( 14,4) 

10  COMMOii/GROUND/I.GRND,  MPXH 

n  mr=mp+mpxr+i 

18  SPS»SIN(PHSR) 

19  CPS=COS( PHSR ) 

2f  t !  ! !  SPECIFY  SOURCE  LOCATION 

21  IF (MP.GT.0)  GO  TO  11 

22  DO  ID  11=1,3 

23  10  XIS(N)=XS(N) 

24  PHIR=8TAN2  (  XS(2) ,XS( 1 ) ) 

2b  GO  TO  lb 

20  II  CONTINUE 

27  DO  12  N= I, 3 

28  12  XIS(N)=AI(MP,MP,N) 

2V  PHIR=BTAN2(XI(MP,MP,2),XI(MP,MP, I )) 

30  lb  CONTINUE 

31  PHSPR=PhSH-PHIR 

32  lF(PHSPk.GT. PI )  PHSPR-PHSPR-TPI 

33  IF(PHSPk.LT.~PI>  PHSPR=PNSPR+TPI 

34  till  WAS  REFLECTION  PRESENT  LAST  TIME  REFCYL  WAS  CALLED? 

4b  IF(LRFC)  GO  TO  40 

3o  IVD( MR ) *  1 

37  til!  SPECIFY  TANGENT  VECTORS 

38  IF(MP.GT.O)  GO  TO  20 

39  PHOk ( NR ) =BTAN2  <  BTS<4 ) , BTS( 3 ) ) 

40  VRQ( MR )=VTS( 2 ) 

4  I  PH0RB=BTAN2<  BTS< 2)  ,BTS(  I  )) 

42  GO  TO  2b 

43  20  CONTINUE 

44  PH0R(MR)=BTAN2(BTI<MP,4) ,BTI (MP.3) ) 

4b  VROCMR )=VTI (MP ,2 ) 

46  PH0RB=8TAN2(  FT  I  (  MP,2  )  ,BTI  (MP‘,  I  )) 

47  cb  CONTINUE 

4a  CHI  COMPUTE  ANGLES  AMD  SPECIFY  WHICH  TAN  VECTOR  IS  CLOSER 
49  t!!!  TO  THE  KEFL  PROPAGATION  DIRECTION 
bU  PHORPt  MR )=PHOR ( MR) -PHI  R 

bl  IF(PH0RP(.'4R)  .GT.PI )  PHORP(MR)»PHORP(MR)-TPI 

b2  IF(PHOHP(MR) .LT.-PI )  PHORP(MR)"PHORP(VR)*TPI 

b3  PHORBP=PHORB-PHIR 

b4  IKPHORLP.GT.PI)  PHORBP-PHORBP-TPJ 

bb  IF( PHORLP. LT.-PI )  PHORBP=PHORBP*TPI 

bo  PHE=ABS(PHSPR-PHORP(MR ) ) 

b'<  PHEP=ARS<PHSrR-PMORBP) 

be  IF(PMEP.CE.PIIE)  GO  TO  40 

b9  PHOk  (MR )  "PHORlt 


00 
o  l 
02 

Oj  t!  1 
64  c !  I 

ob  k  \  ! 
6  0  Ci  ! 


PH  Oft  P(  MR )  =  PH  CR  BP 
VliO(Mh)=VTS(  1 ) 

IF(MP.Cl.H)  VRO( MR )  =  VTI<  MP, I  1 

INCREMENT  ANGLE  PHPR  FROM  THE  CYL  TAN  ANOLE  PHOR  TO 
PROP.  ANCLE  PHSR  IN  IVD(MR)  STEPS  AND  CALCULATE  APPROX. 
VR  (THE  ELL.  ANOLE  DEFINING  THE  REFL  POINT)  FOR  EACH 
ANGLE  PHPR  UNTH.  PHPR-PHSR  AND  APPROX  V3  FOR  REFL  POINT 
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67  CM!  IN  DESIRED  PROP.  DIRECTION  IS  OBTAINED. 

08  M3  STP=IVD(MR) 

09  DPSR=( PHSPR-PHORPC  MR ))/STP 

70  VR=V«0(MR> 

71  I VDM=IVD(MR) 

72  u !  1 1  STEP  THRU  ANGLES 

72  DO  50  IV=1 ,IVDM 

74  PHPR=PHGR(MR)+(IV-1 )*DPSR 

75  CPP=COS( PHPR ) 

7o  SPP=SItl(PHPR) 

77  DX=»CPP 

78  DY=SPP 

7V  DPX=-SPP 

60-  DPY*CPP 

81  CSV=C05( VR ) 

82  SNV=3IN(VR) 

82  SNX=B*CSV 

84  SNY»A*SNV 

85  SI  X=A*CSV-XI  S<  1 ) 

86  SIY=B*SNV-XISC2> 

87  SNPX— B*SNV 

88  SNPY=»A*CSV 

89  SI PX=-A*SNV 

90  SI PY=B*CSV 

9  1  F I  =  ( SNX*S I X+SN  Y*S I Y ) ★( SNX*DY-SNY*DX  >  + 

2 .2  2  ( SNX*DX+SN  Y*UY  )*  ( SNX*SI  Y-SNY*SI  X ) 

9.2  DVT=  ( SNX*S I  X+SNY*S  I Y 5 * ( SNX*DPY-SNY*DPX  ) 

9*  OVT-DVT+  <  SNX*DPX+SNY*DPY ) * ( SNX*S I Y-SNY*S I X ) 

95  L)VB“<  SNPX*SI  X+SNX*SI  PX*SMPY*SI  Y+SNY*SI  PY  )* 

90  2 ( SNX*DY-SNY*DX ) 

97  DYB^DV  B+  ( SNPX*SI  Y+SNX*SI  PY-SNPY*SI  X-SH Y*SI  PX  )* 

98  2  (■SNX*DX+SNY*DY)* 

99  DVB=>DVB+  ( SNX*SI  X+SNY*SI  Y  )*(  SMPX*DY-SNPY*DX ) 

100  DV  B-DV  B+ ( SNPX*DX+SNFY*DY )* ( SNX*S I Y-SNY*S I X ) 

10  I  DV=-(FI*DVT*DP5fi  J/DVB 

102  0!!!  APPROXIMATE  ANGLE  VR  FOR  THE  REFL  POINT  IN  DIRECTION  PHPR 
loj  VRaVR+DV 

U4  50  CONTINUE 

105  CIS!  CHECK  ACCURACY  OF  REFLECTION  POINT  ANGLE  CALCULATED 
100  CSV»COS(VH) 

It7  SNV=SJN(VH) 

108  SNX=B*CSV 

109  SNY= A*SNV 

110  UD=SQkT(SNX*SNX+SNY*SNY> 

1 1  I  SNX=SNX/DD 

112  SNY=SNY/DD 

112  SI  X=A*CSV-X1  S<  I ) 

114  SIY=B*SNV-XIS(2) 

115  S=SQRT(SIX*SIX>SIY*SIY) 

116  SI X=SI X/S 

117  S1Y-SIY/S 

1 18  C!M  CALCULATE  THE  ERROR  FUNCTION  ERC,  THE  SUM  OF  DOT 

119  CM!  PRODUCTS  OF  INCIDENT  AND  REFLECTED  UNIT  VECTORS  AND 
12U  CM!  CYLINDER  UKIl  NORMAL  (SHOULD  BE  CLOSE  TO  ZfcRO) 

121  DS»SNX*CPS*5NY*SPS 

12 2  OR"SNX*SIX*SNY*SIY 

122  D0TP-.5*<DS-DR> 

124  ERC-DS+DR 

125  EKCA-ABS(EKC) 

120  CM!  IF  ERROR  IS  NOT  SUFFICIENTLY  SMALL,  DOUBLE  NUMBER  OF  STEPS 

127  0!!!  (UP  TO  72)  AND  RECALCULATE  VR 

l  :8  1 r tuNOA.LT.U.WWJS)  GO  TO  80 

129  CM!  18  max  LUMPER  OF  STEPS  ALREADY  REACHED,  PRINT  WARNING 
I2n  1 8 ( I VO(MR) .GE.32 )  GO  TO  70 

121  IVIKMH>«2*IVD(MR) 

(j2  GO  lu  40 


375 


Icj 

M 

com  iNUk 

134 

NRITEtG, 1 )  ERC.VR.PHSR 

13b 

1 

FORMAT! '  ERROR  IN  RFPTCL*  '.3FI2.6) 

l3o 

60 

CONTINUE 

13'/ 

C!  11 

IF  ERROR  IS  VERY  SMALL,  DIVIDE  NUMBER  OF 

ITERATION 

1  Jb 

Cl !! 

STEPS  USED  IN  HALF  FOR  NEXT  TIME  ROUTINE 

IS  CALLED 

13V 

IF(ERCA.GE.«.0UU1»)  GO  TO  90 

140 

IF( IVD(PR) .EC, 1 )  GO  TO  90 

14  1 

IVD(MR)“IVD( MRJ/2 

U2 

VO 

CONTINUE 

143 

VRO<MR)»Vfl 

U4 

PHOR(MR)=PHSR 

14b 

PHORP(MR)cPHSPR 

140 

IF(.NOT.LRFC)  IVD(MR)-I 

147 

LRFC*.TRUE. 

1  *0 

RETURN 

14V 

END 
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ROTRAN 


PURPOSE 

To  transform  a  point  or  vector  defined  in  the  old  reference  co¬ 
ordinate  system  to  the  new  (cylinder-centered)  reference  coordinate 
system  representation.  This  is  used  in  the  main  program  to  perform 
the  reference  coordinate  system  transformation. 

PERTINENT  GEOMETRY 


2oto 


Figure  97—  Illustration  of  old  and  new  refetercn 
coordinate  systems. 

\  *  J0ld  xx<>>  *  Sold  xx<2>  +  Soid  xx<3> 

\  «  S  XftT(l)  ♦  y  XRT(2)  ♦  ?  XRT(3) 

METHOD 

The  point  Xx  defined  in  the  old  coordinate  system  may  be  repre¬ 
sented  by  point  ¥.t  in  the  new  cooridnate  system  where: 


377 
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'cljv 


where  *  Ix  -  JQ 


XRT(l) " 

XCL(l)  XCl(2)  XCL(3) 

XX(1)  -  X0(1)' 

XRT (2) 

= 

YCl(l}  YCL<2)  YCI.(3) 

XX(2)  -  XQ(2) 

XRT(3)  . 

ZCt(l)  ZCL(2)  ZCL{3). 

.XX(3)  -  X0(3). 

* 


where  J  is  the  location  of  the  ngw  coordinate  system  origin  defined 
in  the  8ld  coordinate  system  and  x,  y,  2  are  unit  vectors  defining 
the  new  coordinate  system  axes  in  old  coordinate  system  components: 


x  .  x0.d  XCL(l)  *  ;old  XCL{2)  *  Zold  XCM3) 

y  •  io!d  VCL(l)  *  J0,d  YCL(2)  *  Jold  VCL(3) 

?  •  x0,d  2CL(1)  *  J0]d  za(?)  *  i0)d  za(3). 

FIOU  DIAGRAM 
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SYMBOL 


CODE  LIST1 


i  u — - 

1 

2  CM! 
4  CM! 
b  C!!! 
o  U  t! 
< 

6 

V 

Ikl 

it  CM! 
12 

12  ID 
14  CM! 

10 

I 

to 

IV 

vvU 

>  I 
«  1 

22 

2, 

24 


SyC&tt!Tl*ic  HCTHANUSfl.XX.XO) 

Cixxminrs.  mNSUTlCM  •'iO  KOTATlOHt  XO  IS  THE 
fife*  G*»IC!K»  ICC, XCL.ZCL  DEFINE  T!£  NEK  AXES. 

DlsiEtiSiCfi  XHTliMXXt jJ.XOUJ.XTO) 

LUOtCAC  CDEB£».CTCSr 

COW«Cfi/HeTfiOT/iCL{  3)  .rct:3  ),2CU  3) 

C0WU?i/*.EST/PS60G,LTESr 

TkANSCAttG*  Cf  C0QU01NATES 

OC  10  N-1,.3 

xits}«xxts>-xy{N) 

feOSAUON  OF  CUO^OINAtcS 

Aj*T<  IJ*SCL«  l  J*XT!?  »*XCU3>*XT<  "vXCU  Jl 

*KTt  JI«M«  !W«.M  I*nc3  J»YCU2>*XTf23%VCl.,0! 
khT  1 3 » 1 1)  *2Cl  { IJ  ♦  XT  <  3  I  *Zc  U  3 )  *XT  1 3  >  *.  CU  3 ) 

ir5.NuT.c;EST>  kitiiav 
HH'.TSSft.VcC!) 

F*&.«AT(/.'  ‘ISTtfa.  4t7TS;*K  S»9*CUmE#> 
KWtT-(0,*l  r 5»T 
pkUsis.*!  n 
SO 

■ETC'**4 
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RPLDPL 


PURPOSE 

To  calculate  the  far-zone  electric  field  (with  phase  referred  to 
the  RCS  origin)  for  a  source  ray  that  reflects  off  plate  MR  and  is 
then  diffracted  off  edge  ME  of  plate  MP. 

PERTINENT  GEOMETRY 


POINT 

/ 

/ 

/ 

/ 

*  SOURCE  IMAGE 
LOCATION  XIS 


Figure  98--Illustration  of  a  ray  reflected  by  a  plate  and  then 
diffracted  by  a  plate  edge. 
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METHOD 

The  field  reflected  by  a  plate  and  then  diffracted  by  another 
plate  edge  is  calculated  in  this  subroutine  f4,9,10].  The  field 
reflected  from  the  plate  is  found  using  image  thoery.  The  diffracted 
and  slope  diffracted  fields  of  the  plate  edges  and  corners  are  ob¬ 
tained  as  described  in  subroutine  DIFPLT.  Tir  diffracted  edge  and 
slope  fields  are  combined  and  the  phase  is  referred  to  the  reference 

A 

coordinate  system  origin  by  the  factor  e^  The  form  of  the 
field  is  therefore  given  by 

A  0-M 

1°  *  WJEDTH0  +  EDPH4>)  . 


The  corner  and  slope  corner  diffracted  fields  are  combined  in  a 
similar  way  and  are  given  by 


=  Wm(ECTH@  +  ECPH$) 


e-jkR 

~T~ 


-jkR 

where  the  factor  •=-« —  and  the  source  (W  )  weight  are  added  elsewhere 
in  the  code. 


i 
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'(ZliiM k-iM+a 


Loop  through  both  corners  on 
edge  ME  (varlable'MC) 


impute  corner  diffraction 
coefficient  (CORN) 


Compute  modified  edge  diffraction 
coefficients  (DH.DS) 


Compute  components  of  diffracted  field 
perpendicular  ano  parallel  to  the  edge 
Also  refer  phase  to  PCS  origin 


Compute  theta  and  phi  exponents 
of  diffracted  field 


«*»•  *"d  Phi  components 
(for  both  corners)  of  corner  diffracted 
fields  in  reference  coordinate 
system  (ECTH.ECPH) 


1 

Return 


SYMBOL  DICTIONARY 


ADM  DOT  PRODUCT  OF  VECTOR  FROM  PLATE  MP  TO  TJ€  SOURCE  IMAGE  AND  THE 
PLATE  UNIT  NORMAL 
AFN  ME DOE  ANCLE  NUMBER 

BUEL  VARIABLE  USED  TO  EXPAND  DIFFRACTION  ANGLE  RANGE  IF  CORNER 
DIFFRACTION  IS  USED 

BUHI  UPPER  LIMIT  FOR  ED,  THE  COSINE  OF  THE  DIFFRACTION  ANGLE  BETA 

BDLCH  LOWFR  LIMIT  FOR  BD,  THE  COSINE  OF  THE  DIFFRACTION  ANGLE  BETA 
BETN  DIFFERENCE  IN  DIFFRACTED  AND  INCIDENT  PHI  ANGLES 
BETP  SUM  OF  DIFFkACTED  AND  INCIDENT  PHI  ANGLES 

BO  DIFFRACTED  FIELD  BETA  POLARIZATION  UNIT  VECTOR  IN  DIFFRACTION 
EDGE  COORDINATE  SYSTEM  (IN  X,Y,Z  RCS  COMPONENTS) 

BOP  INCIDENT  FIELD  bETA  POLARIZATION  UNIT  VECTOR  IN  DIFFRACTION 
EDGE  COORDINATE  SYSTEM  (IN  X,Y,Z  RCS  COMPONENTS) 

BRD  LONER  AND  UPPER  LIMIT  FOR  EDGE  DIFFRACTION  ANGLE 
6WD(  I  >«COS<tL0?f) 

E>HD(2)-COS(EHIGH> 

CNP  COSINE  OF  HALF  I)  EDGE  ANGLE 

CORN  CORNER  DIFFRACTION  COEFFICIENT 

CPU  COSINE  OF  PSR 

CPHJ  COSINE  OF  PHJR 

CPHC  COSINE  OF  PSOR 

CTH  COSINE  OF  THR 

CTHJ  COSINE  OF  THJR 

CTHP  COSINE  OF  THPR 

DEL  PARAMETER  USED  IN  TRANSITION  FUNCTION 
OH  DIFFRACTION  COEF.  FOR  HARD  BOUNDARY  CONDITION 
DHIR  DISTANCE  FROM  REFLECTION  POINT  TO  DIFFRACTION  POINT 
DHI 1  DISTANCE  FROM  SOURCE  TO  REFLECTION  POINT  (FROM  PLAINT) 

DHT  DISTANCE  FROM  SOURCE  TO  HIT  (FROM  PLAINT  AND  CYLINT) 

DIN  EDGE  DIFFRACTION  COEFFICIENT  (FROM  SUB.  DI )  FOR  INCIDENT 
DIFFRACTED  FIELD 

DIP  EDGE  DIFFRACTION  COEFFICIENT  (FROM  SUB.  DI)  FOR  REFLECTED 
DIFFRACTED  FIELD 

DPH  SLOPE  DIFFRACTION  COEFFICIENT  FOR  HARD  BOUNDARY  CONDITION 

OPS  SLOPE  DIFFRACTION  COEFFICIENT  FOR  S r  ;  BOUNDARY  CONDITION 

DS  DIFFRACTION  COEF.  FOR  SOFT  BOUNDARY  CONDITION 

DV  DOT  PRODUCT  OF  EDGE  UNIT  VECTOR  AND  DIFFRACTED  RAY 

PROPAGATION  DIRECTION  UNIT  VECTOR 
ECPH  PHI  COMPONENT  OF  CORNER  DIFFRACTED  E -FIELD 
ECTH  THETA  COMPONENT  OF  CORNER  DIFFRACTED  E-FIELD 
EDPH  PHI  COMPONENT  OF  EDGE  DIFFRACTED  E-FIELD 
EOPL  COMPONENT  OF  DIFFRACTED  FIELD  PARALLEL  TO  THE  EDGE 

EDPR  COMPONENT  OF  DIFFRACTED  FIELD  PERPENDICULAR  TO  THE  EDOE 

EOTH  THETA  COMPONENT  OF  EDGE  DIFFRACTED  E-FIELD 
Eh  THETA  OPPONENT  OF  CORNER  DIFFRACTED  E-FIEU)  IN  RCS 
EG  PHI  COMPON0O-  OF  CORNER  DIFFRACTED  E-FIELD  IN  RCS 
El  PL  COMPONENT  OF  INCIDENT  FIELD  PARALLEL  TO  THE  EDCE 

EIPLP  PATTERN  FACTOR  FOR  COMPONENT  OF  INCIDENT  SLOPE  FIELD 
PARALLEL  TO  THE  EDGE 

EIPK  COMPONENT  OF  INCIDENT  FIELD  PERPENDICULAR  TO  THE  EDGE 
EIPRP  PATTERN  FACTOR  FOR  COMPONENT  OF  INCIDENT  SLOPE  FIELD 
PERPENDICULAR  TC  THE  EDGE 
EIX 

E!>  SOURCE  PATTERN  FACTORS  FOR  t,T,  AND  Z  COMPONENTS  OF  INCIDENT 
EI2  E  FIELD 

EXPH  COMPLEX  PHASE  TERM  (REFER  PHASE  TO  RCS.  ORIGIN) 

FN  HEDGE  ANGLE  NUMBER 

hNN  HEDGE  ANCLE  INDICATOR 

FNP  A.NOLE  EXTERIOR  TO  HEDGE  IN  DEGREES 

GAM  DOT  PRODUCT  Or  THE  DIF  RAY  DIRECTION  AND  THE  VECTOR  FROM 
THE  REF  COORD  SYS  ORIGIN  TO  THE  DIFFRACTION  POINT 
I SN  SION  CHANGE  VAftlABLF 

J  INDEX  VAR1 ABLE 

LHIT  SET  TRUE  IF  RAY  HITS  A  PLATE  OR  CYLINDER  (FROM  PLAINT  OR  CYLINT) 

1C  INDEX  VARtAFLE  USED  TO  STEP  THRU  CORNERS 
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ME  EDGE  ON  PLATE  MP  WHERE  DIFFRACTION  OCCURS 

MEC  CORNER  AT  END  OF  EDGE  ME 

MP  PLATE  FOR  WHICH  DIFFRACTION  OCCURS 

MR  PLATE  WHERE  REFLECTION  OCCURS 

N  DO  LOOP  VARIABLE 

NI  DO  LCOOP  VRIABLE 

NJ  DO  LOOP  VARIABLE 

PD  DOT  PRODUCT  OF  DIF  EDGE  BINORMAL  AND  DIF  RAV  PROPAGATION 
DIRECTION 

PH  DIFFRACTED  FIELD  PHI  POLARIZATION  UNIT  VECTOR  IN  DIFFRACTION 

EDGE-FIXED  COORDINATE  SYSTEM  (IN  X,Y,Z  RCS  COMPONENTS) 

PHIR  PHI  COMPONENT  OF  REFL  RAY  PROPAGATION  DIRECTION  IN  REF  COORD  SYS. 

PHJH  PHI  COMPONENT  OF  INCIDENT  (SOURCE)  RAY  PROPAGATION  DIRECTION 

PHC  INCIDENT  FIELD  PHI  POLARIZATION  UNIT  VECTOR  IN  DIFFRACTION 
EDGE-FIXED  COORDINATE  SYSTEM  (IN  X*,Y,Z  RCS  COMPONENTS) 

PHSR  PHI  COMPONENT  OF  RAY  PROPAGATION  DIRECTION  AFTER  DIFFRACTION 
IN  RCS 

PP  NEGATIVE  DOT  PRODUCT  OF  DIF  EDGE  BINCRMAL  AND  INCIDENT  RAY 
UNIT  VECTOR 
PS  PSR*DPR 

PSD  DIFFRACTED  RAY  PHI  ANGLE  IN  EDGE-FIXED  COORDINATE  SYSTEM 
PSO  PSOR*DPR 

PSCD  INCIDENT  RAY  PHI  ANGLE  IN  EDGE-FIXED  COORDINATE  SYSTEM 

PSCR  PHI  COMPONENT  OF  INCIDENT  RAY  DIRECTION  IN  EDGE 

FIXED  COORDINATE  SYSTEM 

PSk  PHI  COMPONENT  OF  DIFFRACTED  RAY  PROPAGATION  DIRECTION  IN 
EDGE-FIXED  COORDINATE  SYSTEM 

OD  DOT  PRODUCT  CF  DIF  PLATE  NORMAL  AND  DIF  RAY  PROPAGATION 
DIRECTION 

01  NEGATIVE  OF  DOT  PROOUCT  OF  DIF  PLATE  NORMAL  AND  INCIDENT 
RAY  PROPAGATION  DIRECTION 

SBC  SINE  OF  BO,  THE  ANGLE  THE  DIFFRACTED  RAY  MAXES  WITH  THE  EDGE 
SUP  SINE  OF  HALF  WEDGE  ANGLE 

SP  DISTANCE  FROM  SOURCE  IMAGE  TO  DIFFRACTION  POINT  (FROM  SUB.  DFPTMD 
SPH  SINE  OF  PSH 

SPHJ  SINE  OF  PHJk 

SPHO  SINE  OF  PSOk 

'PP  DISTANCE  FROM  SOURCE  IMAGE  TO  MODIFIED  DIFFRACTION  POINT 
SThJ  S£NE  OF  THJk 

STHh  SINE  OF  THR 

TERM  COEf-FiC!  ENT  OF  CORNER  DIFFRACTED  FIELDS 

THU  THETA  COMPONENT  CF  REFLECTED  RAY  DIRECTION  IN  REF  COORD  SYS 
THJk  THETA  COMPONENT  OF  INCIDENT  (SOURCE)  RAY  PROPAGATION  DIRECTION 
THPK  ANGIE  DIFFRACTED  RAY  MAKES  WITH  EDGE 
THU  ANGLE  BETNEEN  EDGE  UNIT  VECTOR  AND  RAY  FROM  SOURCE 
IMAGE  LOCATION  TO  CORNER  NC 

TPP  DISTANCE  PARAMETER  USED  IN  CALCULATING  DIFFRACTION  COEFFICIENTS 
VAX  iXJ  MATRIX  DEFINING  THE  SOURCE  IMAGE  COORO  SYS.  AXES 
VU  UNIT  VECTOR  FROM  SOURCE  IMAGE  TO  CORNER  I  OR  2  OF  EDGE  ME 

VCk  t)t  STANCE  FROM  SOURCE  IMAGE  TO  CORNER  I  OR  2  OF  EDGE  ME 

VECT  VECTOR  USED  TO  MOVE  DIFFRACTION  POINT  Off  EDGE  FOR  SHADOWING 
TESTS 

VI  UNIT  VECTOR  OF  RAY  INCIDENT  ON  EDGE  FROM  PLATE  REFLECTION 
(FHGM  SUI?.  OFPTMD) 

VIP  Ilf. IT  VECTOR  Of  RAY  FROM  SOURCE  IMAGE  TO  MODIFIED  DIF  POINT 
vj  X,Y,  AND  Z  COMPONENTS  CF  SOURCE  RAY  PROPAGATION  DIRECTION 
vmc  DISTANCE  ALtNG  THE  EDGE  FROM  FIRST  CORNER  Of  EDGE  TO 
DIFFRACTION  POINT 

X!'  DUFRACTION  POINT  (CALCULATED  IN  SUB.  OFPTWD)  IN  RCS 

xur  minified  diffraction  point  used  for  shadowing  tests 

XI*  SuUkCfc  IMAGE  LOCATION  (FOR  REFLECTION  FROM  PLATE  US) 

X$  SUUPCt  IOC AT I ON  IN  REf  COORD  SYS 

IV  £»P  PRODUCT  OF  PROPAGATION  DIRECTION  UNIT  VECTOR  AMD 
VECTOR  t-HOM  DIFFRACTION  POINT  TO  CORNER  NC 
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CODE  LISTING 


1  c - 

2  SUBROUTINE  RPLDPLt EDTH, EDPH, ECTH,ECPH, FNN, ME ,MP,Mft ) 

3  CH! 

4  C!!!  DETERMINES  THE  REFLECT ED /D I FFRACTED  FIELD  KITH  PHASE 

5  C!!!  REFERRED  TO  ORIGIN.  RAY  IS  REFLECTED  FROM  PLATE  #MR  AND 

6  C!!!  DIFFRACTED  FROM  EDGE  #ME  ON  PLATE  #MP. 

7  cm 

8  COMPLEX  EF ,  EG,  E I  PR ,  E I  PL , EX  PH , D I N , D I P , E DPR, EDPL,  EDTH,  EDPH 

V  COMPLEX  El  PR P,  El  PLP,  El  X,  El  Y,  EIZ,  CORN.FFCT 

10  COMPLEX  DH,DS,DPK,DP$,ECBI ,ECBR,ECTH,ECPH 

.11  DIMENSION  VI(3),XD(3),PH0<3>,PH(3),B0PC3),B0<3),XDP(3) 

12  DIMENSION  XIS(3).VJ(3),VC(2,3),VCM(2),8RD<?),VT(3),VIP<3) 

13  DIMENSION  VAX(3,3) 

14  LOGICAL  LHIT.LSURF 

15  LOGICAL  LDEBUG.LTEST.LSLOPE, LCORNR ,LDIF 

1 6  COMMON/TEST/LDEBUG,LTEST 

I*.  COMMON/LOGDIF/LSLOPE.LCORNR 

1 8  COMMON/EDM  AG/VM AG( 14,6) 

19  COMMON/CEOPLA/X<  I4',6 ,3  ) ,  V{  1 4  ,6  ,3  >,  VP(1 4,6,3)  ,VN(14,3  ) 

20  2,MEP(I4),MPX 

2 1  COMMON/SORINF/XS(3),VXS<3,3) 

22  COMMON/I MAINF/XI (14, 14,3 ),VXI(  3,3, 14) 

2  3  COMMON/D I R/D ( 3  j , TH  SR , P  HSR , SP  HS ,C  PHS , STHS ,CTHS 

24  COMMON/1 HPHUV/DTC3) ,PP(2  > 

25  COMMON/PIS/PI, TPI.DPR.RPD 

2o  COMMON/SURFAC/LSURFU4) 

27  FN-FNN 

28  CIU  INITIALIZE  FIELDS 

29  EOTH*<0. ,0. ) 

30  EDPH*<0.,0.) 

31  ECTH-<0.,0.) 

32  eCPK»<0.,0.) 

33  IF  ( LDEBUG)  WRITE  (6,126) 

34  106  FORMAT  (/,"  DEBUGGING  RPLOPL  SUBROUTINE") 

35  MEC-ME* 1 

36  IFtMfcC.GT. MEP( HP  ) )  MEC-1 

37  DV»0. 

38  DO  10  Nel, 3 

3V  DV »OV*L)  t  N )  *V  ( fi P ,  HE  , ti ) 

40  IF(ABS(DV).GT.;).VV9)  GO  TO  40 

4  1  cm  1.  SPECIFY  SINGLE  REFL  CTION  SOURCE  IMAGE  LOCATION 

42  10  XIS(N)«XI(MM,MR,N) 

43  cm  2.  PERFORM  DIFFRACTION  POINT  GEOMETRY  CALCULATIONS 

44  CIS!  DETERMINE  PCRviSSAOU:  RANGE  FOR  DIFFRACTION  ANGLE 

45  vcatn-H. 

4o  VCM(2)«C, 

47  BRDMNC. 

48  BRD(2)-0. 

49  DO  II  Um 1,3 

50  VC(  I  ,N ) * X ( MP ,ME , W ) -X t( MR, UR, N) 

51  VC(2,N)eX(HI',i'EC,N)-XI(MR,MR,N) 

52  VCMt  1  )»VCU ( 11*  VC  1 1  ,N  )*VC  ( 1  ,N  1 

53  II  VCM(2)»VCM(2)*vC(2,Nl*vC(2,N) 

54  VCMt  I )  eJORTt  VCMt  ! )  l 

55  VCM  ( 2 )  «Sf)RT  t  VCU  ( 3 1 ) 

56  IK)  12  J«  l  ,2 

57  DO  I?  Ii«  I,  3 

58  V0tj,;i)«  VC  f  J .  H I  /VC!*  <  J I 

59  12  B«L*t  J)e|-MOtJ>»Vrip,vfe,‘;i»vC*J.»n 

60  UUtl»0. 

61  IF  (LCORNm 

62  {'!.iL0K«9fc!'t  1 J-PDTL 

63  80>U  «URinv)*!R)FL 

04  C!!l  OETEHJilNF  IF  1MFFRAC7I0"!  EXISTS 

05  IFlDV.t.j  .Ht4.(S<.0K.nv .OT.si'M)  >  r:n  to  v 

eo  cm  cowin e  fug*  mi ffhac: jot;  pcivt  and  m:  ray  unit  vectosj  vs 
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67  CALL  DFPTWDC  X! S«DV ,VI ,SP,XD, ME,MP) 

68  VMC-0. 

69  ADN-0. 

70  AFN-FNM 

71  IF(AFN.GT,2. 1AFN-6.-AFN 

72  CNP-C0S(AFN*PI/2.) 

73  SNP*SIN( AFH*Pt/2 . ) 

74  00  15  N-l,3 

75  XDP(N)«XD(N) 

7  6  VMG«VMG-KXDCN)-X(MP,H£,N)>*V<MP,ME,fl> 

77  15  ADN*ADN-*-(XI(HR,MR,N)-X(MP,  l,H))*VN<«P, N) 

78  LDIF*. TRUE. 

79  Cl!!  IS  DIF  POINT  ON  EDGE  ME? 

80  C! 1!  IF  NOT,  SET  AT  APPROPRIATE  CORNER  AND  SET  LDIF  FALSE 

81  IF  <  VMG.LT .0. )  GO  TO  101 

82  IF  (VMG.LT. VVAG(MP,ME)-I.E-4)  CO  TO  102 

83  DO  103  N»1 ,3 

84  103  XDP( N)*X(HP, MEC, N>  —  I .E-4*V (MP,ME,N ) 

85  LDIF*. FALSE. 

86  GO  TO  102 

87  101  DO  104  N=!  ,3 

88  104  XDP(N)*X(MP,ME,N )♦ I .E-4*V( MP.ME.N) 

8V  LDIF-. FALSE. 

90  102  DO  16  N* 1 , 3 

9 1  VECT*VP(I'P  ,ME ,  M )  *CHP*VM  t  MP  ,N  )*SNP 

92  16  XDP<N)-XDPUn«-l.E-5*VECT 

93  Cl !!  3.  CHECK  TO  SEE  IF  RAY  IS  SHADOWED 

94  C1M  DOES  DIFFRACTED  RAY  HIT  ANOTHER  PLATE7 

95  CALL  PLAINKXDP.D.DHT.MP.LHIT) 

90  IF(LHJT)  GO  TO  43 

97  Cl !!  DOES  DIFFRACTED  RAY  HIT  A  CYLINDER? 

98  CALL  CYLINTf  XGP»0,PHSR,DHT,LHIT, .TRUE. > 

99  IF(LHIT)  GO  TO  40 

100  SPP*0. 

IK  I  DO  111  N»l ,3 

102  VIPOll-XOPCfU-XISCN) 

103  111  SPP*SPP*VI  P(fl)*VlPtN) 

104  SPP-SQRKSPPJ 

105  DO  1 12  N-l  ,3 

100  112  VI  P ( N I  *V  I P  ( (1 1  / SPP 

107  Cl!!  COES  REFLECTION  FROM  PUri  MR  OCCUR? 

108  CALL  PLAIHTUIS.VIP.OHIT.-MM.LKIT) 

109  IF  ( .NOT. LICIT)  GO  TO  40 

IIU  IKOHIT.GT.SPPIGO  TO  40 

HI  0HIR-SPP-UM1T 

112  DHIH«OM18-l,t-3 

113  Gilt  COES  REFLECTED  RAY  HIT  A  NO  TVER  PUTS  BEFORE  DIFFRACT* ON? 

114  CALL  PLAINT!  XI  S,  VIP, MR. LFTT) 

H5  IFCUftT.AND.fOHT.LT.OHm>  GO  TU  4s; 

110  TVC I  R-8TAN2 1  SC&T  t  V  t  Cl  ?*VI(I  )*V|  C2  >*V  I <2  >>  ,V|  C  3>  1 

117  PHIR«8TAN2!VI(21,Vin  )1 

HU  cm  DOES  REFLECTED  HAY  HIT  A  CYLINDER. 

I IV  CALL  CYLINTt  Xf  S, VI , PHI R,OHT, EMIT ..TRUE. 1 

120  IFCUCIT.ANO, (0HT.LT.CH1R )  >  CO  TO 

121  C1H  COMPUTE  INCIDENT  RAY  OWECTiai  ON  PLATE  *MR 

122  CIl!  KNOWING  REFLECTED  OlReCT.I*. 

123  CALL  R6FePtPHJR,THJR,PHIS!.TKIR,MS> 

124  SPfU*$$f.CPHJRl 

125  CPHJ»C0SCPHJB) 

!2o  STKJ*Sifcc  I:URl 

12?  CTHJ«JSCTHJRI 

i23  vjn  ucpkj*s  ;hj 

129  VJi2i«S?KJ*$7Hj 

l  JO  VJCJI-CTKJ 

131  cm  DOES  INCtfcFST  Ray  FSCM  SOURCE  HIT  A  PLATE  HE  POSE  RSyUCTlO’*? 
IJ2  CAU.  PLAtNTCVi,VJ,i«T,f«.LMT) 
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133 

134  cm 

135 
130 

137  Cl ! ! 

138 

139 
148 
14  I 

142 

143 

144 

145 

146  28 

147  C!  1! 

148 

149 

150 

151 

152 

153 

154 

155 
l5o 

157 

158 

159 

100  21 
101 
!02 

103 

104 

105 

I0O  C! M 
»o7  cm 
lo9 
109 

170  30 
17  I 

172 

173 

174 

175 
170 

177  CM! 

176 
179 
189 
181 

182  CM! 

183  C! H 

184 

•  85 

*80  2V 

•  87 

l$5>  CM! 
lev  CM! 
IV0 

l  v  I 

1  *2  CM! 
193  cm 
1»« 

1V$  CM? 

I  VO 

197 

198  CM! 


IF(LHIT.AND.<DHT.LT.DHIT1)  CO  TO  40 
DOES  INCIDENT  RAY  HIT  A  cylinder? 
call  CYLINTaS.VJ.PHJH.DHT.LHlT, .FALSE.) 

IFlLHIT.AND. (DHT.LT.DHIT))  GO  TO  40 
4.  CALCULATE  DIF  ANGLES  AND  RELATED  GEOMETRY 
Ql  >0. 

PP-0. 

OD=0. 

PD-0. 

DO  20  N-!,3 

QI»OI-VN(MP,N)*VI(N) 

ppBpp-VP(MP,NE,N)*VI(N) 

0D»0D*VN(MP,N1*D(N) 

PD-P[>VP(HP,.ME,N)*DCN) 

CALCULATE  PSO  AND  PS.  THE  INCIDENT  AW>  DIF  PHI  ANGLES 
PS0R-BTAN2<0t,PP> 

PSO-DPR-PSOR 

IFtPSO.LT.0. )  PSO-360.*PSO 
PSR-BTAN2<00,PD> 

PS-OPR*PSR 

IFCPS.LT.0.)  PS*360.*PS 

PSOD-PSO 

PSD- PS 

IFCFW1.LE.2,  ICC  TO  21 
FN-FNM-2. 

PS 00-300. -PSC 
PSO-3O0.-PS 
FNP-FM* 180.* I .  E-4 

IF tPSO.CT. FNP.Qft.PS.GT.FNPl  00  TO  40 

5PHO-SIHIPSOR1 

CPKQ-C0SIP50R) 

SPH-SIN<PSR> 

CPH-COSIPSR) 

Cc'PUTE  DIFFRACTION  POLARIZATION  UNIT 
VECTORS  ( PHO.P!: . OOP. 60 1 
DO  30  N-1,3 

PHOOi)— VPfRP, •<£,»;  )*SPMO**NC«P.K)*CPKO 
PHtN  l--VPtMP.Ms.Nl  *5PK*VN<  "IP  ,N)*CPH 
BQPt  M-PHC52  J*Vl  Ol*PHOl3:-*VH2) 

BaPt2»«PS>0{3>-V!  (I  J-PliOC  1 1  «V  1 1 2 ) 

BOPS  31-PKGi 1 1-vt (2 l”PHQ{21*V5t I ) 

80m**P»i(2>*0(3I-PHt3>«J>C51 
B0t2  1-PSif  3 l*Dt  1 1-PHt  l  )*C  ( 3 ) 

B0131-PHM  )*0r2>-?!K21*0M  > 

COMPUTE  SQC-.S  M.>:<30! 

S20»S«J»TMV(KP,«|.3i*D<2  »-Vt  I'P.NE.J 1MMJ  11*-2*{V-:«P.  Wg .  I  > 
2-0(3»-VU(P.KS.3i*0M  Jl**2*tVt*P,!*£,2J*CC  M-V<4P,M£,1  l*0t2>> 
2*-2i 

TFP«SP*S8Ct*S5M7 

5.  COMPUTE  DIFFRACTED  FIELDS 

compute  scupce  pattern  factows 

DO  59  Nj-l  .3 
CO  29  Nt-l .3 
VAXOli  *NJ?*¥S!  »!S 5 

CALL  $<Xl»CS<  & .SG.SIS.EIY.E52. TM 1« .PHI ft. va* l 
COMPUTE  COMPC*i«!frs  OF  ISCieENt  FIELD  PEftP  iQ  PARALLEL 
TO  TKf  E&C-E 

1 1  PS-e 5  A*PtW  il  t  Y*PS8J«  2 1 .?  i2 3  ? 

El  Pi -Fit  7*800 1 !  i  *£  5  ¥«£&» 1 2 1  -6  12  *&CP  I  i  1 

IF  SLOPE  OIF  IS  fCStaSO,  CALCULATE  tufI8m  SLOPE  FIELD1 

PATTFSJi  FacTCKS 

f?«LSLO?€»CAti,  Sfl*J»CP»F!f«P.g5PL.P.vl  .^MG.fHSe.SAIl 
COMPUTE  P’haS-F  TfS» 

CAS-S0M  !*0l  U»tiH2J*?jf?»-SPl3?*IH3l 
EJW-CsiSMCWPVti  4. ,  TM *« Gam-S?  1 1 :/«!3Tt$Pi 
COMPUTE  ES**  CC-EFF {C-l&JfS 
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1*9  CALL  DW  <DS,OH,OPS,&PH,TPP,»SD,PSGO,Sf»C,FN,LSURF(MP>> 

200  IF  (LDEBUG)  WHITE  16,*)  EtPR.EIPL 

201  IF  (LDEBUG)  0RITE  (6,*)  DS,DH,m>5,DPH 

202  IF  (LDEBUG)  WRITE  (6,*)  TPP, PSD, PSOO.SBC.FN 

203  CM!  COMPUTE  COMP  £N  ENTS  OF  EDGE  DIF  FIELD  PERP.  AND  PARALLEL 
20-  Clll  TO  THE  EDGE 

205  EOPH*-ElPfl*DH*EXPN 

206  E0PL*-E1PL*DS*EXPH 

207  I F ( . HOT . LSLOPE ) GO  TO  201 

200  EDPH-EOPR-E  i  P«P*OPH*EXPH/CMPLX  ( 0 . ,  TP  t*SP*SBO ) 

209  EDPL»£DPL-EIPLP*DPS*EXPH/CMPLX(0.,TPI*SP*SBO> 

210  20 J  IF  (.MOT.LDIF)  GO  TO  202 

2JI  Cl!!  COMPUTE  THETA  AMD  PHI  COMPONENTS  OF  EDGE  DtFF,  F 1SU3 
212  C!!!  IF  DIFFRACTION  EXISTS 

2)3  EDTH»EDPL* ( BO( i ) »0T ( I )+ttO(2)*0T(2)*BO(  3)*DT(3) ) 

214  2*EDPR*(PH( I )<»D7( I )*PH(2)*DT(2)-PH(3)*0T(3) ) 

215  SDPH«EDPL*(80( i)*DP(l)-30(2)*DP(2)) 

2)6  2*E0PR*(PH( I )*OP())*PH(2)*DP(2) ) 

217  CM!  6.  IF  CORNER  OIF  IS  DESIRED,  C/.LC  CORNER  OIF  FIELDS 
2)0  202  IF  i.NOT.LCORNS)  GO  TO  40 

219  857W-PSD-PS0D 

220  8£TP«PSO*PSOD 

22!  EF«(0..0.) 

222  EG»(0. ,0.) 

223  KC»ME-i 

22 4  1SN*I 

225  3=0 

226  CM!  LOOP  THRU  BOTH  CORNERS  ON  EDGE  AM£ 

53?  VI 

220  IF(MC.GT.MEP(MP) )  MC»I 

229  J*J* I 

230  TSti*~l  SK 

23)  CTH»-ISN*ORO( J) 

232  CTHP-I SK*OV 

233  THPW  »ACCS ( C7HP ) 

234  THR-ACOStCT!:) 

235  5THR»S£N(THH ) 

236  0EL“2 -  *TP£  *vC*  ( J )  *  tCOS( .  5*  t  TMi-THPR )  )**2 1 

23 7  ZP-f  X(ttP,#C,  l)-XOt  I !  )*Dt  )>*(X(MP,MC,2)'*XD(2)  )*D(2) 

230  2*(X(M?,jfC.3)-XD(3))*C)(3) 

23  v  TERM •- STHR/T P I  /( CY!f*CTH?  f/SGST  ( VCM  ( J  ? ) 

240  CM!  COMPUTE  CORNER  DIFFRACTION  COEFFICIENT  (CORN) 

24)  COKN«~TtSM«FFCT(O£U*CEXP(Ci!PLXt0.,-T?5*(VC)lt3>-SP*2P)-.25*PI  >> 

242  CALL  Oi<OI M.TPP.l'eTN,  S3G,Ff(,3EL.  .TRUE-  ) 

243  IKaSUR?(MP))GO  TO  3i» 

2«  CALL  OI(OtP.TPP,SaTP,SaO.?K,Oct.  .T8VS.) 

245  CM!  COMPUTE  MODIFIED  EDGE  DIFF.  COEFFICIENTS  S3H.0S) 

246  OW<*OtK«G!P 

24?  £)S*05K~0!  P 

240  CD  TO  3)2 

2<V  2) ! 

25©  OS*(C.  ,©.) 

25 *  CM!  COMPUTE  COMPONENTS  OF  OIF  FIELD  PsSP,  AND  PARALLEL  TO  £QOS 

252  312  EEWf  »-£  I  ?3*£k*£\-?i*{ 

253  em«-SlPL*SS*iXP?s 

254  IFl.NOT.LSLOMJCO  TO  2©J 

255  6DJ^«€0P8-E!Fap'*SP»e*E*eM/CPPWt©..TPI*SP*S®0! 

256  SOPl-eDFl-g  5  Ft  P*3P  S»S*  Prt/C«>L*  (P..  TP!*S?*5PG ) 

25?  cmi  eg*mg  wtr  awd  wi  cc**cks«*s  of  cosrgs  oif  field 

258  2©3  eCTH.fSPL*?8CM)*OTMf«SO(2!*0T(2)*SG{3!«®TJ3)) 

25v  2»£aPS*tsisi  l»*P3f « J»m2!*OT(2S*?Kt  H*0*C3)f 
2o©  KPH«€O^L*te©i  !)*DP(  5i»S©52)*OP(2)) 

26)  i  )»i>p( :  )< 

262  C'H  crwMTY  TOTAL  THEs*  AND  J*)I  03vPO«‘f'iTJ  (FffiS  gatM  CORKERS! 

263  CM!  OF  COMES  T4F  FIELDS  I*  RTF  COOST  STS. 

264  £f-€F»ECTM*CCBS 


265  EC-EG+ECPH*CORN 

266  IF  C .NOT.LDEBUG)  GO  TO  36 

267  WHITE  (&,*)  DS.DH.EDPR.EDPL 

268  WRITE  (6,*)  ECTH,ECPH,CORN 

269  WRITE  <6,*)  EF.EG 

270  36  CONTINUE 

271  IF'.MC.EO.ME)  GO  TO  35 

272  ECTH«EF 

273  ECPH*=£G 

274  RETURN 

275  40  IF  ( •NOT.LTEST)  GO  TO  204 

27o  WRITE  (6,205) 

277  205  FORMAT  </,'  TESTING  RPLDPL  SUBROUTINE') 

278  WRITE  (6,*)  EDTH,EOPH, ECTH,ECPH 

279  WRITE  (6,*)  FN,ME,MP ,MR 

280  204  RETURN 

281  END 
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PURPOSE 


To  compute  the  geometrical  optics  field  reflected  by  a  given 
plate  and  then  reflected  by  the  cylinder. 

PERTINENT  GEOMETRY 


SOURCE  IMAGE 
LOCATION 


Figure  99— Illustration  of  plate  reflected, 
cylindfr  reflected  ray. 


METHOD 

Subroutine  RPLRCL  functions  as  a  service  routine  for  subroutine 
RPLSCL,  where  the  actual  plate-cylinder  fields  are  computed.  The 
geometrical  optics  reflected  field  components  ETH  and  EPH  computed 
in  RPLRCL  are  used  only  for  reference  purposes  (when  LOUT  is  set 
true).  The  field  components  calculated  in  RPLRCL  which  are  used  in 
RPLSCL,  are  the  hard  and  soft  components  of  the  plate  reflected  field 
incident  on  the  cylinder  at  the  reflection  point.  These  components, 
along  with  several  other  useful  parameters,  are  passed  to  subroutine 
RPLSCL  through  common  block  FUDGI. 

Tne  geometrical  optics  fields  determined  in  this  subroutine  for 
the  reflection  from  the  cylinder,  are  found  in  a  similar  manner  to 
the  fields  calculated  in  subroutine  REFCYL.  However,  in  this  sub¬ 
routine  the  field  incident  on  the  cylinder  is  found  from  the  image 
source  for  the  particular  plate  of  interest,  as  illustrated  in  Figure 
99.  The  image  source  fields  are  calculated  in  a  similar  manner  to 
those  obtained  in  subroutine  REFPLA.  The  phase  of  the  resultant 
double  reflected  field  is  referred  to  the  reference  coordinate  system 
origin.  The  double  reflected  field  thus  has  the  form 

„  „  .  -jkR 

r  ’  =  Wm  (ETH6+EPH(t>)  ^-jT~ 

e-jkR 

where  the  factor  — c —  and  the  source  weight  (W  i  are  added  elsewhere 
in  the  code.  K  111 
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FLOW  DIAGRAM 


SYMBOL  DICTIONARY 


CTHW  DOT  PRODUCT  OP  CYLINDER  NORMAL  AND  REFLECTION 
PROPAGATION  DIRECTION  UNIT  VECTOR 
CN  COSINE  OF  HR 

D  PROPAGATION  DIRECTION  AFTER  CYL  REFL.  IN  (X.Y.Z)  RCS  COMPONENTS 

DO  I  DOT  PRODUCT  Or  UNIT  VECTOR  OF  PROPAGATION  DIRECTION  AND 
CYLINDER  TANGENT  UNIT  VECTOR  THROUGH  TAN  POINT  I  (2-D) 

DD2  DOT  PHODUCT  OF  UNIT  VECTOR  OF  PROPAGATION  DIRECTION  AND 
CYLINDER  TANGENT  UNIT  VECTOR  THROUGH  TAM  POINT  2  (2-D) 

DHIS  DISTANCE  FROM  REFLECTION  POINT  ON  PLATE  TO  REFLECTION 
POINT  ON  THE  CYLINDER 

DHIT  DISTANCE  FROM  SOURCE  TO  HIT  POINT  (FROM  PLAINT) 

DI  X,Y,  AND  Z  COMPONENTS  OF  INCIDENT  RAY  DIRECTION  ON  CYL  IN  RCS 

DJ  X.Y.Z  COMPONENTS  OF  PROPAGATION  DIRECTION  OF  RAY  INCIDENT 
ON  PLATE 

DXY  DOT  PRODUCT  OF  VECTOR  FROM  ORIGIN  TO  SOURCE  IMAGE 
LOCATION  AND  PROPAGATION  DIRECTION  (2-D) 

Er  P,  TERN  FACTOR  OF  THETA  COMPONENT  OF  INCIDENT  FIELD  IN  RCS 

EG  PA  iTERN  FACTOR  OF  PHI  COMPONENT  OF  INCIDENT  FIELD  IN  RCS 

EHPH  PHI  COMPONENT  OF  THE  HARD  COMPONENT  OF  FIELD  INCIDENT  ON  CYL 
(PARALLEL  TO  PLANE  OF  INCIDENCE) 

EHTH  THETA  COMPONENT  OF  THE  HARD  COMPONENT  OF  FIELD  INCIDENT  ON  CYL 
(PARALLEL  TO  PLANE  OF  INCIDENCE) 

El PP  INCIDENT  CYL  FIELD  COMPONENT  PARALLEL  TO  PLANE  OF  INCIDENCE 
El  PR  INCIDENT  CYL  FIELD  COMPONENT  PERPENDICULAR  10  PLANE  OF  INC 
EPH  PHI  COMPONENT  OF  CYL  REFLECTED  E-FIELD 

ERPP  CYL  REFLECTED  FIELD  COMPONENT  PARALLEL  TO  PLANE  OF  INCIDENCE 
tHPk  CYL  REFLECTED  FIELD  COMPONENT  PERPENDICULAR  TO  PLANE  OF  INC. 

EHX  T  X,Y,Z  COMPONENTS  OF  FI  ELD 
EwY  >  INCIDENT  ON  (OR  REFLECTED  FROM) 

EHZ  J  CYLINDER  IN  RCS 

ESPH  PHI  COMPONENT  OF  THE  SOFT  COMPONENT  OF  FIELD  INCIDENT  ON  CYL 
(PERPENDICULAR  TO  PLANE  OF  INCIDENCE) 

ESIH  THE! A  COMPONENT  OF  THE  SOFT  COMPONENT  OF  FIELD  INCIDENT  ON  CYL 
(PERPENDICULAR  TO  PLANE  OF  INCIDENCE) 

ETH  THETA  COMPONENT  Or  CYL  REFLECTED  E  FIELD 
EX  \ 

EY  \  PATTEHN  FACTOR  OF  X.Y.Z  COMPONENTS  OF  SOURCE  FIELD 

EZ  J  INCIDENT  ON  CYLINDER  IN  RCS 

LHIT  SET  TRUE  IF  HAY  HITS  PLATE  (FROM  PLAINT) 

LWrl  SET  TRUE  IF  REFL  DATA  IS  AVAILABLE  FROM  PREVIOUS  PATTERN 

ANGLE  (OH  FOR  NEXT  PATTERN  ANGLE  ( hHEN  LEAVING  ROUTINE)) 

LTHFI  SET  TRUE  IF  GEOMETRICAL  OPTICS  REFLECTED-HEFLECTED 
FIELD  DOES  NOT  EXIST 

PH  COMPLEX  PHASE  AND  RAY  SPREADING  CORFFICIRIT 
PHIH  PHI  COMPONENT  OF  INCIDENT  RAY  DIRECTION  W  CYL 

HHOI  HAY  SPREADING  RADIUS  IN  PLANE  OF  CYLINDER  CURVATURE 

AT  REFLECTION  POINT 

RH02  RAY  SPREADING  RADIUS  NORMAL  TO  PLANE  OF  INCIDENCE 
AV  hE*- LECTION  POINT 

S-MAO  LENGTH  OF  HAY  FROM  REFL  POINT  ON  CYL  TO  SOURCE  IMAGE 
SUHH  PART  OF  SPREADING  FACTOR 
3XN  T 

SYH  >  X.Y,  AND  Z  COMPONENTS  OF  UNIT  VECTOR  OF  PAY  FROM  REFL. 

SZN  J  POINT  OH  CYLINDER  TO  SOURCE  IMAGE  LOCATION  IN  RCS 
IH1H  THETA  COMPOF ENT  OF  INCIDENT  RAY  DIRECT IDM  ON  CYL 
JJ  I  PX  \ 

UII'PY  f  X.Y.Z  COMPONENTS  OF  INCIDENT  FIELD  POLARIZATION  UNIT  VECTOR 
U I PPZ  J PARALLEL  TO  PLANE  OF  INCIDENCE 
UIPhX  T 

U1PRY  U.Y.Z  COMPONENTS  OF  INC/REFL  FIELD  POLAR IZATION  UNIT  VECTOR 

UIPHC J PUHPtNOICULAH  TO  PLANE  OF  INCIDENCE 

UMFPxS 

UHFPY  Vx.Y.Z  COMPONENTS  OF  REEL  FIEIi)  POLARIZATION  UNIT  VECTOR 

uKfPt  j  parallel  to  plane  of  incidence 

VAX  MUU  DEFINING  SOURCE  COORDINATE  SYS  AXES  IN  RCS  COMPONENTS 
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A  IS 


Xrt 


X, Y,Z  COMPONENTS  OK  SOURCE  IMAGE  LOCATION 
ALSO  HEKLECTION  POINT  ON  PLATE 

LOCATION  OK  REELECT  I  ON  POINT  ON  CYL  IN  IX.Y.7.I  RCS 


CODE  LISTING 


1  c - — - * - 

2  SUBROUTINE  kPLHCLI ETH, EPH, UP ) 

3  c!  !! 

4  CM!  COMPUTES'  THE  G.O.  FIELD  REFLECTED  FROM  PLATE  #MP  THEM 

5  CM!  REFLECTED  FROM  THE  ELLIPTIC  CYLINDER 
0  C!  !! 

7  DIMENSION  UN (2  ) ,  UB(2 ) ,DI  ( 3 ) , DJ ( 3 ) , XI S( 3) , VAX 1 3, 3 ) 

b  COMPLEX  ETF, EPH, EX ,EY. EZ, PH, El  PR ,EI PP, ERX, ER Y, ERZ . ERPR .ERPP 

V  COMPLEX  esth.esph.eh;  =HPH,TRAN,EF,EO 
1C  LOGICAL  LHIT.LRFI.LDEbU-^LTEST.LTRFI 

1  I  C0M.y0N/FUDGI/TRAN,ESTH,ESPH,EHTH,EHPH,XR(3),RG,RH0l,S»MG,LTRFI 

1 2  COMMON/CEOMEL/A, 8,ZC<2 ), SNC<2> ,CNC(2 ),CTC<2 ) 

1 3  COMMOli/SOR  INF/XS  <3),VXS<3,3> 

14  COMMON/I MAINE/ XI (14, 14, 3), VX  1(3, 3, 14) 

15  COMMON/CEOPLA/XI I4,6,3),V( 14,6,3), VP( 14,6,3) ,VN( 14,3) 

lo  2,MEP( 14),MPX 

17  COMMON/ PI S/P  I, TP I, DPR, RPD 

IS  COMM ON/DI H/O ( 3 ) , THSR , PHSR , SPS, CPS, STHS, CTHS 

IV  COMMON/THPHUV/DT (3 )  ,CP<2  ) 

20  COMMOH/ENDICL/DTI ( 14) ,VTI( !4,2),BTI( 14,4) 

2  I  COMMON/TE  ST/LDEB  UG .LTEST 

22  COMMON/CLRFI/LRFI  !U ) 

23  IF(LOEBUG)  WRITE(6,9fW> 

24  VC0  FORM  ATI/,'  DEBUGGING  RPLRCL  SUBROUTINE') 

25  LTHFI-. FALSE. 

20  CII!  CAN  REFLECTION  FROM  CYLINDER  OCCUR? 

27  IF(DTI IMP) ,LT.“1 ,5  )  GOTO  12 

28  UXY«XIU'P,KP,1  )*CPE4XIC-|D.MP,2)*SPS 

2 V  IFIUXY.GT.0.)  GO  TO  H) 

30  UJI-HTI (MP, I )*CPS*Bi I (MP.2 )*SPf 

31  LD2-8TI f  MP , 3 ) ^CPS+BT I ( MP , 4 ) *SP  S 

32  IF  (Dl)l  .OT.m  ( MP).  AND.D02.GT,DTI  (MP) )  GO  TO  12 

33  10  CONTINUE 

CM!  CALCULATE  REFLECTION  POINT  ON  CYLINDER 

35  CALL  HF PTCL(  PilSR.MP,  Vk.DOTP,  (X),S,LRFI(  >'P )) 

36  IF(DOTP.LE,0.)  GO  TO  M 

37  XR< I )»A*COS(VR) 

3b  XR(2 )*B*S!N<  VR) 

3V  XR(3)«XI(MP,MP,3HS*CTH5/STIi5 

40  CM!  IS  REFLECTION  POINT  OFF  OF  FINITE  CYLINDER? 

41  IF(aR<3).GT,2C(I >*XR(I)*CTC( I). OR. 

42  2XR(3 ).LT,ZC(2)*XR( I )*CTC(2  > )  GOTO  I! 

43  CM!  DUES  CYLINDER  REFLECTED  WAY  HIT  A  PLATF? 

44  CALL  PLA I NT ( XR ,D ,OHT , 0 , LHIT  > 

45  IFCLHIT)  GO  TO  1 1 

46  SXN»XIUP,UP,I)-XR<I) 

47  ’  SYN»XMNP,MP,2)-XR<2) 

48  S2M*-3*CYHS/STHS 

4  V  SMA«»SORT  C  SXN*SXN4SYN*5YN4SZ)I*SZM) 

50  SXN-SXN/SPAU 

51  SYN-SYN/SMAG 

52  SZN-SZN/SMAG 

53  Phtk«l)TAN2  l-SYH,  "S).N  > 

54  THIR«UTAK2t  SORT!  5XN*?XN*SY»SYtJ>  ,-SZN) 

55  SPKI-SIHPiUfc) 

5o  CPHI-COS(PHIR) 

57  Sfltl-SIMTHIR) 

58  CTHI^CO*  !*,)•! If) 

*. V  DIM  )>CM<|*S1>'I 

o..  i»I  (2)rSFHI  *STHt 

ol  UK3XTHI 

Cs  IK)  15  R*  I  ,  3 

t»j  i5  AisiN)«xn’4?.ap,M 

64  U!l  DOES  kSFUsCTIOn  OFF  OF  PLATE  MP  OCCUR? 

65  CAU.  PLAINtaiJ.UI  .umr.-MP.LMIT) 

06  if< ,*x)i.Lfin )  go  ro  ii 


399 


r-^- 7 ' TV **>*.-:?  -  ’/"..V 1  ^^.  ,< ^ 


67 
08 
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HI 
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i  jo 
i:t 
M2 


CM! 


C  £  ! ! 
C! ! ! 


20 

Ci  II 


Cl  *! 
cl  M 


CM! 

CM! 


CM! 

CM! 


CM! 

CM! 


C!  ! ! 
C! !! 


DHIS-SMAC-DHIT 

”PLEC,If:-u  »AY  HIT  PLATE  BEFORE  THE  CYLINDER? 

^A-^-1»UINT(XIS,DI<nHT«MP*LHIT) 

IKLHIT.AND.  (DHT.LT.DHISI)  00  TO  II 

CALL  fiEFBP<PHJH,THJR,PHIR,THIR,MP) 

SPHJ»SIN(PHJfi) 

CPHJ-COS(PHJR) 

STHJ*SIN(THJH) 

CTH J "COE  <  TH J  R ) 

DJM  >*CPKJ*S7HJ 
DJ(2)«SPHJ*STHJ 
DJ(3)*C1HJ 

SSE?hI“c?unSS  {Km*  PUTE  ""  mT  PUTE 

CALL  PLAIHT(XS,DJ,DHT,MP.LHIT) 

Ir (LHIT. AND. (DKf .LT. DHIT ) )  GO  TO  II 
CAU-CYLINTt XS.DJ, PHJR.DHT.LHIT. .FALSE. ) 
IFILHIT.AND. (DHT.LT.DHITJ)  GO  TO  II 
DO  20  NJ-I ,3 
DO  24!  NI*I  ,3 

VAX<W,NJ)-VXI<Nl,NJ.MP) 

CALCULATE  SOURCE  PATTERN  FACTOR 

?cH*n^RCE<  £F.' E0* EX  *EY*  H  .THI R.  PHI R ,V  AX  > 

IF4LDEBUG)  NRITE46,*)  EF.EC 

rg*do*dd*do/a/b 

CALL  NANDBUIN.UB.VR) 

CTHw-UN< l)*D(l  )*UU12)*D<2) 

WR»BTAN2 ( SXN*UB( I I^SYN^S^)  ,SZN) 

SW-SlMtPRJ 

C»«COS(NR) 

SST2  *SH*  SW*C  K*C*l*CTHN*CT!fl» 

RH02-SMAO 

HHOI -SaAC*RC*CTHN/(RG*CTHN*2 .*SMAG *S5T2 ) 

COMPUTE  POLARIZATION  UNIT  VECTORS 

SBSSSft&IS.RSft!1 10  *  ,KWBK£ 

UIPRY-SIN(WR-P!/2.)*U8<2) 

ill PHZ»CCS(  WR-PJ/3. ) 

UPPX-S>N*UIPRZ-SZN*IIIPRY 
01 PPY«SZK*UI PRX-SXN*UI PRZ 
U  l  PPZ»SXN*U  I  PR  Y-SYN*  U  l  PR  X 
URPPX«UIPR¥*0(3)^J!prz*0(2 j 
UHPPY»U1PHZ*D<  I  J-U!PRX*D(3) 
URPPZ-UIPRXttXZI-UIPRY^nn  I 
WI«Cfc'XP(CNPLX<3.,-TPI*SMAGJ)/'SMAG 
CALCULATE  INCIDENT  FIELD  COMPONENTS  4RAU.EL 
AM)  PERPENDICULAR  TO  PLANE  OF  INCIDENCE 
e  I  PH  ■  ( U I  PR  X*  EX  Ml  I  PR  Y*E  Y*tl  I  PR  Z*  E2 1 
E I  PP»(  UI  PPX*EX*UI  PPY*EY«-UI  PPZ*EZ  J 

COUP DTE  REFLECTED  FIELD  COMPONENTS  PARALLEI 
AND  PERPENDICULAR  TO  PLANE  OF  INCIDENCE 
EHP«»-SQRH*PH*cl PR 
F  WPP  »SOKIi*Pf  f  *f  I  pp 
TRAN*SOIiH*P!l 

ERXaENPK*UIPRX«ERPP*l.>RPPX 

E«Y»eRPA*UIPRY*£BI>P#USPPY 

DWZ»LUPK«UIPRZ*caPP*l*PPZ 

CALCULATE  THETA  AM)  PHI  COMPONENTS  OF  3EFLECTED- 

meflfcted  field 

t )  >*E«r*DTt2  )*EP2M!T( 3 ) 

EPH«EKX»|tp(  l  !*EHY»DP  li ) 

SaS'LcfS  *  s*r  c™i’WE“r  w 

EKX*R|PR**J1PII2 
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EWY-EIPMUIPRY 
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EkZ»klPh*UIPkZ 

13b 

ESIH»iihX*L'  i  (  I)  ♦EKY*I)T(  2 )  ♦HkZ*DT< ; » 

l3o 

ESPH«bkX*!)P<  1  )4l:HY*l)P(2) 

137 

Cl !! 

CUUUTE  Ttib.lt  AMI)  PHI  COMPONENT  CF  .i/HT  COMPONENT  Cf 

138 

Cl  it 

FIELiJ  If  C-  ON  CYLINDER 

13V 

HKX*EIPP*iJI<PPX 

1  4  k) 

EkY*EI PF*UHPFY 

14  1 

EHZ-EIPP*UI(PPZ 

143 

EHTH»fcKX*DT<  1  )*EHY*DTi2H£PZ*OT(3) 

143 

£HPH»ekX*DP(  IH-ERY*DP<2> 

1  44 

CO  TO  W5 

14b 

12 

LrtFI  (MP1-. FALSE. 

140 

1  1 

LTHFI-.TKUE. 

1  47 

ETH*(k1.,0.  ) 

ue 

£PH-<0.  ,(■).  ) 

14V 

VOb 

CONTINUE 

Ibfc 

IK.NOT.LTEST)  RETURN 

lb  1 

ARJTEio.VlCt) 

lb2 

Vll) 

EOHKATl/,'  TESTING  KPLRCt.  SUBROUTINE') 

Ib3 

fcklibio,*)  ETF.EPH.UP 

Ib4 

RETURN 

'bb 

END 

RPLRPL 


PURPOSE 

To  calculate  the  far  zone  electric  field  due  to  double  reflection 
from  specified  plates  (reflection  off  of  plate  MP  ?  id  then  plate  HPP). 

PERTINENT  GEOMETRY 


A 


Figure  100— Geometry  for  doodle  reflected  ray. 
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METHOD 


The  doubly  reflected  fields  are  found  sing  Image  theory.  The 
double  reflection  source  Image  Is  found  so  lat  the  appropriate  bound¬ 
ary  conditions  are  met  at  the  reflection  points.  The  ray  paths  are 
cheeked  to  Insure  that  they  hit  the  appropriate  plafcesand  are  not 

shadowed  by  other  obstacles.  The  phase  factor,  e^kD  ,  Is  then  added 
to  the  pattern  factor  obtained  from  the  SOURCE  subroutine.  The  doubly 
reflected  field  Is  given  in  the  form 

-jkR 

rr(r,e,^  *  tyERTB  ♦  ERpi)  • 

-jkR 

The  factor  and  the  source  weight  (W#)  are  added  elsewhere  In 

the  code.  * 


403 


FLOW  DIAGRAM 


input  mtAsus 

Z?  *2?*  '"**  CCeur* 

p!lt«  ■*»■«  »«W*S  reflection  CCCOM 

'  OUTPUT  VAai*3i.£S 

«f  tteti  cMpootftt  Of  reflected  field  l«  «S 
*'  component  of  reflected  field  in  3CSC5 


So«ifj  double 

loci  (ton  Jft-  (fra, 
tuOcout :*r  G(CK) 
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SYMBOL  DICTIONARY 


CPHI  COSINE  OF  PH1R 

CPHJ  COSINE  OF  PH JR 

CPUS  COSINE  OF  PhSP 

CTHI  COSINE  OF  THIR 

CTHJ  COSINE  OF  THJR 

CTHS  COSINE  OF  THSR 

D  X,Y,Z  COMPONENTS  OF  RAY  PROPAGATION  DIRECTION 

AFTER  SECOND  REFLECTION  IN  RCS 
DHIJ  DISTANCE  FROM  DOUBLE  REFLECTION  IMAGE  TO  HIT  POINT 
ON  PLATE  MPP 

DrilS  DISTANCE  BETWEEN  REFLECTION  POINTS 
OHIT  DISTANCE  FRCM  SOURCE  TO  REFLECTION  POINT 
(FROM  PLAINT) 

Dt  X, Y,Z  COMPONENTS  OF  INCIDENT  RAY  PROPAGATION 

DIRECTION  IN  RCS 

DJ  X, Y,Z  COMPONENTS  OF  PROPAGATION  DIRECTION 

OF  RAY  INCIDENT  ON  PUTE  MPP 
EX  COMPLEX  PHASE  FACTOR  (CEXP(J*TPI*GAM)) 

GAM  PHASE  DISTANCE  TO  ORIGIN  (DOT  PRODUCT  OF  DOUBLE 

REFLECTION  IMAGE  LOCATION  AND  REFLECTED  RAY  PROPAGATION 
DIRECTION) 

LHIT  SET  TRUE  IF  RAY  INTERSECTS  A  PUTE  OR  CYLINDER 
(FROM  .PLAINT  OR  CYLINT) 

MP  PLATE  FROM  WHICH  FIRST  REFLECTION  OCCURS 
MPP  PLATE  FROM  WHICH  SECOND  REFLECTION  OCCURS 
PHIR  PHI  COMPONENT  OF  INCIDENT  RAY  PROPAGATION 
DIRECTION  IN  RCS 

PHJR  PHI  COMPONENT  OF  RAY  DIRECTION  BETK.EN  REFLECTIONS  IN  RCS 

PHSR  PHI  COMPONENT  OF  RAY  PROPAGATION  DIRECTION 

AFTER  REFLECTION  IN  RCS 
SPHI  SINE  0  PHIR 

SPHJ  SINE  OF  PHJR 

SPHS  SINE  OF  PHSR 

STHI  SINE  OF  THIR 

STHJ  SINE  OF  THJR 

THIR  THETA  COMPONENT  OF  INCIDENT  RAY  PROPAGATION 
DIRECTION  IN  RCS 

THJR  THETA  COMPONENT  OF  RAY  DIRECTION  BETWEEN  REFLECTIONS  IN  RCS 
THSR  THETA  COMPONENT  OF  RAY  PROPAGATION  DIRECTION 
AFTER  REFLECTIONS  IN  RCS 

VAX  X,Y,Z  COMPONENTS  DEFINING  UNIT  VECTORS  OF  THE 

SOURCE  IMAGE  COORDINATE  SYSTEM  AXES  IN  RCS  COMPONENTS 
VAXP  X, Y,Z  COMPONENTS  DEFINING  UNIT  VECTORS  OF  THE 
SOURCE  IMAGE  COORDINATE  SYSTEM  AXES  IN  RCS 
FOR  DOUBLE  REFLECTION 

XI  TRIPLY  DIMENSIONED  ARRAY  OF  IMAGE  LOCATIONS 
XIJ  X,Y,Z  COMPONENTS  OF  DOUBLE  REFLECTION  IMAGE  LOCATION 

XIS  X, Y,Z  COMPONENTS  OF  SINGLE  REFLECTION  SOURCE  IMAGE  LOCATION 

(SINGLE  REFLECTION  FROM  PLATE  MP) 

XS  SOURCE  LOCATION  IN  <X,Y,Z)  RCS 
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CODE  LISTING 

2  C  SUBROUTINE  RPLRPL! ERT,ERP,MP,MPP ) 
i  CM ! 

4  CM!  DETERMINES  THE  REFL./REFL.  FIELD  WITH  PHASE  REFERRED  TO 

5  Cl  II  ORIGIN.  RAY  IS  REFL.  BY  PLATE#MP  THEN  BY  PLATE4MPP. 

6  C 1 1 1 

7  ’**  COMPLEX  EF,EG,EX,ERT.ERP.EIX,EtY,EIZ 

8  DIMENSION  XIS(3)tXIJ(3),DI(3),DJ(3),VAX(3,3),VAXP!3,3) 

V  LOGICAL  LHIT 

10  LOGICAL  LDEBUG.LTEST 

1 1  COMMON/TEST/LDEBUG,LTEST 

1 2  COMMON/DI R/D <  3 ) , THSR , PHSR, SPHS.CPHS, STHS ,CTHS 

1 3  COMMON/CEOPLA/X! 1 4  ,6 ,3 ) .  V! 1 4 ,6 ,3 ) , VP ( 1 4,6, 3 ) . VN< 1 4 ,3 ) 

t  «  2  UCD  MAI  UDV 

1 b  COMMON/SOR I NF/XS ! 3 ) , VXS! 3, 3 ) 

lo  COMMON/IMAINF/XI ( 14, 14,3) ,VXI( 3,3, U) 

17  COMMON/PIS/PI, TPI, DPR,  RPD 

Its  IF  (LDEBUG)  irRITE  (6,101? 

IV  101  FORMAT  (/,'  DEBUGGING  RPLRPL  SUBROUTINE') 

2 fa  CM!  SPECIFY  IMAGE  POSITION  AFTER  DOUBLE  REFL. 

21  DO  5  N*l ,3 

22  5  XI J(N)»XI <MP,.‘4PP,N ) 

23  CM!  DOES  RAY  FROM  DOUBLE  REFL.  IMAGE  HIT  PLATE  #MPP 

24  CALL  PLAINT! XI J,D,DHIJ ,-MPP,LHIT) 

2b  IF(. NOT. LHIT)  GO  TO  50 

26  CM!  DOES  DOUBLE  REFL.  RAY  HIT  ANOTHER  PLATE 

27  CALL  PLAINT! XIJ,D,DHT,MPP, LHIT) 

28  IF(LHIT)  GO  TO  50 

2V  CM!  DOES  DOUBLE  REFL.  RAY  HIT  A  CYLINDER 

30  CALL  CYLINT!XU,D,PHSR,nHT, LHIT,  .TRUE.) 

21  IF!LHIT)  GO  TO  50 

32  C!  1 1  COMPUTE  THE  RAY  DIR  BETWEEN  PLATES  MP  AND  MPP  IDJ) 

23  CALL  REFBP (PHJR,THJR, PHSR, THSR, MPP ) 

24  IF  (LDEBUG)  WRITE  !6,*>  PH JR. THJR, PHSR .THSR, MPP 

35  SPHJ=SIN!PHJR) 

26  CPHJ*COS(PHJR) 

37  STHJ=SIN(THJk) 

2fe  CTHJ=COS!THJR) 

3V  DJ ! 1 )=CPHJ*STHJ 

40  DJ (2 )=SPHJ*STHJ 

41  DJ (3 )=CTHJ 

42  C! ! !  SPECIFY  IMAGE  LOCATION  FOR  SOURCE  AFTER  FIRST  REFLECTION 

43  DO  6  N=1 ,3 

44  c  XIS!N)=XI!MP,MP,N) 

45  C! ! I  DOES  RAY  FROM  FIRST  IMAGE  HIT  PLATE  #MP 

46  CALL  PLAINT! XI S,DJ ,DHIT,-MP,LHIT) 

47  IF!. NOT. LHIT)  GO  TO  50 

48  DHIS=DHI J-DHIT 

4 V  DHIS=DHI S- I . E-3 

50  CM!  DOES  RAY  FROM  FIRST  IMAGE  HIT  ANOTHER  PLATE  BEFORE  PLATE  MPP? 

51  CALL  PLAINT! XI S,DJ,DHT,MP, LHIT) 

52  IF (LHIT. AND. (DHT.LT.DHIS))  GO  TO  50 
52  CM!  DOES  RAY  HIT  A  CYLINDER 

54  CALL  CYLINT! XI S, DJ ,PHJR,DHT, LHIT, .TRUE . ) 

55  IF!LHIT. AND. (DHT.LT.DHIS))  GO  TO  50 

56  CM!  KNOWING  RAD.  DIRECTION  COMPUTE  INCIDENT  DIRECTION 

57  CM!  ON  PLATE  MMP 

58  CALL  UEFBP(PHIR,THIR,PHJR,THJR,MP) 

5V  IF  ( LDEbUG )  WRITE  <6,*)  PHIR.THIR.PHJR.THJR.MP 

60  SPHIaSIN(PHIR) 

6!  CPHI»C08!PHIR) 

62  STHI»SIN(THIR) 

62  CTHI=COS!THI  R) 

64  DI ( I )aCFHI*STHI 

65  DI  (2  >-SPHI*STHI 

66  DI  (3  >=CTHI 
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o7  Cl i !  DOES  RAY  FROM  SOURCE  HIT  ANOTHER  PLATE  BEFORE  PLATE  HP? 

oti  CALL  PLAINT(XS,DI,DHT,MP,LHIT) 

tv  IF(LHIT.AND. (DHT.LT.DHIT))  GO  TO  50 

70  Cl  I !  DOES  RAY  FROM  SOURCE  HIT  A  CYLINDER 

7  1  CALL  CYLINT(XS,DI ,  PHIR  ,DHT,LHIT,  .FALSE.) 

72  IF(LHIT. AND, (DHT.LT.DHIT))  GO  TO  50 

7 S  Cl ! !  COMPUTE  DOUBLE  REEL.  SOURCE  IMAGE  COORD  SYS  AXES 

74  DO  40  NJ= 1 ,3 

75  DO  4(1  N I  =  1 ,3 

70  40  VAX(NI,NJ)=VXI(NI,NJ,MP> 

77  CALL  IMDIR<VAXP,VAX,MPP) 

76  Oil!  IF  REEL/ REEL  FIELD  EXISTS  COMPUTE  THE  SOURCE  PATTERN  FACTORS 

7^  CALL  S0URCE(EF,EG,EIX,EIY,EI7.,THSR,PHSR,VAXP) 

60  IF  (LUELUG)  WRITE  (6,*)  EF,EG 

81  CM!  COMPUTE  PHASE  REFERRED  TO  ORIGIN 

62  GAM=XI (MP.MPP, I ) *D ( I )+XI (MP,MPP,2)*D(2 )+XI (MP, MPP, 3)*D(3 ) 

62  EX=CEXP(CMPLX(0. ,TPI*OAM)) 

84  CM!  CALCULATE  FAR-ZONE  E-PHI  AND  E-THETA  FIELDS 
66  ERT=EF*EX 

80  ERP=EG*EX 

87  GO  TO  1 

63  60  CONTINUE 

8V  ERT=(0.,0.) 

V0  ERP=(0.  ,f).  ) 

VI  I  IF  (.NOT.LTEST)  GO  TO  2 

V2  WRITE  (6,3) 

VS  S  FORMAT  </,'  TESTING  RPLRPL  SUBROUTINE') 

V4  ■  WRITE  (6,*)  ERT.ERP, MP.MpP 

V6  2  RETURN  . 

Vo  END 
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RPLSCL 


PURPOSE 

To  calculate  the  far -zone  electric  field  of  a  source  ray  which 
is  reflected  by  a  given  plate  and  then  scattered  by  the  cylinder, 

PERTINENT  GEOMETRY 


Figure  101— Illustration  of  ray  reflected  by  a  plate 
and  then  scattered  by  the  cylinder. 


METHOD 

A  uniform  Geometrical  Theory  of  Diffraction  solution  for  the 
field  reflected  by  a  plate  then  reflected  or  diffracted  by  a  cylinder 
is  computed  in  this  subroutine.  The  fields  reflected  or  diffracted 
by  the  cylinder  are  determined  in  a  similar  manner  as  the  fields 
calculated  in  subroutine  SCTCYL.  However,  the  Incident  field  is  found 
from  the  image  source  for  the  particular  plate  of  Interest,  as  il¬ 
lustrated  in  Figure  101.  The  image  source  fields  are  calculated  In 
a  similar  manner  to  those  obtained  in  subroutine  REFPLA.  The  phase 
of  the  resultant  reflected- scattered  fields  are  referred  to  the  ref¬ 
erence  coordinate  system  origin.  The  form  of  this  field  is  then  given 
by 


rr,s 


=  Wffl(ET§+EP$) 


e-jkR 

R 


> 
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-jkR 

where  the  factor  ^ —  and  the  source  weight  (Wffl)  are  added  elsewhere 
in  the  code. 


FLOW  DIAGRAM 


No 


Specify  field!  incident  on  cylinder 
reflection  point  (fra*  RPtRCL) 


Coopute  creeping  wave  teros 


Compute  incident  r«y  tangent 
point 


SYMBOL  DICTIONARY 


ALR 


ALS 


UZ  J 

CFH 

CFS 

UfcPH 

UbTII 

UHI'I 

[Jill  V 

urn 

ul 

UJ 


hr 

bG 

bHP 

bHT 

*  bP 

EX 

bSP 

bST 

bl 

bA 

bY 

HZ 

LHIT 
LIE  FI 

PHI  X 

PHJX 

3 

THIN 

riux 


VI* 

VI 

vL 

vu 

XU 

YU  > 

ZU  J 


CYLINDbX  KHFLbCT ED  HAY  PHI  ANGLE  IN 
TAN  POINT  COORDINATE  SYSTEM  (2-D)  i 

PHI  ANCLE  DEFINING  DIRECTION  OF  RAY  FROM  RCS 
ORIGIN  TO  SOURCE  IMAGE  IN  TAN  POINT  COORD  SYS 
X,Y,Z  COMPONENTS  OF  POLARIZATION  UNITjVECTOR 
OF  SOFT  COMPONENT  OF  FIELD  INCIDENT  ONiCYL  (PARALLEL 
TO  CYL  SURFACE  AND  NORMAL  TO  INC  RAY  PROP  DIR) 

HARD  TRANSITION  FIELD  COEFFICIENT  | 

SOFT  TRANSITION  FIELD  COEFFICIENT  1 

PHI  COMPONENT  OF  TRANSITION  FIELD  IN  RCS 
THETA  COMPONENT  OF  TRANSITION  FIELD  IN  RCS 
DISTANCE  FROM  SOURCE  IMAGE  TO  PLATE  REFLECTION 
POTT  (FROM  PLAINT) 

DISTANCE  FROM  PLATE  REFLECTI ON  POINT  TO  CYLINDER 
DISTANCE  FROM  SOURCE  TO  HIT  POINT  (FRQM  PLAINT) 

UNIT  VECTOR  OF  RAY  INCIDENT  ON  CYLINDER 

X,Y,Z  COMPONENTS  OF  UNIT  VECTOR  OF  PROPAGATION 

DIRECTION  OF  SOURCE  RAY  INCIDENT  ON  PLATE 

PATTERN  FACTOR  FOR  THETA  COMPONENT  OF 

INC I  DENT  FIELD  IN  RCS 

PATTERN  FACTOR  FOR  PHI  COMPONENT  OF  } 

INCIDENT  FIELD  IN  RCS  j 

PHI  COMPONENT  OF  HARD  COMPONENT  OF 
FIELD  INCIDENT  ON  CYLINDER  IN  RCS  j 
THETA  COMPONENT  OF  HARD  COMPONENT  OF  ! 

FIELD  INCIDENT  ON  CYLINDER  IN  RCS 

PHI  COMPONENT  OF  CYLINDER  SCATTERED  E  FIELD  KITH 

PHASE-  REFERRED  TO  RCS  ORIGIN 

DOT  PRODUCT  OF  UNIT  VECTOR  TANGENT  TO  CYLINDER 
AND  THE  PROPAGATION  DIR.  UNIT  VECTOR  \ 

PHI  COMPONENT  OF  SOFT  COMPONENT  OF 

FIELD  INCIDENT  ON  CYLINDER  IN  RCS 

THETA  COMPONENT  OF  SOFT  COMPONENT  OF 

FIELD  INCIDENT  ON  CYLINDER  IN  RCS 

THEY  A  COMPONENT  OF  CYLINDER  SCATTERED  E  FIELD  WITH 

PHASE  REFERRED  TO  RCS  ORIGIN 

PATTERN  FACTOR  FOR  X,Y,Z  COMPONENTS  OF 
INCIDENT  FIELD  IN  RCS  t 

VARIABLE  USED  TO  STEP  THROUGH  TANGENT,  POINTS 

SET  TRUE  IF  RAY  HITS  A  PLATE  (FROM  PLAINT) 

(RErURNEI)  FROM  RPLRCL)  SET  TRUE  IF  G.O. 

CYLINDER  REFLECTED  FIELD  DOES  NOT  EXIST 
PHI  COMPONENT  OF  PROPAGATION  DIRECTION  OF 
RAY  INCIDENT  ON  CYLINDER  I 

PHI  COMPONENT  OF  PROPAGATION  DIRECTION  OF 
SOURCE  RAY  INCIDENT  ON  PLATE  I 

LENGTH  OF  VECTOR  FROM  SOURCE  IMAGE  TO  TAN  POINT 

(2  OR  3-D)  I 

THETA  COMPONENT  OF  PROPAGATION  DIRECTION 
OF  RAY  INCIDENT  ON  CYLINDER  •  ! 

THETA  COMPONENT  Cr  PROPAGATION  DIRECTION  OF 

SOURCE  RAY  INCIDENT  ON  PLATE  J 

ELL  ANGLE  DEFINING  »0| NT  WHERE  CREEPING  WAVE 

LEAVES  CYLINDER  I 

ULL.  ANGLE  USED  TO  DEF  l HI:  TANGENT  POINTS  (2-D) 

ELL  ANGLE  DEFINING  LOWER  RANGE  OF  CREEPING  WAVE 
TRAVEL  Oil  CV.INDM  Oil)  ,  * 

ELL  ANGLE  DEFINING  UPPER  RANGE  OF  CREEPING  WAVE 
TRAVEL  ON  CALINUEh  (2-D)  f 

X.Y.Z  COMPOIENIS  Or  DIRECTION  OF  RAY  EROV. 

SOUuCl  If)  CYLirm-R  TANGENT  ’MI NT  (  INCIDENT 
RAY  FOR  CRLLPI  AND  GRAZING  INC.  CASES) 


414 


.-~v—  .  _ .  . 


I 

4 

y 1 1  A  x,y,i  components  oh  turn  isitmi  incident  ;;.t-epir>r 

Xll  j  r.Avt  tun  <JU/-Zl"C  nA  VH)  MEETS  CYLINDER 
XI S  X.Y.Z  OO.NPUIEHTS  OH  IMAGE  SO'lkCE  LOCATION  (r on 
1  kfcr LECTION  HROM  PLATE  MP) 

XPP  X.Y.Z  COMPONENTS  Of  POINT  WIEKE  BAY  LEAVES  CYLINDER 

XitH  X,Y,Z  COMPONENTS  OH  POINT  «NEHP  CHEEPING  'AVS 

,  LEAVES  CYLINDER 
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CODE  LISTING 


2 

3  CM! 

4  C! !« 

5  C!  I ! 

6  C! !! 

7 
b 
v 

la 

>i  i 
12 

13 

14 

15 
lo 
17 
IS 
IV 

2a 

21 

22 

23 

2  4 

25 

20 

27  V00 
2b 
2V 
3« 

31 

32  C! !! 
M 

4 

3t 

36  7!  5! 

37 
3b 
3V 

40 

41  3 

42 

43 

44  C!  H 

45  CM! 

40 

47 

4g  CM! 
4V  C! ! ! 
56 

51  CM! 
53 

53  Cl !! 

54 

55  CM! 
50 

5? 

58 

5v 

fril 

6> 

82  C! !! 
Ci 

64 

85 

CO 


SUBROUTINE  RPLSCL<ET,EP, ERT, EDP.MP) 

COMPUTES  THE  El  ELD  REFLECTED  FROM  PLATE  6MP  THEN 
SCATTERED  FROM  THE  ELLIPTIC  CYLINDER 

COMPLEX  CJ  ,CPI  4,CF,CFH,CFS,FI, PFUH,QFUN 
COMPLEX  El  X,  El  Y,  El  Z,  El  PH,  E ITH,  ET.EP,  EPT,  ERP 
COMPLEX  REF,ESTH,ESPH,EHTH,EHPH,nETH,DEPH,EF,EG 
COMPLEX  EST, ESP, EHT.EHP 

DIMENSION  VI(2),Efi(2),UH(2),l*S(2),D!(3),XRF(3) 

DIMENSION  XIS(3>,DJ(3),VAX(3,3) 

LOGICAL  LHIT.LTRFI ,LD€BUG, LTEST.LRFI ,LRFIT 
COMMON/CEOMEL/  A , B , ZC < 2 i , SNC ( 2 ) ,CNC  t  2 ) . CTC<  2  » 

COMMON/SCR I NF/XS  ( 3  > ,  VX  S<  3 , 3 » 

COMMON/IMAINF/XI  (14,  l4,3),VXIO,3,  14) 

COMM ON/P I S/P I, Ta I, DPR, RPD 
C0RMON/CTD/AS. IO,SAS,SASB,CAS 
C0NM0N/0lR/U(3 i ,TKSR ,PHSR, S»S,  CPS, STHS.CTHS 
COMMON/COM P/CJ  ,CP!  4 

C0MMON/BNDICL/DTI ( |4),VTI( !4,2),9TI( M,4> 

COMMON/FUDCI /H EF , ESTH,  ESPN,  EHT M,  EHPH , if. t 3 > , RG,  SMOI  ,DL, LTRF I 
COkMON/TEST/LDEOUG, LTEST 
C0MM0N/CL8F  J /L Bf I C ' * ) 

EXTERNAL  FCT 
IFtLDEBUG)  hRJTE(6,9«J) 

FORiUTt/,'  DEBUGGING  RPLSCL  SUBROUTINE') 

ET«(i3.,a.) 

EP-t0. .0.) 

ERT-t3.,0.) 

E»P-(0.,fl. ) 

CAN  PLATE  REFLECTED  RAY  ILLUMINATE  CURVED  SURFACE? 

IFtOTi (MP> ,LT»-t  «S)  GO  TO  V0V 
ER(  I  )-BT!OtP',l  )«CPS*9IItitP,2)»SPS 
ER 12  l-BTl  l  VP  ,3  ) •CPS'* FT!  ( up, 4  )»SPS 
LOOP  THRU  TANGGNT  VECTORS 
l-i 

ERF IT-. FALSE. 

VMMaVTICMP.I) 

T(2)«vTi{»tP,2l 
CC  T l HUE 

CALL  HANDS  (UK,  135  ,V|  1 1  >  > 

StNA-U,  ‘( I J  *CPS*Uri2)*S?a 

CALCUUTr  ALP,  THE  REFLECTED  RAY  PHJ  ANGLE  IS 

TANGENT  KtNT  CCCSfi.  SYS. 

alr-btaws  •„:na»~e»(  i  n 

tFtAL8.LT. 6- I  ALR«ALR-TPt 

if  grazing  incidence  is  ‘■‘resent ,  sss?  to 

appropriate  SECTtC* 

IFtASStPI-ALR)  .LT.3.2C35)  03  TO  5 
IF  »L8.CT,PI  COMPUTE  CREEPING  *A*t  TISVS 
IFtALR.CT.PI !  OC  TO  1C 

COMPUTS  REFLECTED  FIELD  U’-aS  IF  ALL  ,L£.  ?| 

CALL  RPLStlt FST.Css.MP  > 

ASS  REFLECTED  FIELDS  P*S3£t-m 
IFtLT&FI)  Gg  TO  ! 

SSAS*UNt  IJ*XSt#P,*P,  i)-tlSt3!*II5«P,SP,2) 

IC*2«I *  1 

CSAWtHSP.  }£l*Sf t«P.*P.I  »-PTItSP.IC*l  »**t{A1?.MP,2) 
*LS-gTASl!  WfAS.-CSAS) 

ALSS-ALF-AL3 

IS  REFLECT t AN  TO  ,-fg  ftAN?l£9  FY  OTVES  fpjiCENT  v6C7Wt 
1  f  s  Af  S  t  AIR  S!  .1 T .  C.  .  a*«D.  l.EQ.CI  SOTO  ( 

5FtA-L8S.LE.-«.<L’S6l  ftp  TO  l 
e»«t  ?I*eG>**ti  ,/,T.  f 
t&wwoi  •OL/tCL-3’05 ) 
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67  SKNI  G«-ABS  (2 .  *TP  I  *  RHS/GX/OH ) 

68  CF»-S0RT(-2./PI/Si(HlG)ACPI4#8EF 

6V  CF-Cf*CEXP(-CJ*£KN!G*SKWIG*SK*IC/l2. ) 

745  TTRK»SKMC/GH 

71  xx«pi*(DL*ftHS)*nuM*rn»» 

72  C!  II  SPECIFY  HARD  A«0  SOFT  COMPONENTS  OF  FIELD  INC.  OH  CYLINDER 

73  Ct!l  FROM  RPLRCL 

74  EST-ESTH 

75  ESP-ESPH 

76  EHT-0ITH 

77  EHP-EHPH 

78  CO  TO  30 

7V  10  CONTINUE 

845  IF(LRFIT)  LRFI  (HP)*. FALSE. 

81  LBFIT-.TRUE. 

82  C!M  COMPOTE  CREEPING  NAVE  TERNS  IF  AIR  .GT.  PI 

83  CM!  COMPUTE  INCIDENT  ftAY  TANGENT  POINT 

84  XII-A*COS(VKI  J) 

85  YII«B*SIK(VK1)) 

86  XD*XII-XI (MP.MP, I) 

87  YD«YII-XI(M»,4P.2) 

88  S-SORTt  XD*XO*YU* YD  > 

8V  2II»S*CTH$/STMS*Xl  (HP.MP.3) 

94)  CIH  IS  TAN  POINT  ON  (FINITE)  CYLINDER? 

VI  IFtZlt.GT.ZCf  l)*XIl*CTC(l).GR. 

V2  2Z 1 1.  LT.2CI  2  )*X  II  *CTC  (2  ))  GOTO  I 

V3  ZO»ZII-XI<MP,MP,3) 

V4  PHIR*6TAN2(Y0.X9) 

95  TNIR-BTAN2(S,ZO) 

V6  S«SORT( £*S*2D*20 ) 

«7  DI(I )«XO/S 

V8  01  (2  )»YD/S 

VV  DIO)*ZD/S 

14545  00  IS  N-1,3 

1451  15  XI SCN)*XI (KP »')P,N) 

102  cm  DOES  REFLECTION  OFF  Of  PLATE  NP  OCCUR? 

I®3  CALL  PLAlNTtXlS.OI  .DHlT.-J4P.mil) 

14(4  IF(.NOT.LKIT)  00  TO  I 

105  ohiv«s*umit 

106  cm  IS  SAY  SHAMMED  BETWEEN  REFLECTION  AtO  OiFFRAC.  JC?)? 

107  caul  PiAismis.oi.owr.HP.um) 

M»e  IFtLHST. AND. IOMT.LT. DHIY>!  SOTO  I 

10V  cm  CALCULATE  PROPAGATION  DIRECT  ION  OF  BAY  INCtOS’T 
110  cm  ON  PUTS  MP 

Ml  CALL  a&’8?CPHJR,THJR,PMIR,TMlR.PPJ 

112  £PKJ*SIN(PRJB> 

M3  CPH3«C0S(  PR/S) 

114  STKJ«SIK(TH3BI 

115  CTKi«COSfTKJRl 

1 16  Dill  )<PHJ*$TNJ 

117  0Jt2t«5fHJ«ST!(J 

lie  0J<3)*CTKJ 

•  •  9  cm  is  sacscE  bay  oaes  before  hitting  plats  *p? 

120  Call  PLAlNTtKS.Di.O«T»*»P.LI,tT» 

121  I  ?  t LH5  T -  ASC-  Uc«T .Lt .  r^I T  )S  vO  TO  « 

122  CALL  C¥UKT(]tS.03.PH2R.m,*.HIT, .FALSE.) 

J23  S F(IH| 7. AND. (DHT.LT.IXiT)!  00  TC  I 

12*  0026Ni«l.l 

125  Cf  f!  SPECIFY  SniSSCS  IWC?  AiiS  AKS  CALCULUS'S 

126  fill  «KSK£  PATTY Mi  FACI6S 

12 «  S7C2«N{*I,J 

128  26  V*iiS'{,H3)-V*|(HI,«J»1fPJ 

«2V  CALL  SXS&Sf£i  6r , EC. g ?  J.il  ¥. £ { Z , SV 5 K . PHi  6. VAX « 

120  CIS!  PESMNM  CREEPING  wsvf  C3*P*iT*r5C*«$ 

«3i  IFaDEPLG)  *v:Sc«A.*l  FF.fC 

•  32  IFd.SO.  S>  ¥2«.grAli2(-e*C^S,A*SP5> 
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133  IFCI.E0.2)  VD*BTAN2t  B*CP5,-A*SP3) 

134  VDP-VD-VKI) 

135  JFCVOP.CT.Pl )  VOP-VOP-TPl 

136  IFCVOP.LT.-P!)  VDP«VDP»TPI 

137  1FCI .EQ.2J  00  TO  20 

130  IFCV0P.LT.9. >  CO  TO  I 

13V  VL*V 1 C I ) 

140  VU»VOP*VHt) 

141  GO  TO  25 

142  20  CONTINUE 

143  IF(VO?.GT.0.)  CO  TO  I 

144  VL-VDP4VIU) 

M5  vu»mn 

146  25  CONTI HUE 

147  CALL  F<AHG(SKNIC,AS,VL,VU) 

146  XXrl I )*A*COS(VO) 

MV  XNF(2>»E*SIN(VD) 

150  !0»3 

151  CALL  t30C32CVL,VU,FCT,SS) 

152  5S*SS/5AS 

153  XRFC  3) *2 ! I ♦5£«CTHS 

154  C! !1  DOES  RAY  HIT  PLATE  AFTES  LeAVJ NO  CYLIKOER? 

155  CALL  PLAINTCXRF.O.DHIT.O.LKIT) 

156  IF(UIIT)  GO  TO  I 

157  CALL  RACCVtROl.RT.VHD) 

158  CALL  RAOCVtSGF.RT.YOI 

15V  CMMa(PI*P!*RGI«SfiF)**< I./5.) 

i6c  GF»-csi'*«cp:4*cExp<-cj*7Pi«(Sassn/pi/scaT!2.*S) 

161  CF«CF*CEXPCCJ*TP!<MXRF<I  >*DC  IMX8?C2>*D£2>*XRF<3)*£H3} )) 

162  TIRNaSSfilG/Cm 

1 63  XX-PI*S*TTSS»*TTa.H 

164  3X»~WU2M0I  C 3 > 

165  BY*UIK  I  ) *01  C3  J 

160  S2»u;iC2)«0tc  u-'jnc  n*cit2> 

107  SSP*C0.,I».  J 

168  EHT»f3.,0. ) 

I6»  Cl  tt  CONFUTE  HA  HO  ANO  SOFT  CREEP!!®  HAVE  COMPONENTS 

! 30  EHPwSt  X»V!it  I  )*•*!  Y*tffU2 ) 

m  EST»e!X*0X«£tY*ISY*£t4*82 

IT?  let !  «EQ. ! )  Sl!P»-iHP 

(73  IFCI.eQ.2J  E5T— ESI 

f.*  30  CONTINUE 

175  C! ! t  CONFUTE  TMI  SCATTER  FJELO 
l7o  XXS»SOSfT«TP!*Al> 

»7>  >II«5U»n»  J 

IT8  CALL  FSftlLSttXC.SSS.JXXI 

tTs  F  f  <*  PU I  <K  8  -CCC , £  SS-0 . 8 1 

18?  F J «SXS*F | •CEWMC3* «.*•*;•«!  > 

18 I  Fia-Ff/SENtC^OStTCJ. » 

is.  ssTP*scv:-?.*uii 

181  CFt<«CF«tFi  ‘.&rP*3FI®t$K%t£K! 

184  CFS-CFaCeMSCfiPaPFUSttSSalSJ} 

iS5  BLrH-NCF  H»  {•  H?»C  eS  *  ~  ? 

185  DEtK<^*€H$<F$«g5t 

»87  «K>  TO  e 

188  8  CW'iWJE 

iev  cs si  ccKAvfE  isjAfis®  j«c.  scam*®?  fjslo 

IS*!  CO  JS  s*  t ,  2 

IV I  is  AISiSiMJJJWP.HP.Sil 

tw2  CMS  sfFLSCTMN  fl&SR  FLATS  HP  aCCS*  IS  C**2!s«  -;>7ri&SsCf 
i  cm  stfetCTiCN? 

tv*  CALL  ? t # 5 «T C  J I S . 3. ^ I T . - , *.H« «” J 

i VS  Jf-C.A-g5.lHnJ  Gc  TC  “ 

18ft  r.1!  SS  SAY  FWSfeXilS  S£1*tf«  R&t&Ti&S? 

187  call  >UUsfi5SSS.cJ.n!*“,wP.LWT» 

Iva  JFiLwJfJ  SP  755  s 


i  IS 


IM 

200 

201 

202 

202 

204 

205 
204 

20?  cm 
208 
20V 
210 
211 

212  cm 

213 

214 

215 
214 
21? 

218 

21V 

220  cm 

22 1 
222 
222 

224 

225 
220 
22? 

223 

22  V  24 

230 

231 

232 

233 

234 

235 

234  Cl  1! 
2’? 

225 
22V 
240 
24  1 

242 

243  cm 

2«4 

245 

244  4 

24?  cm 

248 

24« 

250 

251 

252 

253 

254 

255  i 
25a 

257  VIV 

258 
25v 

200  vi» 

24  5 

242 

243 
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CALL  REF8P{PHJN,THJR,PHSR,THSR,WP> 

SPHJ«SIN{PHJ(l) 

CPHJ=C0S(PHJR1 

STHJ*SIH(THJR) 

CTHJ-COS(THJR) 

0J(  I  )»CPW*ST>iJ 
DJ(2 )*SPHJ*S1HJ 
DJ(3)*CTHJ 

IS  INCIDENT  (SOURCE)  RAY  SHADOWED  BY  PLATE  OR  CYLINDER? 
CALL  PLA l  NT<  X5  f  0  J « DHT, HP , LMI T) 

IF  CLHIT.  AMD.  CDHT .LT.DH IT  1 >  CO  TO  I 
CALL  CYLINKXS.DJ.PHJH.DKT.LHIT,  .FALSE.) 

IFtLHIT.ANO. <DKT. LT.DH IT))  GO  TO  I 
CALCULATE  CRAZING  INCIDENCE  POINT 
SGN— SIGNC  t.  ,SIN(ALR)) 

XII*A*C0S(V1(I  1) 

YII*8*5IN(VI (I )) 

XD*Xll-XI(ilP',WP,  I ) 

YD*YtI-XI(MP,MP»2> 

S*SORT  ( XB*XD-*YD*YD  > 

Zt I*S*CTKS/STH5*XI  0IP,MP,3) 

IS  GRAZING  INC.  POINT  OFF  Of  FINITE  CYLINDER? 

IF  C 2 1 1 .GT.ZC ( I >*Xl I*CTC( 1 1 .OR. 

22 1 1 . LT. ZC( 2  > *X  1 1 *CTC (2 1 1  GO  TO  1 
ZD»ZII-XIO(PtHP.3> 

S»SQRT(S4S42D*Z0) 

CALL  RADCV(RCI .RT.VJtJ )l 
GM-(Pl*&CI  1**1  I./3. ) 

00  3o  NJ-1.3 
00  34  NI-1,3 
VAXCNI .NJl-VXI  (NI,NJ\ltP) 

CAU.  S0URCE(EF,EG.S1X,EIY,EIZ,TH5R,PKSR.VAX) 
CF-CEXPtCjnPMfXlCXP.HP.l  )*IK  »)*Xt(«P.UP,2)40(2)4 
2XK»P,*P.31*D(3))> 

0X»-Ufi  (21*0(31 
8Y-UN( 11*0(31 
eZ*Uft(2»*Dt  l  W1N(  1 1*0521 

CALCULATE  HARD  AN3  soft  COMPONENTS  of  I MCI DENT  field 

EHP-eix«oxt  i  i*enr*UH(2 1 

EST-EiX*6X*eiY*BY*ElZ*8Z 

IF(t.EO.I)  EHP.-EKP 

IFCI.E0.21  EST—EST 

cf  iM3i*cPi  4*cf  mi  c  a .  i /scaK  Pi  *s  i 

CrS»S**e?l 4*P?UN CO. l/SOSTt PI *S 1 

CALCULATE  CRAZING  INCIDENCE  TRANSITION  FIEUD 

OETN- ( 0. 5*&'*SCK-CFS  *SST  1  *CF 

OcPh»(0.5*EG*$CN-C?K*6MPl*Cf 

CONTINUE 

CALCULATE  total  evUKSEB  fields 
ET4T*GsTH 

IFlLOESU&l  KN| IS (4 ,* 1  I.5KRiS,»X,PS,C? 

IFtLOESUGl  «S!Itt6,«!  CFN.CFS 
IF(LC€©.G1  ttS-UEtft.*)  ENT.EST 
IFSLOeSUC)  *B!Tg(6.*l  EMP.ESP 
IFil&SEUCl  WBITEto.*)  OeTM.OEPM 
t*!»l 

•Fsi.te.21  GO  TO  3 
cawTtffue 

I?LWUmT)  BET  GSR 
MtJTFiP.VSOl 

?<&\nns,'  nsttm  rpl-Scl  msaovrttt't 
RimE(C,*l  ET.EP.KP 
RB5TEJ4.*!  uftT.ESP 
eCTTM* 

ERG 
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SCLRPL 


PURPOSE 

To  compute  the  far-zone  electric  field  of  a  source  ray  which 
is  scattered  by  the  cylinder  and  then  reflected  by  a  given  plate. 

PERTINENT  GEOMETRY 


A 

D 


SOURCE 

LOCATION 

XS 

Figure  102—11  lustration  of  ray  scattered  by  the  cylinder 
and  reflected  by  a  plate 

METHOD 

A  uniform  Geometrical  Theory  of  Diffraction  solution  for  the 
field  reflected  or  diffracted  by  a  cylinder  then  reflected  by  a  plate 
is  computed  in  this  s"broutine.  The  fields  reflected  or  diffracted 
by  the  cylinder  in  the  direction  of  the  plate  are  determined  in  a 
similar  manner  as  the  fields  calculated  in  subroutine  SCTCYU .  The 
direction  of  the  ray  incident  on  the  plate  is  determined  by  imaging 
the  observation  direction  into  the  plate,  as  illustrated  in  Figure 
102,  The  plate  reflected  fields  are  found  by  satisfying  the  boundary 
conditions  for  the  fields  at  the  surface  of  the  plate.  The  phase 
of  the  resultant  scattered-ref lected  fields  are  referred  to  the  ref¬ 
erence  coordinate  origin.  The  form  of  this  field  is  then  given  by 
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I 

I 

I 

1 

1 

1 

I 

I 

r 

3. 


i 

r 

l 

l 

I 


I 

i. 


1 


c  v.  -jkR 

t  *  =  Wm(ET§+EP$)  , 

-jkR 

where  the  factor  — * —  and  the  source  weight  (Wm)  are  added  elsewhere 
in  the  code.  K  m 
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V 


ALR>ir?  { creep  ing^^>— 
wave) 

—  Yes - 

! 

Compute  geometrical  optics  reflected  cylinder  fields 

1 

_  -  -- 

^  rt  mi-  C  1  —  -  f  n  J  C  -i  M  1  Ja 

NO 

rer  lectea  Meios 
present? 

Yes 

Yes 

icubivn  wu  uc  iidiiuieu  uy-** 

^'-^other  tangent 
^'s*^vector?^^'^ 

Specify  hard  and  soft  components  of 
field  incident  on  cylinder  re¬ 
flection  point  (from  subroutine 
RCLRPL) 


Compute  creeping  wave  terms 


Compute  incident  ray  tangent 


tangent  point  off  of 
'•-^finite  cylinder’^' 


Compute  grating  incidence  scattered  field 
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SYMBOL  DICTIONARY 


A I  \  HELD  COMPONENTS  OF  RAY  INCIDENT  ON  PLATE 
A2  J  NORMAL  ANU  TANGENT  TO  PLATE 
AJ  DETERMINANT  OF  POLARIZATION  TRANSFORMATION 
ALR  PHI  ANGLE  DEFINING  PROPAGATION  DIRECTION  IN  TAN 
POINT  COORDINATE  SYSTEM  <2-D> 

ALRS  DitrERENCk  LFTKEEN  ALS  AND  ALR 
ALS  PHI  ANGLE  DEFINING  DIRECTION  OF  RAY  FROM  RCS 
ORIGIN  TO  SOURCE  IN  TAN  POINT  COORD  SYS 
UX  ")  X,Y,Z  COMPONENTS  OF  POLARIZATION  UNIT  VECTOR 
BY  >  OF  SOFT  COMPONENT  CF  FIELD  INCIDENT  ON  CYL  (PARALLEL 
BZ  J  TO  CYL  SURFACE  AND  NORMAL  TO  INC  FIELD  PROP  DIR) 

cin 

CI2  l  COErFlCI tNTS  USED  TO  CONVERT  POLARIZATION  FROM 
C2 1  (  THE!  A  AND  PHI  COMPONENTS  IN  RCS  TO  COMPONENTS 

022  J  NORMAL  AND  TANGENT  TO  PLATE  ( AND  VICE-VERSA) 

CFH  HARD  TRANSITION  FIELD  COEF'rICIENT 

CFS  SCH  TRANSIT  ION  FIELD  COEFFICIENT 

DEPi!  PHI  COMPONENT  Or  TRANSITION  FTELP  IN  RCS 
UETH  THETA  COMPONENT  OF  TRANSITION  FIELD  IN  RCS 
DI  X,Y,  AND  Z  COMPONENTS  OF  INCIDENT  RAY  DIRECTION  ON  CYL  IN  RCS 
DJ  X,Y,Z  COMPONENTS  OF  PROPAGATION  DIRECTION  Or  RAY 
BETWEEN  CYLINDER  A  NT)  PLATE  IN  PCS 
Er  THETA  COMPONENT  CF  SOURCE  FIELD  PATTERN  FACTOR  IN  RCS 
£0  PHI  COMPONENT  OF  SOURCE  FIELD  PATTERN  FACTOR  IN  RCS 

tHP  PHI  COMPONENT  OF  DAP!)  COMPONENT  OF'  GEOMETRICAL 

OPTICS  FIELD  INCIDENT  ON  CYLINDER  IN  RCS 
cHT  THETA  COMPONENT  Cr  HAt:D  COMPONENT  Or'  GEOMETRICAL 
OPTICS  FIELD  INCIDENT  ON  CYLINDER  IN  RCS 
E«  DOT  PRODUCT  OF  CYLINDER  TANGENT  UNIT  VECTOR  AND  REFLECTED 
RAY  PROPAGATION  DIRECTION  (2-0) 

EHP  PHI  COMPONENT  OF  G.O.  WEFL-REFL  FIELD  IN  RCS 
fcfil  THETA' COMPOtr.NT  CF  G.O.  hEFL-REFL  FIELD  I!  RCS 
tSP  PHI  COMPONENT  OF  SOFT  COMPONENT  OF  OEOMETR ICAL 
CP  TICS  FIELD  INCIDENT  ON  CYLINDER  IN  RCS 
eST  THETA  COMPONENT  Cr  SOFT  COMPONENT  CF  GEOMETRICAL 
OPTICS  HELD  INCIDENT  ON  CYLINDER  IN  RCS 
PHIk  PHI  COMPONENT  Or  INCIDENT  RAY  DIRECTION  nr-  CYL 

PHJh  PHI  COMPONENT  OF  R*Y  PROPAGATION  DIRECT I  CD  BETWEEN 

CYLINDER  AND  PLATE 

SKWIC  PARAMETER  USED  IN  TRANSITION  FUNCTION 
THIR  THETA  COMPONENT  CF  INCIDENT  PAY  DIRECTION  ON  CYLINDER 

1‘HJR  THETA  COMPONENT  OF  RAY  PROPAGATION  DIRECTION  P ETWEE"  CYLINDER 

AND  PLATE 

TlhM  PARAMETER  USED  IN  TkANSITION  FUNCTION 
CXI  \  X,Y  CUM  PUN  ENTS  OF  HAY  FRO."  SOURCE 
TY I  i  TANGENT  TO  TAN  POINT  1  (2-D) 

U2  \  X.Y  COMPtXIENTS  OF  RAY  FHCf  SOURCE 
TY2  J  TANGENT  TO  TAN  PUNT  2  (2-C) 

Ub  X, Y  COMPONENTS  OF  UNIT  VECTOR  TANGENT  TO  CYL  AT  TA*I  POI'‘T 

UN  X,Y  COMPONENTS  OF  UNIT  VECTOR  NORMAL  TO  CYL  Al  TAN  POINT 

VI  ELL.  ANGLE  USED  TO  DEFINE  TANGENT  POI!!TS  (2-D) 

VL  ELL  ANCLE  DEFINING  LOwuR  LIMIT  OF  CREEPI'Xi  WAV"  TRAVEL 

ON  CYLINDER 

VT  X, Y,Z  COMPONENT'S  OF  POLARIZATION  UNIT  VECTOR  PERPENDICULAR 
TO  PLANE  OF  INCIDENCE  rCR  RAY  INCIDENT  ON  PLATS 
VU  ELL  ANGLE  DI-FI filt.'G  UPPER  LIMIT  OF  CRFLW".  I  AV"L  TRAVEL 
ON  CYLINDER 

AD  1  X.Y.Z  COMPONENTS  OF  DIRECTION  CF  RAY  FROM 
YU  >  SuUrtCt  TO  CYLINDER  TANGENT  POII’T  (INCIDENT 
Zi>  )  RAY  FUR  CREEPING  AND  GRAZING  INC.  CASES) 

Al  'I 

Y I  r  X,Y,Z  COMPONENTS  OF  POINT  KltEUI  IgCIDEIT  Cl.LLPirO 

Zl  J  WAVE  (OR  GRAZING  HAVE)  Mil  VS  CYLINDER 

AKr  X , Y , Z  COMPUt.FNTS  Or  POINT  Hit;  up  CI?p  -  PI'XJ  AVF  LEAVES  CYLI‘  PER 

XRS  X.Y.Z  CO.'PU?  ENTS  OF  REFLECT! POINT  LiC/TIO'l  ON  PUTS  ?? 

ALSO  POINT  lv  HE  RE  CREEP  INC  WAVS  LEAVES  CYLINDER 
ALSU  IMAGE  Cr  XRF  IN  PLATE  up 


CODF.  LISTING 


C  SUUCOTJME  SCLKPL!  ET, EP, ERT,  EBP,  t'P ) 

.  c!  ! ! 

4  Cl  1 1  COMPUTE'  THE  FIELD  SCATTERED  FROM  THE  CYLINDER  THEN  REFLECTED 
b  0!!!  FROM  PLATE  *l‘P 
c  MI! 

*/  COMPLEX  CJ,CPl4,eE\CFH,CFS,Fl,?Ftm.DFtif’ 

«  COMPLEX  EIX,EIY,EIZ,FIPH,fcTTH,FT,EP,EPT,ERP 

V  COMPLEX  REF,  ESTH , ESPH ,  EHT1 1 , EHP M,  DETH ,i)EPH,  EF ,  EG 

IL  COMPLEX  EST,ESP, EHT, EHP, A I ,A2 

•II  DIMENSION  VI(2),ER(2),IJN<2),UO(2),DIO),XRp(3),'<RSO),VT(3),nJ(3) 

12  LOGICAL  LH I T , LTRFJ , LDE RUG, LT EST ,  LR  FS  ,Lf ,  •  ST 

13  COMMON/GFOPLA/X!  14,6,3), V<  14 ,6,3 ), VP< 14,6, 3) ,V»(  (4,3) 

U  2 ,MEP( 14) , 4PX 

lb  COMMON/CEOMEL/A,P,ZC(2  ),S:iC(2)  ,CNC<2  :.CTC<2> 

10  COMM ON/SOW IMF/X5 (3 ),VXS( 2,2) 

11  COl MON/FI  S/PI ,TPI ,DPH,WPD 

lb  COMMOn/OlU/A  £ , I U , SAS , SAS  P, CA  S 

1 V  COMMON/!)] R/l)(3  ) ,  THSH, PHSR,  SPS.CPS.S*’  MS  ,CTHS 

2k  C0AM0M/THPHG\/l)T(3),l)P(2 ) 

2 1  C0.".M0N/C0-1P/CJ,CPI4 

22  COMMOM/LKOSCL/BTS,VYSt 2)  , HTS(4 ) 

2~  CO!.KOII/FUnCJ/REj:.ESTH,E5?H,FPT‘  ,EHPH,:<fi(3),SG,|,HOI  ,DL, LTRFJ 

24  COHMOII/TEST/LDEQUG.LTEST 

2b  COMMU,*i/eUFS/LHFS<  14) 

20  EXTERNAL  FCT 

2’/  ET»<0.,C.) 

2b  EP»(0. ,fc.) 

2V  fckXO..!).  ) 

3  la  ERP*(tJ.,C.) 

21  C! ! !  CAN  SOURCE  ILLUMINATE  CYLINDER? 

-2  IF(LUS.LT.-I.b)  no  TO  00 V 

.2  CIS!  COMPUTE  PROPAGATION  DIRECTION  OF  RAY  HET'-EEH 

24  C!!!  CYLINDER  AND  PLATE 

2‘j  CALL  REF!P(PHJii,THJS,PH3R,THSR.Mt') 

3o  SPHJ-SIMPKJI.) 

2’i  CPNJ«COS<  PHJk) 

-t  STHJ-SIM  iHJK) 

jv  CYHJ-COMTIUR) 

fc  DJ(  I  )«CPhJ*$TFJ 

4  1  L'J<2)-SPHJ*i*,HJ 

42  0 J 1 3  ) “Cl HJ 

as-pi-tui; 

44  SAS-SI’HAS) 

4b  SA5P»AB5 (SIN ( AS-C.5*Pl ) ) 

4o  CAS-COSIAS) 

c!  1!  SPECIFY  TANCr  V  VECTORS 

4H  TXI-hTSMJ 

-V  i  Y  I»UTS12) 

tb  u;«ifl3i:i 

bl  I  Y,;*b  i  ')(  4  I 

•J2  EKI  )«TXUCPrJvrYI«SPIU 

b-  FU2>"TA2*CPHJ4TY2*SPHJ 

b4  Ul I  .OOP  IMRli  TANGENT  VECTORS 

bb  l»l 

be  LRbST-.bALSt . 

b »  VIII)-V»M  I) 

b«  VI(2>«VU(2) 

bv  Ir  <L»lL'Nl!G)  i.kITEU»,Vi*e» 

ok.  v>.t'  t-awf  U/,'  nhtmt'.r.|i:o  sclrpl  smcwi:') 

el  .  CONI  I  NHL 

02  CAU.  NAtUiXUN.UR.VlUn 

o2  SIKA-ONt  I  >*CP»U4U»  <2)*SPI;J 

0*  cl!!  CALCULATE  AI.R,  THE  RFFL  (A)  PHI  ANGLE  IN  TAN  POPT  COJSD  SYS. 

ob  ALk»0UN«M  SINA,-fc  i(  I  >) 

co  CMALh.LT.H.  )  ALR*M>>Tpt 


c7  ClU  IF  CRAZING  INCIDENCE  IS  PHESGNT,  SKIP  TP  A^PPOPRIATE  SECT! OH 
ob  lF<AI>S(Pt-ALIO.LT.»M<d*j>  GO  xo  5 

OV  cltl  IF  ALK  IS  0.1.  THAU  PI,  CfJM&IITE  CM  EE®  I  HO  WAVE  TERMS 

7k)  IF< ALN.C7. PI )  00  TO  l!> 

7  1  Lilt  COMPUTE  C.O.  REFLECTED  HELP  TEHMS  IF  ALR  .LE.  Pi 
72  CALL  HCLRPL1 EHT.EHP.MP ) 

7-  CM!  AKE  REFLECTED  FIELDS  PRESENT? 

7 4  IF(LThFJ)  GO  TO  I 

75  SNAS-11N(  I  )*XS(  I  )^!!M<2>*X5(2) 

7  c  IC-2*I-1 

77  CSAo-ftTS(!C)*XS(  I )  ♦PTSd  C*  I ) *XS< 2 ) 

7b  ALS-BTAf:2<SNAS,-CSAS) 

7V  ALRS-ALh-Al.S 

bo  C 1 !  1  IS  REFLECTION  TO  BE  HA 'ID  LED  PITH  OTHER  TAH  VECTOR? 

fcl  IFtAliS(A.LKS)  .LT.H. 0085. AMD.l. £0.2)  GOTO  1 

64  I F  (ALU S. LE .-,5. k»J85  )  GO  TO  I 

bo  G;i-(PI*I.O>**<  I  ,/3. ) 

b4  kHS«nHOI*DL/(l)L-R.ll01  ) 

bt  SKWC— ABS(2  .  -TP  I  *  HI’S/OM/GM ) 

be  CF—SLaTt-2./PI/Sw*-IC)*CPI**i<EF 

«7  CF -C F*CE >.P ( -C J * 3KW I G*Sa 1 3*5  K'.'l  l  G/ 1 2 .  ) 

bo  TTHM-SKk 1G/Q r 

8v  XX-PWL'L+HHSWTllWrrR*' 

VC  C ! ! I  SPECIFY  C.O.  REFLECTED  FIELD  COMPONENTS  (FROM  REFCYL) 

v  i  est-esti: 

V2  ESP- ESP ) 

vi  EHT-EHTI 

V*  EHP-EHPK 

VS  GO  TO  3c 

Vo  U  CONTINUE 

V.  IKLRFST)  LWFSL"?)-. FALSE. 

Vb  Lkt-ST-.TMJE. 

> v  II!!  COMPUTE  CREEPING  WAVE  TERMS  IF  ALR  .GT.  PI 
He  Cl  11  COMPUTE  Lie I PELT  KAY  TANGENT  PCItT 
lei  Xl-A*COS(Vl(  I )) 

Iv2  Yt«b*SIMV|(tn 

I*..  XD-Xl-XSM  ) 

IL*.  YD-YI-XII2) 

Ik  S  S-SGHT ( XP*XD*YD*YU ) 

ICO  Zl  -S*CTHJ/STI!J*XS(  3 ) 

It#  Cll!  IS  TANGENT  POINT  ON  CYLINDER? 

U'H  IF(ZI.GT.ZCm+XI*CTCl  I). OR. 

lev  2Z1 .LT*2C<2 )*?|*CTC(2 I)  GOTO  I 

I I  v#  Zb-ZI-XS(j) 

III  PHJR«UTAN2(YP, XP J 

HZ  THlK-UTANZtS.ZD) 

iit  s-soiuis*s*zr>*znj 

11*.  DI  ( I  l-XL/S 

ns  DI12I-YU/S 

lit  DI (Jl-ZL/S 

117  cm  I  TIES  INCIDENT  RAY  HIT  PLATE  BEFORE  CYLINDER? 
d»  CALL  PLAUa(XS,ni,l'.LIT,.’,LHm 

1 1  v  IHLHIT.AM;.  COHIT.LT.SI)  00  TO  I 

IZk  Ull  CALCULATE  I  NCI  PENT  FIELD  PATTERN  FACTOR 
Ul  CALL  SOURCE!  eF  ,03, FI  X,  El  Y,F!Z,TH!R,PNIR,  VXS) 

1.2  IrCLOcWJG)  Uf.l  TF (o,* )  KF.FG 

IZ4  Cli!  PtRrCM:*  CREEPING  CC>',*>NT*TIC,'$ 

1**4  Ird.EO.t)  vn-f-T**  ZI-0-CP4J, 

I*  *4  lrd.E0.2l  v f)-t!T AJ.21  F-CPI'J »-A*?P."J ) 

i.e  vi'P-vd-vmi) 

1*7  IMViJP.Ll.PI )  vyr-VOP-VPI 

12b  IFtviR'.Ll.-PI >  VDf-vriPdPl 

l*V  I r  d  , EG . 2 >  «<  Tc  2C 

I iv  Irtvrp.u.r. »  GO  I 

14  I  vi.-v  1 1 II 

1.2  VU-.mm*v  Id) 
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I  j. 

Ij*i  4.W 
l.'l 

106 

1 J  ? 

I  jo  ct> 

liv 

I4(. 

14  1 
1*2 
14  j 
144 
1*5 
140 

14'/  iC 

Ub  c!  a 

l*V  (_!  ! ! 
Ibi. 
lb  I 

152  Cl!! 

153 
15* 

155 

I5c 

157 

15« 

IbV 
I  Co 
ICI 
1 02 

10.  C ! ! ! 

1 04 

105 
loo 

107 
I  fcb 
loV 
I'n. 

17  I 
1.2 

17 j  oil! 
174 
•  7‘j 
l  <0 
I "» 7 

!  if} 

1 7  V  C !  ! ! 

IOC 

lb  I 

Ib2 

ibJ 

Its* 

UsS 

1 1.7 

lit. 
it, 
tv. 
iv  i 
>v.  * 
ivi  V! !; 
IV4 

ivb  7 

(VO  C! !  ! 

Iv7 

lVs» 


(4)  TO 

CONTINUE 

IHVDP.i/i..  .  )  GO  TO  I 
VLt=V|'t'*V  1 1  l) 

VU-V1U) 

CUNT  IilOL 

CALL  K.\/HO(SK;:IO,AS,VL,VU> 

XHF( I  W*COS(vD) 

XKF<2)»i*SIN(/D) 

IL»3 

CALL  DOG32<VL,VU,FCT,SS) 

SS-5S/SAS 
XhF ( 3 ) *2 I  ♦SS*CTH  J 
00  2o  N* 1 . 3 
XkS( N)"XNF (N ) 

DOES  CHEEPING  CAVE  REFLECTION  FliOK  PLATS 
CP  OCCUR 7 

CALL  PLAINT!  X»S,  IU  .OKIT,-  IP.LHIT ) 

Irt.KOT.Um)  GO  TO  l 
15  KAY  iHAOOf.fcO  ANYV.HERE? 

CALL  PLAINTt  XHS.O.LHn.NP.LI’lT) 

IMLFIT)  GO  TO  1 

CALL  CYLIKTOkS«I)*°FSN«rVfr .LHIT,  .Tffl'E.  ) 

IF(LIUT)  GO  TC  I 

CALL  PLAINTIM.F.UJ.DHT.’IP.LHIT) 

IF4LHIT.ANU.  OUT.LT.DHJT) )  GO  TO  I 
CALL  RAIICVIKCI.RT.VKI)) 

C ALL  HAL'CV  ( HCF  « >IT,  VO ) 

GIM» t PJ4PI  *RGI  »ROF  )**(  I  ./•*. ) 

CF»-C.’  .‘■•»CPI4*CEXP(  -CJ*T->I*  CS*SS )  >/PI  /SPRTl  2 .  *S) 

COMPUTE  PHASE  THIiM 

CALL  I  .'(AGE  <  XHS.XHF .  A»  R , OP) 

CF<b«CE X? (CJ*TP I*(X6St  1  )*LH  I) 4X05(2  )*Df  2 >*XRS 1 3  )*D<  3 )  ) ) 
7THM»SKiIG/Gl,( 

XX-PI4S»TTHH*TTi'}*( 

OX— I’ri (2 >*DI  (3) 

i>v=ur:n  )*')it:) 
b2«ut:(2)*:m  l  l  )*0I < 2 ) 

ESP»(vt.,lf.  ) 

EKXD.,0. ) 

COMPUTE  l;A lit)  AND  SOFT  CHEEPING  fc/VE  COMPONENTS 
EHP«EI  X»UN  <  I  >*EIY*UM2) 

EST'-Ff  A»fcX*fc  S  Y*SY4EIZ*u£ 

IMl.fcO.  I>  feM»4-Fi‘P 
IFU.E0.2)  E5T»“E5T 
CONTINUE 

CWIPUTE  Ttii  CYLINDER  SCATTERED  FIELD 

XXS-SOKTfTPf«XX) 

xxx-i;cht:2.*x?./vi) 

CALL  rlif  fcLSltCC.JS'S.X XX) 

r  t  «C  f‘L X  (U ,5-CCC , S J S-tf .5 ) 

rI*=XXS4«-l»CEXP(CJ*t.S*Pl*XX) ) 

rI»-Fl/J?:i.tG/SG«Tl2.  I 

J0TP*ERmT12.«PI) 

t>H»Cr  *4  r  I  •SOVP«('FUI»t  5 ) 

i>  S»C»:*<  1 1  •SrTP*PFNN  t  SS*  !G ) ) 

TfcPN  »>  I*  l.i  «><  r  S  •!:  S»* 

i. r*XFN*£in  •CfcS*EST 
«7V  T<(  *> 

coffi  j:sCf 

vi.fpj.r  UHZ-tVG  WCtnU'KP  SI •ATTLPrN  FIELD 
lx*  7 

ii, SC!l>«XSll-»  i 

IX 6b  rtiH.ECT i i-’l  bS/0*  n*n  -P  CCCUST 
call  »I.AtJJTt»S.af ,WJT,-  P.lJlIT) 

SM .‘wT.LHit i  gu  TC  I 
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IVV  cm  IS  HAY  iHAWOLD  AflYMiBH:? 

2U*  CALL  PL  A I  Mil  Afi  S.  D,  UHT  ,  ‘IP  .Lltl  T) 

2U  IKLIilT)  OC  TO  I 

2fa2  CALL  CYLir»T(XkS,0,PHSH.I):AT,LHIT,.THUE.) 

203  IF(LHIT)  CO  TO  I 

2V.4  CALL  ULA I  ?IT<  AS ,  t)  J , DWT ,  •  *P  ,LI*I  T) 

2i)b  I F  ( LH1 7. AHP. (DHT .LT* WiJT ) )  GOTO  1 

2fco  SO*N«-SlOf,’M.,SIN(AL«)> 

207  C!!!  CALCULATE  I  PCI  DENT  POI'IT 
2ou  XI*A*COS(V f  C I >  > 

20V  YJ»B*SIf.iV ;  m 

2  its  xo»xi-XS<u 

211  YI)-*Yl-XS(2> 

212  S-SOFT(XD*XIHYD*YD) 

213  Z I  »S  *CTF J/  STKJ +XS<  3) 

2U  C!!!  IS  POINT  OF  CRAZING  INCIDENCE  OFF  OF  FINITE  CYLI'IOEa? 
21b  IFtZI.CT.ZCm*XI*CTC(  D.Ok. 

2lo  2ZI.LT.ZC(2)»XJ*CTCt2)l  CO  TO  I 

217  2D-Z1-XSI3) 

2I«  S»S(jhT  ( t*  !>*ZD*ZO ) 

21V  CALL  «ADCV(HCI,<IT.VI(I  )) 

220  CM»(3I*hCI )*<t»./3.) 

221  cm  CALCULATE  IfCIl.'EfT  F ! ELP  PATTERN  FACTOR 

222  CALL  SOURCEC&-,ec.=TX,E!Y.E!Z.THIU.rHia.VXSl 

223  CU!  CALCULATE  PKASE  TeH»t 

22s  CALL  IMACGc.XliS.XS.ANK.tP) 

22  b  CF«CEX?(CJ*TPI*{  XnS(I)*MI  )*XA5(2)*f>(2  >*X8S(3)*f>(3 ))  > 

220  FX»-UN(2  )*t\J(3 ) 

227  BY"Uf<(  I  )*i)Jt  2) 

22 1  6Z«Uti(2  3*f)J(  l>-W(  n*0J(2) 

22V  C!!!  CALCULATE  HARO  AX)  SCFT  COPPOHFNTS  OF  CYL  FIELP 
23t  EHP»cI X*UKC I )*EI Y*U?M2 ) 

231  EST«EIX*FX*SIY*BY*EIZ*BZ 

232  IFU.EO.I)  6W>— EHP 

233  IF ( 1 .30.2)  6ST«~E$T 

23s  CFK»G4*C  PI  4*0FUJ1  tU  .  )  /SORTS  P I  *S  ) 

23b  C>S«GI*CPI  4#Pr'UfH0.  J/S^NTt  Pi»S ) 

2-0  Cill  CALCULATE  CMAZING  INCIDENCE  SCATTERED  FIELD 
23 7  OtTH.U) .  5*EF*SCf;-CFS*EST  )*CF 

23b  US  Pit  -  C  0 . 5*EG*SGN  -«FH*cHP  )*Cr 

23  V  c  CONTINUE 

2sl=  Ci)l  CALCULATE  TOTAL  CYLHBE3  FIELDS  REFLECTED  FUO«  PLATE 
24 1  VTtt)«VMNP,2)*(UJ)-VK(wP.l)«m2) 

3*2  Vi  (2  »»VMKP.3)*Qt  I  )-V«I*1P. )  )•*>(.}) 

243  VTt3)»VMUP,  l)AO{2)-VNf»JP,2)*Otu 

2«4  CM »vf! (|p,l| »CPH J*C7);J*v*:t r* ,2  >*S9Kj<T>'jW!.  (  3 J *5TVJ 

2*5  CI2— V!;«KP,U*SP»0*Vtr(,i.P.2JsC?‘- 

2*0  C2I*V\(  1 )  *CPKJ*CTVI  J*  VT 1 2 1  •SRVJ  *CTV-F*  YT  <  3 )  •  STHJ 

<34 »  C22«-vT<  l)*SF3y*VT(2 XFHJ 

2*0  Al*w8T)«»Cn*K«|4CI? 

2*v  A2«OFTN«C2 l*C£PK*C22 

250  Cl  l»VN«#P,  !  )*0T(  J  )*V!,!t'C»,2J*Drf2)»V»i('  e,3)*PTI  3» 

251  CI2*»vmAP,  U*OPC  l»*VW».2l»CPt|J 

252  C2«»v*T«  i  >»0T(  l  )»v*T(2l«OTt2  >*vrm*PT<3) 

2>2  C22«Yt(U*l>Pm*VTt2)*»3in2> 

25«  A3«C* I  •C22-CI2*C2I 

25b  PfcT«*fAI*C22*»A»C!2)/A3 

250  HfeFi‘*-l*2*CII*AI*C2l  >/#3 

251 

2b  fa  cT-LTHitTH 

2vv  IFtU-cULO  runsro.*)  5.SK:  JC.XS.FI.CF 

2oh  HMILcflim  <felT5*n.»l  Om.CFF 

291  IFCLUeSbC)  IftUEtft.O  F«T.6ST 

2©2  IMLflcsiUCI  5-iSUpfO,*!  fc^-0,F«P 

2oi  IFlUSSUfcCl  kfclTSfo,*)  mJFV  ,;'W' 

2C<  i  )•*♦! 
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20  V 

IF* I .LE.2)  GC  TO  3 

2oo 

WV 

CONTINUE 

2o7 

IH(.KOT.LTEST)  HEIUHt' 

JOB 

l«klT£(  6,  VMM 

2oV 

S  14/ 

MitKAK//  TESUNO  SCLRPI.  SUEftQUTINE') 

27w 

KHITEMS,*)  ET.ESV'P 

27  t 

MkiTEMS,*)  ERT.EHP 

272 

(iETl'NIl 

273 

END 
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SCTCYL 


PURPOSE 

To  calculate  the  far-zone  fields  scattered  by  the  elliptic 
cylinder's  curved  surface. 

PERTINENT  GEOMETRY 


SOURCE 

LOCATION 


Figure  103— Illustration  of  reflected  and  creeping  *ave 
scattering  by  the  elliptic  cylinder. 


SOURCE 

LOCATION 


ir«  <04 — Geometry  of  creeping  wave  scattering, 
XRF{S)  *  9  ♦  $  «W) 


Xl(l)  ♦  9  x?{?)  ♦  z  XII3) 


METHOD 


A  uniform  Geometrical  Theory  of  Diffraction  solution [6]  is 
used  to  compute  the  reflected  and  diffracted  fields  of  a  source 
in  the  presence  of  the  curved  surface  of  an  elliptic  cylinder. 

In  a  given  observation  direction  the  solution  contains  two  terms. 

In  the  lit  region  the  solution  is  composed  of  a  reflected  field 
and  the  dominant  creeping  wave  field,  as  illustrated  in  Figure 
103.  In  the  shadow  region  the  solution  is  composed  of  a  clockwise 
and  a  counterclockwise  creeping  wave  field,  as  illustrated  in  Fig¬ 
ure  104.  The  reflected  field  and  creeping  wave  fields  are  modified 
versions  of  the  usual  GTD  solution,  that  is,  they  are  obtained 
from  a  uniform  solution  that  is  valid  at  the  shadow  boundaries 
(tangent  point  vector  regions)  and  that  goes  to  the  geometrical 
optics  solution  in  the  deep  lit  region  and  the  usual  creeping  wave 
solution  in  the  deep  shadow  region.  The  solution  is  presented 
in  Reference  6  and  on  pages  112-113  of  Reference  1.  The  phases 
of  the  reflected  and  creeping  wave  (or  transition)  fields  are  re¬ 
ferred  to  the  reference  coordinate  system  origin.  The  fields  are 
combined  and  the  total  field  scattered  by  the  cylinder  is  given  by 

-jkR 

ES  =  Wm(ET8  +  EP$)  , 

e-jkR 

where  the  factor  —  and  the  source  weight  (W  )  are  added  else¬ 
where  in  the  code. 
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FLOW  DIAGRAM 


SCTCYL  (ET.EP.ERT.ERP) 


OUTPUT  VARIABLES 

£T  theta  component  of  cylinder  scattered 
field  in  RCS 

ER  phi  component  of  cylinder  scattered 
field  in  RCS 

ERT  t|ieta  component  of  geometrical  optics 
reflected  field 

ERP  phi  component  of  geometrical  optics 
reflected  field 


source  illuminate  cylinder?^>— No — 


Specify  tangent  vectors 


Loop  through  two  tangent  vectors 


Calculate  ALR,  the  propagation 
direction  phi  angle  in  tan  point 
coordinate  system 


Is  ^ 
ALR  a*(graz1ng 
_ _ incidence)? _ 


AIR  >n(creeping 
wave)?  - 


Compute  geometrical  optics  reflected  fields 
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a  i»  'fn/iTn'fWiittnfiin  m 


Calculate  Incident  field 
pattern  factor 


Calculete  total  cylinder  fields 


SYMBOL  DICTIONARY 

ALK  PHI  ANGLfc  DEFINING  RADIATION  DIRECTION  IN 
TAN  POINT  COORDINATE  SYSTEM  (2-D) 

ALRS  DIFFERENCE  BETWEEN  ALS  AND  ALR 
ALS  PHI  ANGLE  DEFINING  DIRECTION  OF  RAY  FROM  RCS 
ONI  >IN  TO  SOURCE  IN  TANGENT  POINT  COORD.  SYS 
AS  ANGLE  BETWEEN  CREEPING  WAVE  PATH  ON  CYL  AND  LINE 
PARALLEL  TO  Z  AXIS 

BX  1  X, Y,Z  COMPONENTS  OF  POLARIZATION  UNIT  VECTOR 

BY  >  OF  SOFT  COMPONENT  OF  FIELD  INCIDENT  ON  CYL  (PARALLEL 

BZ  J  TO  CYL  SURFACE  AND  NORMAL  TO  INC  RAY  PROP  DIR) 

CF  COMPLEX  PHASE  AND  RAY  SPREADING  COEFFICIENT 
CFH  HARD  TRANSITION  FIELD  COEFFICIENT 

CFS  SOFT  TRANSITION  FIELD  COEFFICIENT 

CSAS  DOT  PRODUCT  O.-  CYLINDER  TANGENT  UNIT  VECTOR 
AND  VECTOR  FROM  ORIGIN  TO  SOURCE 
D  PROPAGATION  DIRECTION  UNIT  VECTOR  FOR  RAY 

SCATTERED  FROM  CYL  IN  (X,Y,Z)  RCS  COMPONENTS 
DEPH  PHI  COMPONENT  OF  TRANSITION  FIELD  IN  RCS 
DETH  THE1A  COMPONENT  OF  TRANSITION  FIELD  IN  RCS 
DHIT  DISTANCE  FROM  SOURCE  TO  HIT  POINT  (FROM  PLAINT) 

DI  X, Y,Z  COMPONENTS  OF  UNIT  VECTOR  OF  PROPAGATION 
DIRECTION  OF  RAY  INCIDENT  ON  CYLINDER 
£F  PATTERN  FACTOR  FOR  THETA  COMPONENT  OF 
INCIDENT  FIELD  IN  RCS 

EG  PATTERN  FACTOR  FOR  PHI  COMPONENT  CF 
INCIDENT  FIELD  PATTERN  FACTOR  IN  RCS 
EHP  PHI  COMPONENT  OF  HARD  COMPONENT  OF 

FIELD  INCIDENT  ON  CYL  OR  CREEPING  WAVE  FIELD  IN  RCS 
EHT  THETA  COMPONENT  OF  HARD  COMPONENT  OF 

FIELD  INCIDENT  ON  CYL  OR  CREEPING  WAVE  FIELD  IN  RCS 

EIX  T 

EIY  >  X, Y,Z  COMPONENTS  OF  INCIDENT  FIELD  PATTERN  FACTOR 
EIZ  J 

EP  PHI  COMPONENT  OF  CYLINDER  E  FIELD  WITH 
PHASE  REFERRED  TO  RCS  ORIGIN 
EH  DOT  PRODUCT  OF  UNIT  VECTOR  TANGENT  TO 

CYLINDER  AND  THE  PROPAGATION  DIR.  UNIT  VECTOR 
ERP  PHI  COMPONENT  OF  0.0.  REFLECTED  FIELD 
ERT  THETA  COMPONENT  OF  G.O.  REFLECTED  FIELD 
ESP  PHI  COMPONENT  OF  SOFT  COUPON  BIT  OF 

FIELD  INCIDENT  ON  CYL  OR  CREEPING  WAVE  FIELD  IN  RCS 
E5T  THETA  COMPONENT  OF  SOFT  COMPONENT  OF 

FIELD  INCIDENT  ON  CYL  OR  CREEPING  WAVE  FIELD  IN  RCS 
ET  THETA  COMPONENT  OF  CYLINDER  E  FIELD  WITH 
PHASE  REFERRED  TO  RCS  ORIGIN 
FI  PARAMETER  USED  IN  TRANSITION  FUNCTION 
GM  VARIABLE  USED  IN  TRANSITION  FUNCTION 
I  VARIABLE  USED  TO  STEP  THROUGH  TANGENT  POINTS 

IC  INDEX  VARIABLE 

LHIT  SET  TRUE  IF  RAY  HITS  A  PLATE  (FROM  PLAINT) 

LTRF  (RETURNED  FROM  RPLRCL)  SET  TRUE  IF  0.0. 

CYLINDER  REFLECTED  FIELD  DOES  NOT  EXIST 
PHIR  PHI  COMPONENT  OF  PROPAGATION  DIRECTION  OF 
RAY  INCIDENT  ON  CYLINDER 

ROF  RADIUS  OF  CURV  OF  CYL  AT  POINT  XRF  IN  X-Y  PLANE 

HOI  RADIUS  OF  CURV  OF  CYL  AT  INC  RAY  POINT  ON  CYL  IN  XY 

PLANE 

S  LENGTH  OF  VECTOR  FROM  SOURCE  TO  TAN  POINT  <2  OR  3-D) 
SINA  DOT  PRODUCT  OF  CYL  UNIT  NORMAL  AND  CYL  SCATTERED 
HAY  PROPAGATION  DIRECTION  UNIT  VECTOR 
SKWIO  PARAMETER  USED  IN  TRANSITION  FUNCTION 
SNAS  DOT  PRODUCT  OF  CYL  UNIT  NORMAL  AND  VECTOR  FROM 
ORIGIN  TO  SOURCE 

THJk  THETA  COMPONENT  OF  PROPAGATION  DIRECTION 
CF  HAY  INCIDENT  CN  CYLINDER 


TTRM  PARAMETER  USED  IN  TRANSITION  FUNCTION 

TXI  \  X  AND  Y  COMPONENTS  OF  UNIT  VECTOR  OF  RAY  FROM  SOURCE 

TYI  J  1ANGENT  TO  TAN  POINT  I  OF  ELL  CYL  (2-0) 

TX2  \  X  AND  Y  COMPONENTS  OF  UNIT  VECTOR  OF  RAY  FORM  SOURCE 
TY2  J  TANGENT  TO  TAN  POINT  2  OF  ELL  CYL  (2-0) 

UB  X.Y  COMPONENTS  OF  UNIT  VECTOR  TAN  TO  CYL  AT 

TAN  POINT  (2-D) 

UN  X,Y  COMPONENTS  OF  UNIT  NORMAL  TO  CYL  AT  TAN  POINT  (2-0) 
VD  COMPUTATIONAL  VARIABLE 

VDP  COMPUTATIONAL  VARIABLE 

VI  ELL.  ANCLE  USED  TO  DEFINE  TANGENT  POINTS  (2-D) 

VL  ELL  ANGLE  DEFINING  POINT  NHERE .CREEPING  NAVE 
MEETS  CYLINDER 

VU  ELL  ANGLE  DEFINING  POINT  NHERE  CREEPING  NAVE 
LEAVES  CYLINDER 

XD  X, Y,Z  COMPONENTS  OF  DIRECTION  OF  RAY  FROM 
YD  SOURCE  TO  CYLINDER  TANGENT  POINT  (INCIDENT 
ZD  RAY  FOR  CREEPING  AND  GRAZING  INC.  CASES) 

XI\ 

YI  f  X, Y,Z  COMPONENTS  OF  POINT  NHERE  INCIDENT  CREEPING 
ZI  J  NAVE  (OR  GRAZING  NAVE)  MEETS  CYLINDER 
XPP  X.Y.Z  COMPONENTS  OF  POINT  NHERE  RAY  LEAVES  CYLINDER 

XRF  X.Y.Z  COMPONENTS  OF  POINT  NHERE  CREEPING  NAVE  LEAVES 

CYLINDER 

XX  PARAMETER  USED  IN  TRANSITION  FUNCTION 

XXS  PARAMETER  USED  IN  TRANSITION  FUNCTION 

XXX  PARAMETER  USED  IN  TRANSITION  FUNCTION 


CODE  LISTING 


I 

2 

SUBROUTINE  SCTCYL<ET,EP,ERT,ERP) 

<4> 

2  till 

4  Cl !! 

b  cm 

GTD  SCATTERED  FIELD  OF  AN  ELLIPTIC  CYLINDER 

1 

6 

COMPLEX  CJ  ,CPI  4 ,  CF ,CFH ,CFS ,F I , PFUN ,OFUN 

1 

7 

COMPLEX  El X,EI Y, EIZ.EIPH ,EITH, ET.EP, ERT, ERP 

«» 

b 

COMPLEX  REF , ESTH .ESPH, EHTH, EHPH, DETH ,DEPH, EF.EG 

V 

COMPLEX  EST,ESP,EHT,EHP 

-T* 

10 

DIMENSION  VI <2 ) , ER(2 ) ,UN (2 ) , UB<2 ),DI (3 ) , XRF(3) 

LOGICAL  LH I T, LTRF , LDEBUC ,LTEST, LRFC, LH FCT 

( 

{ 

t 

III 

12 

COMMOU/GEOMEL/A,  B,  ZC<2 ).  SNC<2)  ,CNC(2  ),CTC(2 ) 

13 

COKMON/SOR INF/XS ( 3 ) , VXS( 3, 3 ) 

14 

COMMON/PI  S/P  I  ,TP  I ,  DPR,  RPD 

1 

lb 

COMMON/GTD/AS, ID,SAS,SASP,CAS 

1 

16 

COMMON/D I R/D ( 3 ) . TH  SR , PHSR, SP  S, CPS, STHS ,CTHS 

COMMON/COM  P/C J ,C  P 1 4 

m* 

n 

lb 

COMMON/ENDSCL/DTS , VTS ( 2 ) , BTS (4 > 

l 

IV 

20 

COMMOH/FUDG/REF , ESTH , ESP  H, EHTH , EHPH, XR ( 3  > , RG ,RHO 1 , DL,LTRF 
COMMON/T E5T/LDEBUG, LTEST 

4 

21 

COMM ON/CLRFC /LRFC 

22 

EXTERNAL  FCT 

23 

ET«(0.,0.) 

T 

24 

EP»(0. ,0. ) 

| 

2b 

ERT-(0.,0. ) 

4* 

20 

ERP"(O.,0. ) 

2‘i  Cl  !! 

CAN  SOURCE  ILLUMINATE  CYLINDER  SURFACE? 

7 

2b 

IFIDTS.LT. -1 »5)  GO  TO  909 

2V  Clll 

SPECIFY  TANGENT  VECTORS 

i 

30 

TXI«BTS< 1) 

31 

T.YI-BTS(2) 

32 

TX2-BTS13) 

r 

33 

TY2-BTSU) 

1 

34 

EH(t )»TXI*CPS4TYI*SPS 

ib 

ER(2 )-TX2*CPS*TY2*SPS 

36  Clll 

LOOP  THRU  TANGENT  VECTORS 

37 

I-l 

T 

% 

3b 

LRFCT-. FALSE. 

* 

2V 

VKI)-VTS(l) 

«* 

40 

VI  (2  )«*VTS(2> 

41 

IF(LDEBUC)  WRITE (0,900) 

V 

42  V00 

FORMAT!/,'  DEBUGGING  SCTCYL  SUBROUTINE') 

43  2 

CONTINUE 

1 

44 

CALL  NANDB<UN,UB,VI(D) 

4b 

SINA-UN( 1  )*CPS«-UN(2)*SPS 

T 

46  Cl  11 

47  Clll 

CALCULATE  ALR,  THE  PROPAGATION  DIRECTION  PHI  ANGLE 

IN  TAN  POINT  COORDINATE  SYSTEM. 

1 

48 

ALR-BTAN2(SINA,-ERU>> 

4V 

IFtALR.LT.G. )  ALR-ALR^TPI 

60  Clll 

IF  GRAZING  INCIDENCE  IS  PRESENT.  SKIP  TO  APPROPRIATE  SECTION 

61 

IFCABS(PI-ALR) «LT. 0.0085 )  GO  TO  5 

f 

62  CM! 

IF  ALH  IS  O.T.  THAN  PI,  COMPUTE  CREEPING  WAVE  TERMS 

I 

* 

63 

IF(ALR.GT.PI)  GO  TO  10 

64  Cl t! 

IF  ALR  .LE.  PI.  COUPUTE  C.O.  RAY  PATH  AND  FIELD 

bb  cut 

COMPONENTS 

tf 

bo 

CALL  REFCYLC ERT, ERP) 

< 

57 

IF (LTRF)  GO  TO  1 

58 

SNAS-U1H  1 >*XS( 1 )*UN(2)*XS(2) 

bV 

10*2*1-1 

60 

CS AS -BTS ( I C ) *XS (1 ) *0TS ( J C* 1)  *X  S<  2 > 

? 

61 

ALS-BTAN2 ( SNAS ,-CSAS ) 

f 

62 

ALRS-ALR-ALS 

** 

03  Cl  11 

IS  REFLECTION  TO  8(|  HANDLED  WITH  OTHER  TAN  VECTOR? 

04 

IF(ABS(ALHS)  ,LT. (1.0085,  AND. I. E0.2)  GOTO  I 

1* 

65 

IF(ALHS.LE.-0.(«85)  GO  TO  1 

r 

06 

0M«(PI*RG)**(l./3.) 
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iaisjafe  jaiaiSSteliSfoX  >  t-tei 


ii;  >  ■--■  vUja'-'M  rslT.  -■■- ; 


07  HHS-HH0I*DL/(DL-RH01> 

Ob  SKWI G»-ABS ( 2  «*TP I*HHS/GM  A3M ) 

OV  CF«-SQRTC-2./PI/SKHIG)*CPI  4*REF 

7  c  CFKJF»CEXP(-CJ*SKWrG*S:<^IG*SKtt!G/l2.  > 

I I  TtRM-SKhlG/GF 

72  XX*PI*(DL*RH£)«TTRM*7TRM 

7-  C! ! t  SPECIFY  HARD  AND  SOFT  COMPONENTS  OF  FIELD 

74  CHI  INCIDENT  ON  CYLINDER  (FROM  REFCYL) 

7b  EST-ESTH 

7o  ESP-ESPH 

77  EHT-EHTH 

7b  EHP-EHPH 

7v  GO  TO  SO 

80  10  CONTINUE 

bl  IF(LHFCT)  LRFC*. FALSE. 

b2  LHFCT*.THUE. 

83  Ull  COMPUTE  CREEPING  WAVE  TERMS  IF  ALR  .GT.  PI 

84  cut  COMPUTE  INC  IDE  ITT  RAY  TANGENT  POINT 

85  XI-A*CO£(VI<in 

80  YI«B*SIN(Vr<I)J 

87  XI5»XI-XSM> 

68  YI)»YI-X£(2) 

bV  S-SORTtXD*XD*YD*YD> 

vw  ZI«S*CTHS/STFS*XS<3) 

VI  CM!  IS  TANGENT  POINT  OFF  OF  FINITE  CYLINDER? 

V2  IF(ZI.G7.ZC( l)4XI*CTC( I). OR. 

VS  2ZI.LT.ZC(2)4XI*CTC(2J)  GO  TO  I 

V4  ZD«ZI-XS(3) 

V5  PHIH“ETAN2(YD,XD) 

Vo  THIR«B7AN2 (?«ZD> 

V7  S«SQHT(  e.*S*ZD*ZD) 

vt  oi  <  i  )-xi:/s 

VV  DI (2 )»YD/S 

Ifcb  Ol(.V*ZO/S 

1C  1  CM!  DOES  INCIDENT  MAY  HIT  PLATE  BEFORE  CYLIKDER7 

102  CALL  PLAINT! XS.OI ,OHIT,v*»LHn) 

103  IF  (LHIT.  AND.  <OHIT.LT .S I )  GO  TO  I 

ID*  CM!  CALCULATE  INCIDENT  FIELD  PATTERN  FACTOR 

Ifcb  CALL  SOURCEtEF.EG.CIX.EIY.SIZ.THlR.PHIR.VXS) 

Ifco  IMLOEBUG)  M<ITE(0,*>  EF.EG 

It 7  CM!  PERFORM  CHEEPING  NAVE  COMPUTATION’S 

108  IF(I.EO.I)  VD"BTAN2(-U*CPS, A*SP5 ) 

IUV  IMI.EQ.2)  VD-BTAN2(B*CPS,-A*SPS> 

lib  VDP"VD-VI(M 

III  IFtVOP.OT.PIJ  VD^VDP-TPI 

112  IFIVDP.LT.-PI)  VDP-VDP*Tf>I 

I  IS  IF  1 1  .EQ.2I  GO  TO  20 

1 1 4  IFIVDP.LT.0. )  GO  TO  I 

115  VL-VKM 

He  VU-VDP4VKI) 

117  CO  TO  25 

118  20  CONTINUE 

IIV  IF( VUP.G7.0. )  GO  TO  I 

120  VL"VDP*VIM) 

121  VU-VIM) 

I <2  25  CONTINUE 

I2S  CALL  FfCAfiOlSKtUfi.AS.VL.VIII 

I  £  4  XRFt  I  l»A*s:OStVOI 

125  XRF(2)*fc«SINtVUj 

!2o  I  D«  J 

•27  CALL  UCU2<VL.VU.F'CT,SS) 

128  SS-SS/SAS 

12V  XkFtSI«Zl4SS*CTMS 

ISO  CM!  OCES  NAY  HIT  PLATE  AFTER  LEAVING  CYLI8f>€P? 

IS  I  CALL  PLAINT!  JRF.PjDH IT, i'.LNITI 

U2  IF<LHIT)  GO  TO  I 
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133  CALL  RADCVlfiOI  ,RTt  VI  (I  )> 

134  CALL  HALCV ( RCF , ST, VO ) 

135  OMM»(PI*»I*HGI*>?GF>**{t./0.) 

136  CF  «-GU4*CP  1 4*C  EX  P  ( -C  J*TP  l  *  1  S*SS ))/  PI  /SORT!  2 .  *S ) 

133  CM  I  COMPUTE  PHASE  TERM 

I3ti  CP«CF*CEXP<CJ*TPI*UHF<I>*0(  »)4XRF(2)*0C2>4X«F<3)*D(3))> 

13V  TTRM-SKMG/GMM 

Uk)  XX-PL>*S*TTNa*TTRM 

14  1  BX— UNC2)*DI<3) 

U2  B¥>UtJ(l)*Dl(2) 

143  hZ*UM12)*Dl< ll-ONl I )*OI<2> 

144  ESP«<a.,G. ) 

145  EHT-10.,0. J 

140  CM!  COMPUTE  HARO  AND  SOFT  CREEPING  WAVE  COMPONENTS 
143  EHP-EIX*UN<  n*EIY*l!NC2> 

U8  EST-EIX*BX4EIY*BY4EIZ*3Z 

14V  IF(l.EQ.I)  E!P*-EHP 

I5u  IHI.E0.2)  EST— FST 

15  I  3 ki  CONTINUE 

152  GMl  COMPUTE  1HE  TRANSITION  FIELD 

153  XXS*SUK1(TPI*XX) 

154  XXX-SQHT<2.*XX/P1> 

155  CALL  FHNELS1  CCC, SSS, XXXI 

150  FI"CW>LXIH.5-CCC,SSS-C.5) 

153  FI«XXS*FI*CEXP(CJ*(.54PUXX)) 

I5«  FI*-FI/SKWIG/SQRT(2.) 

15V  SCTP-S0RT{2.*PI) 

lOU  CFH“CF*(  FI  ♦SQTP*GFUN  ( SKN  IG ) ) 

lot  CFS»CF*(FI ♦SQTP*PFUH( SXWIG1 ) 

162  DcPH-CFH*HHP4CFS*ESP 

1 63  UETH»CFH*EHV*CFS*E3T 

1 04  CO  TO  0 

165  5  CONTINUE 

ito  CM!  COMPUTE  GRAZING  INCIDENCE  TRANSITION  FIELD 

toi  CM!  DOES  WAY  HIT  PLATE? 

loa  CALL  PLAINT!  XS.U.DFIT.O.LMT) 

10V  IF1LHIT1  GO  TO  I 

130  SGN— SIGN!  I..SlNtALft>> 

131  CM!  CALCULATE  INCIDENT  POINT 

172  XI-A*COS<VI(IM 

13-  YI«B*SI!HVI(  II) 

1.4  xu«xt-xsm 

175  YU«Yl-XSt2 1 

!36  S»SQNT I XD*XD*YO*  YD  I 

1 33  Z!-S*CThS/STKS4XS<  3) 

I7M  CM!  IS  POINT  OF  CRAZING  INCIDENCE  OFF  OF  FINITE  CYLIWE3? 
13V  !FtZI.GT.ZCM>*XI»CTCM).OR. 

I6C  22I.LT.2Ct2>4XI*CTC(2))  GO  TO  I 
IB!  ZO"2t-XEt3  > 

162  S«S0RrtE4S*ZD*Z0J 

164  CALL  RACCV 1RGI «RT. VI  CHI 

164  GM«CP!*RC! )**•(. /3.) 

ib5  CII!  CALCULATE  INCIDENT  FIELD  PATTERN  FACTOR 
180  CALL  SOURCE! Ef. SO,EU*Sl  Y.KIZ.THS8  ,Pt<SR,VX$) 

16?  C!!!  CALCULATE  PHASE  TEHM 

166  CF*CEX3CCJ*TPUlXS(M*0(  IJ*XS121*0t2)*XS(3l*0<3M» 

16V  9X*-I3H2)*Dii> 

ivo  6Y»UN( I 

IV  I  B2*UNC2»*OM  MMI*  ?»0<2l 

IV3  CM!  CALCULATE  HARD  A -31  SOFT  COMiKWQiTS  Cf  IKCICSVT  FIELD 
IV4  EHF«etX»tD.M  l*EJ  Y«IFtt<3! 

iv*  Esr«fe!*4fx»UY*iv*eiz»Ri: 

IV5  IFU.EO.l?  glP»-EHP 

l Vo  IFU.E0.2i  S3T*-£ST 

IV?  CFIH»CM*CPI  <*CFU»U>.  )/SOfiT«  P!  *S1 

iva  CFS^«cPM*PFUNr«».}/5ni!TfP»*S) 


ivv  Cl  It 

2k.O 
201 
202  0 
202  cm 

204 

2Ut> 

20C 
207 
20b 
20V 
210 
211  1 
212 

21 J  V0V 

214 

2lb 

21b  VI0 
217 
21b 
21V 
220 


CALCULATE  TOTAL  GRAZING  INCIDENCE  HELD 
DETH-(0.b*E);*SUN-C>'S4EST)*CE 
DEPH«(0.5#EG*SGN-CFIt*£HP>*CF 
CONTINUE 

CALCULATE  TOTAL  CYL1NDEH  FIELDS 

EP-EP+DfcPH 

ET-ET^DETH 

IKLDEBUC)  hkJTE(6,*)  I ,  SKMC,  >X ,FI  ,0 
IF(LDEBUG)  MflTEIb,*)  CFH.CFS 
IF(LDEBUG)  WHITE (b,*>  EHT.EST 
IFILDEBUG)  WRITElb,*)  EHP.ESP 
IF(LDEBUG)  HRITE<6.*>  OETH.OEPM 
1-1*1 

lHl.Lc.2)  CO  TO  3 
CONTINUE 

I F ( . NOT . LTEST 1  HETUHN 
WHITE16, VI U) 

FOHNATJ/.'  TESTING  SCTCYL  SUBROUTINE ') 

WHITEtb,*)  ET.EP 

ftHITElb.*)  ERT.ERP 

RETURN 

END 


SOURCE 


PURPOSE 

To  compute  the  source  field  pattern  factor  for  radiation  In  a  given 
direction  from  the  source. 

PERTINENT  GEOMETRY 


Figure  107 — I 1 lustration  of  one  diaensional  source  (dipole) 
Note  -  one  diaensional  source  always  along  zp  axis 


V^APERTURE 

SOURCE 


METHOD 


The  source  distribution  Is  given  as  follows 

r  ' \ 


KO 

line  source:  K  f  a  ^ 

«»p) 


m 


v  y 


c°s  ^  y°  v-riv? 


aperture  source: 


J<vV 

wvV 


*  < 


cos 


”p  u  -HAW  ^  HAW 

-r  yp'°-_r  iV  ^ 


-H  H 


where  xp,  yp,  zp  are  unit  vectors  of  the  source  coordinate  systems 

ip  =  x  VAX(1 ,1)  ♦  y  VAX(1,2)  ♦  2  VAX(1,3) 
yp  =  i  VAX{2,1)  ♦  y  VAX(2,2)  -  z  VAX(2,3) 
zp  -  x  VAX (3*1)  +  y  VAX(3,2)  +  z  VAX(3,3). 


The  far-zone  electric  field  is  given  by 


-jits' 


E<  W  *  EoFz(8p,F.(VV  S' 


where  for  an  electric  source. 


®p  ^  |  H,  line  source 
0^  JU M  HIM ,  aperture  source 

PI  B 

and  for  a  aagnetic  source, 

f~*p  »  *■  H,  Hoe  source 


HAW,  aperture  source 


and  where 


sin0  cos(nH  cos0  ) 

F  (ft  )  = - B - I _ 2L 

? p' 


(1-4H2  cos20p) 


1  .line  source 

FX(0P^O)  =  A 

p  p  sin(ir  HAW  sin0  cos<f>  ) 

J - rWsTnep  cos/  -  aperture  source . 

r  r 

Note  that  all  diagrams  and  formulae  on  this  and  the  preceeding  paqe  refer 
to  the  source  coordinate  system.  The  subroutine  returns  the  field  com¬ 
ponents  in  the  reference  coordinate  system. 

The  far-zone  E-field  radiated  by  the  source  is  then  given  in  the 
reference  coordinate  system  by 


-  p-jkR 

E(r,0,<J>)  =  Wm(FARF0+FARG4>)  £— 


or 


_  A  A  A  ^  “  jkR 

E(x,y,z)  =  Wm(EIX  x  +  EIY  y  +  EIZ  z) 

_  j|<r 

Note  that  the  factor  —  and  the  source  weights  (W  =1  ,K  ,J  ,  or  M  ) 
are  not  included  in  subroutine  SOURCE,  but  are  addedmel5e  w?ler@  in  th? 

code.  Note  also  that  the  interpolation  fields  are  not  fully  imple¬ 
mented  in  this  version  of  the  code. 


FLOW  DIAGRAM 


If  fields  are  to  be  calculated  If  fields  are  to  be  computed 

from  source  current  distribution:  from  E  and  H  plane  data  taken 
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SYMBOL  DICTIONARY 


AWFAC  PATTERN  FACTOR  (FX)  OF  SOURCE  FIELD  DUE  TO  XP 
DIMENSION  OF  APERTURE 
BF  INTERPOLATION  VARIABLE 

CPHP  COSINE  OF  PHP 

CTHP  COSINE  OF  THP 

EFD  INTERPOLATED  E  FIELD 

EFED  E  PLANE  SOURCE  FIELD  PATTERN  MEASURED  VALUES 
EX  COMPUTATIONAL  VARIABLE 

EX  I  PATTERN  FACTOR  F2 

F  DOT  PRODUCT  OF  THETA  UNIT  POLARIZATION  VECTOR  OF 

SOURCE  COORD  SYS  AND  THETA  UNIT  VECTOR  OF  RCS 
FW  ARGUMENT  OF  PATTERN  FACTOR  FX 

G  DOT  PRODUCT  OF  THETA  UNIT  POLARIZATION  VECTOR  OF 
SOURCE  COORD  SYS  AND  PHI  UNIT  VECTOR  OF  RCS 
HFD  INTERPOLATED  H  FIELD 

HFED  H  PLANE  SOURCE  PATTERN  MEASURED  VALUES 

IT  INTERPOLATION  VARIABLE 

PHP  PHI  COMPONENT  OF  RADIATION  DIRECTION  IN 

SOURCE  COORDINATE  SYSTEM 

PHSK  PHI  COMPONENT  OF  RADIATION  DIRECTION  IN  RCS 
KDX  DOT  PRODUCT  OF  RADIATION  DIRECTION  AND  XP  AXIS 
UNIT  VECTOR 

RDY  DOT  PRODUCT  OF  RADIATION  DIRECTION  AND  YP  AXIS 
UNH  VECTOR 
SPHP  SINE  OF  PHP 

THP  THETA  COMPONENT  OF  RADIATION  DIRECTION  IN 
SOURCE  COORDINATE  SYSTEM 

THSR  THETA  COMPONENT  OF  RADIATION  DIRECTION  IN  RCS 
VAX  X, Y,Z  COMPONENTS  DEFINING  AXES  OF  SOURCE 
(OR  SOURCE  IMAGE)  COORDINATE  SYSTEM 
XTH  /  X,Y,Z  COMPONENTS  OF  THE  THETA  POLARIZATION 
YTH  >  UNIT  VECTOR  OF  THE  RAY  IN  THE  SOURCE  COORDINATE 
ZTH\  SY  SI  EM  (IN  RCS  COMPONENTS) 
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CODE  LISTING 


1  c — - - - - 

2  SUBROUTINE  SOURCE(FARF,FAHG,EIX,EIY,EI2,1HSR,PHSR,VAX) 

3  Cl  ! ! 

4ciil  SOURCE  FIELD 
5  c !  !  1 

0  COMPLEX  EX, EIX,EIY,EIZ,FARF,FARG 

7  COMPLEX  EFED(  1  ),HFED(  1  >,EFD,HFD 

8  DIMENSION  VAX(3,3) 

V  LOGICAL  LSOR 

10  COMMON/FARP/IM.H.HAW 

■1 1  COMMON/PIS/PI,  TPI,  DPR,  RPD 

12  COMMON/SOURSF/FACTOR 

13  COMMQN/rEDDAT/EFED ,HFED 

14  CTHS  =C  OS  ( THS  R ) 

15  STHS=SIN(THSR) 

io  CPHS*COS(PHSR) 

17  SPHS=*SII<(  PHSR) 

18  Cill  TAKE  DOT  PRODUCTS  OF  THE  RADIATION  DIRECTION  UNIT 
IV  Cill  VECTOR  AND  SOURCE  COORD  SYS  (PRIMED) AXES 

20  CHS  UNIT  VECTORS  TO  OBTAIN  TUP  AND  PHP  (PROPAGATION 

21  Cll!  ANGLES  IN  THE  SOURCE  COORD  SYSTEM) 

22  CTHP=VAX(3, 1 )*CPHS*STHS+VAX(3,2)*SPHS*STHS+VAX(3,3)*CTHS 

23  RDX“VAX( 1 , 1 )*CPHS*STHS+VAX( I ,2 )*SPHS*STHS+VAX( 1 ,3)*CTHS 

24  RL)Y=VAX(2, 1 )*CPHS*STHS+VAX(2 ,2)*SPKS*STHS+VAX(2,3)*CTH5 

25  STHP»SQRT(  RDX*RDX+RDY*RDY) 

20  CPHP=RDX/STHP 

27  SPHP«RD\/STHP 

28  Cll!  CALCULATE  THETA  POLARIZATION  UNIT  VECTOR  FOR  !AY 
2V  Cll!  IN  SOURCE  CCCRD  SYS  AND  REPRESENT  WITH  X,Y,Z 

30  Cll!  COMPONENTS  IN  THE  REFERENCE  COORDINATE  SYSTEM 
3  1  XTH=»VAX<  1, 1  )*CPHP*CTHP+VAX(2 ,1  )*SPHP*CTHP-VAX(3, 1  >*STHP 

32  YTH=VAX( 1 ,2)*CPHP*CTHP+V AX (2,2 )*SPHP*CTHP-VAX( 3, 2)*STHP 

33  ZTH*VAX( 1 , 3 ) *CPHP*CTHP+V  AX (2 ,3 )*SPHP*CTHP-V AX( 3, 3)*STKP 

34  Cll!  TRANSFORM  THETA  POLARIZATION  UNIT  VECTOR  TO 

35  cm  RCS  COMPONENTS 

3o  F«XTH*CTHS*CPHS+YTH*CTHS*SPHS-ZTH*STHS 

37  G=~XTH*SPHS+YTH*CPHS 

38  IFUM.E0.3)  CO  TO  10 

3V  Cll!  CALCULATE  FIELDS  USING  COSINE  TAPERED  LINE  SOURCE 

40  Cll!  (OR  APERTURE  SOURCE  WITH  COSINE  TAPER  IN  ZP  DIRECTION 

41  Cll!  AND  UNIFORM  DISTRIBUTION  IN  THE  XP  DIRECTION) 

42  EXUSTIIP 

43  ACTHP*AbS(CTHP) 

44  I F ( ABS( ACTHP-.5/H) .LT. 1 . E-5)  GO  TO  5 

45  EX  1 «2 . *H*STHP*COS ( PI *H*CTHP ) /( 1 .-4 .*H*H*CTHP*CTHP) 

40  GO  TO  6 

47  5  EX1  =  .25*PI*S0RT(4.*H*H-I  .) 

48  C  CONTINUE 

4V  AWFAC=I .0 


50  IF(HAW.LT.0. 1)  GO  TO  7 

51  FW=PI*HAW*STtiP*CPHP 

52  IF( ABS(FW) .LT. 1 .E-05)  FW=I .E-05 

53  AWFAC=HAW*SIN(FW)/FW 

54  7  EXI»EXI*ANFAC 

55  EX=CMPLX(0. , EX  I *F ACTOR ) 

5o  FARF=F*EX*O0. 

57  FARG=G*EX*60. 

58  cm  USE  DUALITY  FOR  .MAGNETIC  CURRENT  SOURCE 

5V  IFUM.EG.l  )FARO=-F*EX/TPI 

00  IF(IM.EO.nFARF=G*EX/TPI 

0  1  GO  TO  20 

02  10  CONTINUE 

o3  Cll!  CALCULATE  FIELDS  BY  INTERPOLATION  E  AND  ll-PLANE  DATA 

04  cm  (Taken  externahy)  to  the  given  radiation  direction 
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05  CTH'F  *SPHP*  STHP 

66  BF  <  PH  P*C  PH  P*STH  P*STHP +CTH  P*CTHP 

67  STHF=SOHT( BF ) 

68  THF*DPR*BTAM2 ( STHF ,CTHF ) 

6V  ITF-THF 

71 i  IT-ITF+I 

7  I  EFD«EFEO ( I  T>  +( EFED ( I T+ 1 5 -EFED<  IT )  >  *<Tf  !F-  ITF  > 

72  HFD»HFED(IT)+(HFED(IT+t)-HFED(m)*(T!iF-lTF> 

73  IF(ABS(BF).LT. I.E-3)  GOTO  15 

74  EX=EFD*CPHP*CPHP*STHP*STHP+HFD*CIHP*CTHP 

75  EX=EX/BF 

70  GO  TO  16 

77  15  EX=EFD 

78  10  CONTINUE 

7V  FARG=-F*EX 

80  FARF«G*EX 

81  20  CONTINUE 

82  CM!  COMPUTE  X, Y,Z  COMPONENTS  OF  SOURCE  PATTERN  FACTOR 

83  EIX-FARF*CTHS*CPHS-FARG*SPHS 

84  El Y"FARF*CTHS*SPHS*FARG*CPHS 

85  EIZ«-FARF*STHS 

86  RETURN 

87  END 
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PURPOSE 

To  compute  the  normal  derivative,  jjj-  ,  of  the  Incident  field  pat¬ 
tern  factor  for  source  ray  Incident  on  a  given  edge  (to  be  used  In  slope 
diffraction  computation). 

PERTINENT  GEOMETRY 


^0  A 


DIFFRACTING 

“EDGE 


Figure  109— Geometry  of  source  field  Incident  on  plate  edge. 


1ETH0D 


fhere 


The  slope  field  is  given  as  follows: 

1  3 _ rl 

3n  "s'  s1n0Q  3$0 


sine  cos(uH  cose  )  s1n(ir  HAW  s1ne„  cos$  )  -jks' 


l 


For  electric  source 

(s  in  I  H  .line  source 
|eP  tr  m 

0  1  2  in  o  HAW  H  ,  aperture  source 

-jits' 

V  =  e0  Fz(ep)Fx(ep»V  “s1  3  E0p  Gp 


sine„  cos(uH  cose  ) 

f  (9 )  = — z-p-r-r 

z  p'  (i  .  4HZcos^9p) 


-JL  .  {l(l-4H2cos29  ){cosepcos(uH  cosep)  + 
39p  H 


sin26pnH  sin(irH  cosep)] 


♦  [-8H2  cosepsin20p  cos(irH  cos0p)  ]}  ^  _  4/cos2e  )2 
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sin(u  HAW  s1n0Dcos$p) 
Fx  =  it  HAW  s1n0pCOS$p 


3F« 

=  COt0n 
36p  P 


sin(ir  HAW  sine  cos*)  ' 
cos(tt  HAW  sinepcos4.p)  -  ,  M  s1n0pcos*p 


3* 


=  tan* 


s1n(ir  HAW  s1ne_cos<t>J  , 

_ . — E - B_  .  cos(ir  HAW  sin0_cos<|>  ) 

7i  HAW  sinepcos4>p  v  P  P 


30 


wn  s  'sinVo'  6P 


3<b_  sing.  -  /v 

_ &  =  _  . ,  t-^-OP  a  •* 

34>n  sine  \ 


30_  r*  A  A 

-  sing  L4>„»Q_  VI 
3<j>o  p0p^o  p 


AAA 


cotep  V*p  *p] 


3*o 


A 


sing  «  -  * 

7fHT^VVpp 


A 


Pp  =  sinep  VI  +  cosep  ep 

0p  =  x  XTH  +  y  YTH  +  z  ZTH 

I  =  x  XPH  +  y  YPH  +  z  ZPH 
?P 
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combining. 


8E1  _  jnH  } 
3n  ~  u 


0  e 
PP 


3F 


1  Ol  A  A  A  A 

-4-5-  F  4l6„  -  cote F  F  a  a 
sin6_  z  3i  Tp  p  p  x  zTpTp 


1  *-0ks' 


J  s 


X"  * 


The  slope  fields  for  a  magnetic  source  are  derived  in  a  similar 
manner  yielding 


3T 

3n 


i  .  J  Km  U  f  a  ^  A3F  3F  V  a 

-  *  4  H  { ry«nj  VL  ViV  -  WP  Fx  +  F*  iyVp  • 


sin6.. 


3F  A  A 

F  <fc  A  + 

2  3<J>p  Vp 


cot6pFxF^pep 


•jks' 


a?1 

The  normal  derivative  of  the  Incident  field,  ,  is  returned  in  com¬ 
ponents  perpendicular  and  parallel  to  the  edge  (referred  to  as  hard 
and  soft  components): 


Acoustically  Acoustically 

hard  case  soft  case 

afi  f  a  1  p-Jks 

§-  •  MEIPRP  *0 +  EIPLP  eopj 

A’ jkS' 

Note  that  the  factors  g  ■  ,  along  with  the  source  weights  (Wm=Iro, 

K  ,  or  MJ  are  added  elsewhere  in  the  code, 
m’  m’  m 
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FLOW  DIAGRAM 
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SYMBOL  DICTIONARY 


ACT  tiP  ABSOLUTE  VALUE  OF  CTHP 

AkC  ARGUMENT  OF  FX 

BOP  X.Y.Z  COMPONENTS  OF  BETA  POLARIZATION  UNIT 

VECTOR  FOH  kAY  INCIDENT  ON  EDGE  (EDGE-CENTERED 
COORD  SYS) 

CPHP  COS(PHP) 

CTHP  COS(THP) 

El  COMPUTATIONAL  VARIABLE 

E2  COMPUTATIONAL  VARIABLE 

EA  COMPUTATIONAL  VARIABLE 

EB  COMPUTATIONAL  VARIABLE 

EFA  PARTIAL  DERIVATIVE  OF  FZ  WITH  THP 
EFb  FZ  DIVIDED  BY  SIN(THP) 

EFC  PARTIAL  OF  FX  WITH  THP  DIVIDED  BY  COT(THP) 

EFD  PARTIAL  OF  FX  WITH  PHP 

EFE  FX  TIMES  HAW 

EFF  PARTIAL  OF  FP  NITH  THP 

EIPLP  SOFT  COMPONENT  OF  THE  SLOPE  FIELDS 

EIPkP  HARD  COMPONENT  OF  THE  SLOPE  FIELDS 

PHO  X.Y.Z  COMPONENTS  OF  PHI  POLARIZATION  UNIT  VECTOR 
FOR  RAY  INCIDENT  ON  EDCE  (EDGE-CENTERED  COORD  SYS) 
PHP  PHI  COMPONENT  OF  PROPAGATION  DIRECTION  IN  SOURCE 
COORD  SYS 

PPBO  DOT  PRODUCT  OF  PHI  POL  UNIT  VECTOR  OF  SOURCE  CCORD 
SYS  AND  BETA  POL  UNIT  VECTOR  OF  EDGE-CENTERED 
COORD  SYS 

PPHO  DOT  PRODUCT  OF  THE  PHI  POLARIZATION  UNIT  VECTOR 
OF  THE  SOURCE  CCORD  SYS  AND  THE  PHI  UNIT 
POLARIZATION  VECTOR  OF  THE  EDGE-CENTERED 
unc  tvcrcu 

RDX  DOT  PRCOUCt'oF  VI  AND  XP  AXIS  UNIT  VECTOR 
ROY  DOT  PRODUCT  OF  VI  AND  YP  AXIS  UNIT  VECTOR 
SN  SIGN  OF  CGS(TKP) 

SNAKU  SINt  ARGl/ARG 
SPK?  SIN (PHP) 

STHP  SIN (THP) 

THP  THETA  COMPONENT  Or  THE  PROPAGATION  DIRECTION  If:  THE 
SOURCE  COORDINATE  SYSTEM 

TP80  DOT  PRODUCT  OF  THE  THETA  POLARIZATION  UNIT  VECTOR 
OF  THE  SOURCE  COORDINATE  SYSTEM  AND  THE  BETA 
POLARIZATION  UNIT  VECTOR  OF  THE  EDGE -CENTS  RED 
COORDINATE  SYSTEM 

TPHO  DOT  PRODUCT  CF  THE  TWIT*  POLARIZATION  UNIT 

VECTOR  OF  THE  SOURCE  COORDINATE  SYS7FN  AND  THE 
PHI  POLARIZATION  UNIT  VECTOR  OF  THE  EDGE -CENTERED 
COORDINATE  SYSTEM 

VI  X.Y.Z  COMPONENTS  OF  THE  RAY  PROPAGATION 
DIRECTION  IN  RCS 

XPHT  X.Y.Z  COMPONENTS  OF  THE  PHI  UNIT  POLARIZATION 
YPH  Y  VECTOR  OF  THE  FIELD  IN  THE  SOURCE  CCCROIN*TF 
ZPH  J  SYSTEM  IN  CCS  COMPONENTS 

XTH  \  X.Y.Z  COMPCM-NTS  OF  THE  THETA  UNIT  POLARIZATION 
YTH  >  VECTOR  OF  THE  FIELD  IN  THE  SOURCE  CCCSDSHATE 
ZlH  )  SYSTEM  IN  RCS  COMPONENTS 
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CODE  LISTING 


2  SUBROUTINE  SCURCPI El PRP, El PLP« VI , PNC, BOP, VAX ) 
iC!l! 

4  till  INCIDENT  SLOPE  FIELD 

V  CIU 

6  COHPUX  EIPRP.E1PLP 

7  DIMENSION’  VI  (3  > , PHO<3>  ,B0P<3) 

8  DIMENSION  VAXC3.35 

V  LOGICAL  LSOft 

ID  COMMOfi/FAHP/IM  ,H,HAM 

Jl  COMMON/PI  S/P  I, TP  I, OPR.RPO 

12  COSWUII/SCURSF/KACTCR 

13  C! II  TAKE  DOT  PRODUCTS  Of  VI  AND  PRIMED  AXES  TO  OBTAIN  THE  SINE 

14  CII!  AND  COSINE  OF  THP  AND  PHP 

15  HOX»VI( l)*VAXt I , I )4VI(2)*VAX( I ,2 )*VI (3)*VAX< 1,3) 

lo  RDY»VI<  IJ4VAXI2,  ^♦VI(2J*VAXC^,2)♦V1(3>*VAX^2,3) 

17  CTHP»VJ { I  )*VAX(3 ,1  I*VI  t2>*VAX<3.2)*VI<3)*VAXO,3> 

IK  STHP«smmROX*SOX^RDY*flUY) 

IV  CPHP-HDX/STHP 

20  SPHP-HDY/STHP 

21  C! 5!  CALCUALTE  DILTA  AND  PH!  POL.  UNIT  VECTORS  FOR  RAY 

22  C!M  IN  SOURCE  CPCRD  SYS  (IN  RCS  COMPONENTS! 

23  XYH»VAXC  I,  t)*CPf!P*CTHP*VAX(2.l  >*SP?'P«CTHP-VAX(3,  l)*STHP 

24  YTH»VAXCI*2>*CPHP*CTHP*VAXt2,2>*SPHP4CTKP-VAXt3,2>*$THP 

2t>  2TH*VAX(I,3)*CPKP«CTHP*VAX{2,3>4SPI{P*CTKP-VAX(3,3)*STHP 

2o  *PH«-SPf'.P*VAX( I , I )*CPHP4 VAX<  2, 1 ) 

27  YPrt»-SPHP*VAXt  l,2)*CPHa'*VAXt  2,2) 

28  2PH«-SPHP*VAX(  l,3)*CPH?»*VAX{2.2) 

2V  cm  CALCULATE  SLOPS  INCIDENT  FIO.DS 
30  EA*COS(  P I  *K*C7KP  > 

3  I  EO-P I  *H«STHP*STHP*SI  N(  PI  *!I*CTHP ) 

32  ACTHP-A6StCTHP> 

33  IPUSSCACTHP-.S/ID.IT.  I.E-S)  00  TO  5 

34  E I  -  I  .-4  .  *{f*H*CTHP*CTHP 

35  E2»l .-4.*H*H«f2.-CTHP*CTHPl 

3o  Eh A»C£2*?A*C7HP/cl ♦E8I/E I 

37  ErS-SA/t I 

38  GO  TO  o 

3V  V  Sfi«SIC?H  I..CTHP! 

40  EFA»Sff®(  PI  ♦<>. •«•**?{  t/  I6./H 

*1  eF5»Pt/4. 

42  t  COST  ifiCE 

4j  CM!  COMPUTE  POT  PRODUCTS  Or  SAY  POLARIZATION*  UNIT  VECTORS 

44  cm  AND  UNIT  VICTORS  PARALLEL  AND  MESPSKOICVUR  TO  sOuE 

45  TMffl*XTK*PKOll  J*¥TH»SH0t21*2TH*f*NKJ) 

4ft  TP80*XTM»S0P<  t  l*m*SC?t2)427H*85P(3> 

«f  PPH0-«3tPH*Pl  an  >*YPK*PW3t2!*2P,i*«P>3?U) 

4fe  PP8C*XPH*80Ptl  )*mJ*33P(2»42P«*8C»'(3) 

4  v  EFO»a. 


SC  LFC*<5. 

SI  &&>!.<* 

V2  IrlMA^.LT.O.  11  GOTO  s» 

53  AMC»Pf  •MA«*$1Mi‘«CPHP 

54  if(auS(a«5i.i.t.i .§-«»$>» 

VS  SNAK'5*SI!i<  AM^l/ASS 

VO  £FC*-!iA**  I  COS  ( Afro  I-S2JAMO! 

V?  iFCASJICPHPl.LT.  CPWP-IF-^ 

VS  gf  o  S?tc9/€f4«  ?*H* ;» ( JTAi.*T-c0S  I  AfrC  1 1 

vv 

th  t  Vfr’KT.’P^'^fC 

*i  iMi«.sa.M  a-  r-r  tp 

&2  IX l«* >!^’^Tsw?o»C7^*EFE*SF$*sP3a>;*?J30 

ft.'-  '♦*< 

*4  fcS . •c*o-<iL *< a*  ,E*t  »*$.?. *2*c?cs? 
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05  EIPi.P«-2.*H*C:‘PLX(0.  .EX2  )*60.*fA CTO# 

do  HE7UMM 

67  It)  CONTINUE 

OH  £XI*hrF*TPHO*°PHO*KFR*St-r>*PPHO*PPHO»CTl!r*EF!:*cFH*P£>‘<0*7P>lO 

ov  EX2*eFF*TPHO*PP!ltHHFE*FFn*PPIiO^PPBO-C;i:P*ErE*[-:Fn*OF«'>TPSO 

7u  £lPhP»2.*H*CKPLX(0..ai)*rACT0n/TPl 

71  EIPLP«2.*H^:i1>U^.,EX2)*fACTO»/TPI 

72  HETUNN 

7i  END 
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TANG 

PURPOSE 

To  compute  vectors  from  a  source  that  are  tangent  to  the  cylinder 
in  the  x-y  plane. 

PERTINENT  GEOMETRY 


X 


Figure  U0--6eo»etry  of  source  vectors  tangent  to  the 
cylinder  in  the  x-y  plane. 

XTj  *  x  A  eos{ VT( 1 ) )  ♦  y  8  sin(VT(l)} 

IT?  =  s  A  cos{VT{*))  ♦  y  8  s»n(VT(2)) 

f,  *  x  BT(i)  ♦  y  6T(2) 

?,  *  i  8T{3)  ♦  y  8T(A) 


METHOD 

The  unit  tangent  vectors  are  determined  by  solving  a  set  of 
equations  found  by  setting  the  incident  vector  from  the  source  equal 
to  the  general  unit  tangent  vector  to  the  elliptic  surface.  Details 
are  given  in  pages  90-93  in  Reference  1. 


FLOW  DIAGRAM 
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SYMBOL  DICTIONARY 


AA  DISTANCE  FROM  SOURCE  TO  TANGENT  POINT 

AL  COMPUTATIONAL  VARIABLE 

BB  DISTANCE  FROM  ORIGIN  TO  TANGENT  POINT 

BET  COMPUTATIONAL  VARIABLE 

BT  X  AND  V  COMPONENTS  OF  TANGENT  UNIT  VECTORS  IN  REF  COORD  SYS. 
CV  COSINE  OF  TANGENT  POINT  ELL  ANGLE 

CVF  COSINE  OF  VE 

DT  DOT  PhODUCT  OF  UNIT  VECTORS  OF  THE  TWO  SOURCE 
RAYS  TANGENT  TO  THE  CYLINDER  (2-D) 

DV1  ANGLE  VI  IN  DEGREES 

DV2  ANGLE  V2  IN  DEGREES 

Ei  •  ERROR  DETECTION  VARIABLE 

E2  ERROR  DETECTION  VARIABLE 

RHOE  DISTANCE  FROM  Z  AXIS  TO  POINT  WHERE  RAY  FROM  ORIGIN  TO 
SOURCE  INTERSECTS  THE  CYLINDER 
RHOS  DISTANCE  FROM  SOURCE  TO  Z  AXIS 

SV  SINE  OF  TANGENT  POINT  ELL  ANGLE 

SVE  SINE  OF  VE 

SX  X  COMPONENT  OF  RAY  FROM  TANGENT  POINT  TO  SOURCE 

SY  Y  COMPONENT  OF  RAY,  FROM  TANGENT  POINT  TO  SOURCE 

TIX  X  COMPONENT  OF  TANGENT  RAY  UNIT  VECTOR  (TAM  POINT  #2) 

T1Y  Y  COMPONENT  OF  TANGENT  RAY  UNIT  VECTOR  (TAN  POINT  #2) 

T2X  X  COMPONENT  OF  TANGENT  RAY  UNIT  VECTOR  (TAN  POINT  #1) 

T2Y  Y  COMPONENT  OF  TANGENT  RAY  UNIT  VECTOR  (TAN  POINT  #1) 

VI  ELL  ANGLE  DEFINING  TANGENT  POINT  *2 

V2  ELL  ANGLE  DEFINING  TANGENT  POINT  #1 

VE  ELL  ANGLE  OF  RAY  FROM  ORIGIN  TO  SOURCE 
VT  ELL  ANGLE  DEFINING  TANGENT  POINT  LOCATION  IN  ERC3 
YC  VHIRfF  r  nCAYTON 

XT  X-COMPONENT  OF  TANGENT  POINT  LOCATION 

YT  Y-COMPONENT  OF  TANGENT  POINT  LOCATION 

XY  COMPUTATIONAL  VARIABLE 


CODE  LISTING 


1  c — 

2 

j  U!! 
4  CM! 
b  CM! 
0 
7 
b 
V 

10  CM! 

1 1 
1 2 

13 

14 
lb 
16 

17  C!  ! ! 

18  CM! 
IV 

20  10 
21 
22 

23 

24 
2b 
20 
27 
2b 

2  V  20 
40 

31 

32 

33  C!  !! 

34 

3b 

56 

37 

58 

39 

40 
4) 

42 

45 
44 
4b 

46  C!  !! 

47 

48 
4  V 
b0 
b  I 
b2 
b3 
b4 
bb 
bo 
b7 
b8 

bV  CM! 
00 
ol 
62 
03 
64 

ob 

00 


SUBROUTINE  TANGC DT,VT,BT,XS) 

COMPUTES  TANGENT  VECTORS  TO  ELLIPTIC  CYLINDER  FROM  SOURCE 

DIMENSION  VTC2),8T(4),XSC3> 

COMM ON/PIS/PI, TPI , DPR, RPD 

COMMON/GEOME \J  A ,  B ,  ZC 12  > .  SNC  C  2  > ,  CNC  ( 2  ) .  CTCC  2 ) 

RHOS=SORT(XS( I >*XS< 1 7+XSC2  )*XSC2  )> 

CAN  SOURCE  ILLUMINATE  CYLINDER  SURFACE? 

Ir'IRHOS. GT. A. AND. RHOS.GT.B)  GO  TO  20 
I F  C  RHOS . LT . A . AND . RHOS. LT . B )  GO  TO  10 
VE*BTAN2(A*XS<2> ,B*XSC I ) ) 

CVE=»COS(  VE) 

SVE=SIN( VE) 

RHOE=SOkT  C  A*  A*C V  E*C V  E+  B*  B*  SV  E*  SV  E ) 

IF  SOURCE  CANNOT  ILLUMINATE  CYLINDER,  SET  ANGLES 

TO  ZERO,  SET  FUG,  AND  RETURN 

I F ( RHOS . GE . RHOE )  CO  TO  20 

CONTINUE 

DT*-2 . 

VT C I )=0. 

VT(2 )=0. 

BTC  I >«0. 

BT  (2  )*0. 

BTC3I-0. 

BTC4 )=0. 

RETURN 

CONTINUE 

XY=B*B*XSC I >*XSC I ) +A*A*X  SC 2 ) *XS  ( 2 ) 

AL*A*A*L*B/XY 

BET=SG  RT  C  X  Y-  /  *  A*  B*  B ) /X Y 

CALCULATE  TAN  ANGLE  AflD  TAM  UNIT  VECTOR  FOR  TAN  POINT  02 
XT~AL*X5( I )+A*A*8ET*XS(2) 

YT=AL*XSC2)-B*B*BET*XS<  I  ) 

"]=.  !,'N2(A*YT,B*XT) 

'U*  '  N<  V  I ) 

CV=*CUS(VI  ) 

SX=XS( l)-A*CV 
SY=XSC2)-B*SV 
AA*SQRT( SX*5X+SY*SY) 

EB= SQRTC  A*  A*  S V*S  V+  B*8*CV  *C V ) 

EI=SGRTC (SX/AA+A*SV/BB>**2+(SY/AA-B*CV/tB>**2> 

Tl X= A*SV/BB 
Tl Y«-B*CV/BB 

CALCULATE  TAN  ANGLE  AMD  TAN  UNI7  VECTOR  FOR  TAM  POINT  #1 
XT=*AL*XS<  I  )-/*A*BET*XS(2  ) 

YT»AL*XS(2 )  +  E*B*BET*XS(  I  ) 

V2=8TAN2(A*YT,B*XT) 

SV»SINCV2> 

CVCOS  <V2) 

SX»XS( I )-A*CV 
SY»XS(2)-B*SV 
AA=SQRT<  SX*SX+SY*SY> 

BB*SORT(  A*  A*  SV  *S  V+ B*B*CV  *C  V ) 

E2=SORT((SX/AA-A*SV/BB)**2+<SY/AA+B*CV/BR>**2> 

T2X=-A*SV/BB 

T2Y=B*CV/0B 

TAKE  DOT  PRODUCT  OF  TANGENT  UNIT  VECTORS 

DT=T I X*T2  X+T I Y*T2 Y 

DV  I  =V  I  *DPH 

DV2=V2*DPR 

VTC I )=V2 

VTC2I-VI 

BTC  I )=T2X 

BT(2)=T2Y 
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67  BT(3)*T1X 

08  BT<4  )=«T!  Y 

OV  IFCE1.GT.I .E-5)WHITE<6,I )DV1 ,El 

70  IF(E2.GT . 1 .E-5)feRITE<6, i )DV2 ,E2 

71  I  FORMAT < 1H  , "ERROR  IK  TANGE MT  SECTION*  '.2F10.5) 

72  RETURN 

73  END 
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CHAPTER  V 
COMMON  BLOCK 


This  chapter  defines  the  variables  used  in  common  blocks, 
blocks  are  arranged  in  alphabetical  order. 


The 
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CUHtfUh  BNDUCL - 

THIS  COMMON  BLOCK  CONTAINS  INFORMATION  CONCERNING  THE  STARTING 
POINT  PARAMETERS  AND  BOUNDS  FOR  TRACING  A  RAY  DIFFRACTED  FROM 
A  PLATE  EDGE  AND  THEN  REFLECTED  FROM  THE  CYLINDER.  THE 
INFORMATION  IS  GENERATED  IN  SUBROUTINE  GEOMPC  AND  IS  USED 
IN  SUtROUTINE  DPLRCL. 

VDC(U»6)  THIS  ARkAY  CONTAINS  THE  ELLIPTIC  ANGLE  VDC(MP.ME) 

DEFINING  THE  STARTING  REFLECTION  POINT  ON  THE  CYLINDER 
FOR  A  RAY  DIFFRACTED  FROM  EDGE  ME  OF  PLATE  MP 
AND  THEM  REFLECTED  BY  THE  CYLINDER 
UUC (2 )  THIS  ARRAY  CONTAINS  THE  LINEAR  VALUE  UDC(N)  DEFINING 
THE  Z  COMPONENT  OF  THE  STARTING  REFLECTION  POINTS  ON 
THE  CYLINDER  AXIS.  tlDC(I)  IS  FOR  THE  MOST  POSITIVE 
Z  LOCATION  AND  UD<2)  IS  FOR  THE  MOST  NEGATIVE  Z  LOCATION. 
POCR( 14,6,2)  THIS  ARRAY  CONTAINS  ANGLES  PDCR(MP,ME,N)  DEFINING  THE 
PHI  COMPONENT  OF  THE  REFL  RAY  DIRECTION  OF  RAYS  DIF  BY  EDGE 
ME  OF  PLATE  MP  AND  THEN  REFLECTED  AT  STARTING  POINT 
N  ON  THE  CYLINDER 

TDCh< 14,0,2)  THIS  ARRAY  CONTAINS  ANGLES  TDCR(MP.ME.N)  DEFINING  THE 
REFL  RAY  THETA  COMPONENT  OF  RAY  DIRECTIONS  FOR  RAYS  DIF  BY 
EDGE  ME  OF  PLATE  MP  AND  THEN  REFLECTED  BY  STARTING  REFLECTION 
POINT  N  ON  THE  CYLINDER. 

DTUC( 14,0  DOT  PRODUCT  OF  UNIT  VECTORS  OF  RAYS  DIFFRACTED 

BY  EDGE  ME  OF  PLATE  MP  AND  REFLECTED  BY  THE  PREFERRED 
STARTING  POINT  ON  THE  CYLINDER 
BTDCI l<  ,6«4)  THIS  ARRAY  CONTAINS  VARIABLES  DEFINING  THE 

VECTORS  HAVING  BEEN  DIFFRACTED  BY  THE  CORNER  OF  EDGE 
ME  OF  PLATE  MP  FURTHEST  FROM  THE  CYLINDER  WHICH  ARE 
TANGENT  TO  THE  CYLINDER. 

THE  TWO  TANGENT  VECTORS  ARE  GIVEN  BY« 

TJ  =  a* BTDC  ( M  P ,  M  E .  I ) +?;* BTDC  ( M P,  ME  ,2  ) 

T2“X*BTDC (MP , ME , 3 )+?*BTDC ( MP,  ME ,4 ) 

ODC( I 4,o,2)  THIS  ARRAY  CONTAINS  THE  COSINE  OF  THE  STARTING 
REFLECTED  HAY  THETA  ANGLE,  WHERE 

DDC  ( M P ,  ME , N  >  »C0  SC  TDCR ( M P , ME . N  ) ) 

COMMON  BNDFCL  - 

THIS  COMMON  BLOCK  IS  GENERATED  IN  SUBROUTINE  GEOM  AND  IS  USED 
TO  SPECIFY  THE  PERMISSAELE  RANGE  OF  DIFFRACTION  ANGLES  FOR 
SOURUL  RAYS  DIFFRACTED  FY  A  PLATE  EDGE. 

OIH  U,o,2)  THIS  DEFINES  PERMISSAPLE  THETA  DIFFRACTION 
ANGLES  FOR  LEDGE  DIFFRACTION 

THE  PEKMISSABLE  RANGE  FOR  DIFFRACTION  ANGLE  B  FOR  A  SOURCE 
RAY  DIFFRACTED  BY  EDGE  ME  OF  PLATE  MP  IS  GIVEN  BY» 

COSCBI )<C0S(B«)<C0S(B2) 

WHERE  BO  IS  THE  ANGLE  THE  DIFFRACTED  RAY  'LAKES  WITH 
THE  EDGE,  AND  B!  AND  B2  ARE  DEFINED  AT  THE  CORNERS  OF 
THE  PLATE  AS 

C0S(B1 )«BD(MP,ME,I > 

COS(  B2  )«BD(MP,  ME  .2  1  • 


COMMON  BNUICL  - 

THIS  COMMON  BLOCK  CONTAINS  INFORMATION  RELATED  TO  VECTORS 
REFLECTED  FROM',  PLATES  WHICH  ARE  TANGENT  TO  THE  CYLINDER. 
THE  U/TA  IS  GENERATED  IN  GEOMPC, 

DTI(U)  THIS  IS  THE  DOT  PRODUCT  OF  THE  TWO  RAYS  REFLECTED 
BY  PLATE  M1P  WHICH  ARE  TANGENT  TO  THE  CYLINDER 
THE  CYLINDER  FROM  THE  SOURCE  I MfAGE  FOR  REFLECTION 


FROM.  PLATE  kPL  _ 

DTl(M(P)-Tl«T2 

VTKI4.2)  THIS  IS  AH  ARRAY  OF  ELLIPTICAL  ANCLES  DEFINING 

THE  TWO  TANGENT  POINTS  ON  THE  CYL  FOR  RAYS  WHICH  ARE 
REFLECTED  FROM  PLATE  MB  AND  TANGENT  TO  THE  CYLINDER. 
TANGENT  POINT  N  FOR  RAY  REFLECTED  FROM  PLATE 
Al«E  GIVEN  BY  J 
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X=A+CCS(VTI<MP,Nn 
Y*  B*S  1 N  (  VT I  ( MP  ,N ) ) 

dTKN.,4)  THIS  DBF  l  HES  UNIT  VECTORS  OF  THE  TWO  RAYS  REFLECTED 
BY  PLATE  HP  AND  TANGENT  TO  THE  CYLINDER. 

THE  UNIT  VECTOR  FOR  THE  SOURCE  RAY  REFLECTED  FROM 
PLATE  MP  TANGENT  TO  TAN  POINT  I  IS 
GIVEN  J!Y« 

n=T*B'Jl(MPJ  )+?*BTIC<P,2) 

VIE  UNIT  VECTOR  FOR  THE  SOURCE  RAY  REFLECTED  FROM 
PLATE  MP  TANGENT  TO  TAN  POINT  2 
IS  GIVEN  BY « 

T2=X*BTI (MP,3)+Y*BTI(MP,4) 


COMMON  BNDRCL  - 

THIS  CbiYif.iOI;  BLOCK  CONTAINS  INFORMATION  CONCERNING  THE 
STARTING  PARAMETERS  AND  BOUNDS  FOR  RAYS  REFLECTED  FROM  THE 
CYLINDER  AND  THEM  DIFFRACTED  FROM  A  PLATE  EOOF.  THE  INFORMATION 
IS  GENERATED  IN  SUBROUTINE  GEOMPC  AND  IS  USED  IN  SUBROUTINE  RCLDPL. 
VCD( I  4,6)  THIS  ARRAY  CCNTAINS  THE  ELLIPTIC  ANGLE  VCD(MP,MC) 

THAT  DEFINES  THE  X,Y  COMPONENTS  OF  THE  DEFLECTION 
POINT  LOCATION  FOR  THE  RAY  WHICH  IS  REFLECTED  BY 
THE  CYLINDER  AND  HITS  CORNER  MC  OF  PLATE  VP. 

UCD (14,0)  THIS  ARRAY  CONTAINS  THE  LINEAR  VALUE  UCD(MP.MC) 

THAI  DEFINES  THE  2  COMPONENT  OF  THE  REFLECTION  POINT 
FOR  THE  PAY  THAT  IS  REFLECTED  BY  THE  CYLINDER  AND 
HUS  CORNER  MC  OF  PLATE  MP. 

THE  REFLECTION  POINT  LOCATION  IS  GIVEN  BY 
X*A*COS(VCD(MP,ME) ) 

Y=B*COS( VCD ( MP, MC  J ) 

Z^UDCCAP,  MC ) 

BCD!  U, 6,2)  -THIS  ARRaY  CONTAINS  THE  VALUE  BCD(MP.ME.N) 

THAT  DEFINES  THE  PERM! SSABLE  RANGE  OF  THE  BETA 
DIFFRACTION  ANGLES  FOR  THE  RAY  THAT  IS  REFL  BY  THE 
CYLINDER  AND  DIFFRACTED  BY  EDGE  ME  OF  PLATE  MP. 

THE  PERM  I SSABLE  RANGE  FOR  DIFFRACTION  ANGLE  BO  FOR 
THIS  RAY  IS  GIVEN  BY* 

COSIBI ) <COS(BO> <C0S(B2 ) 

WHEmE  BO  IS  THE  ANGLE  THE  DIFFRACTED  RAY  MAKES  WITH 
THE  EDGE  AND  ANGLES  B!  AND  B2  ARE  DEFINED  AT  THE 
COMERS  OF  THE  PLATE  AS* 

COSdil  )«BCD(KP,ME,  I ) 

C0SUi2)»BCD(MP,ME,2> 


COMi».cN  BND5CL - 

THIS  CO I. MON  BLOCK  CONTAINS  INFORMATION  RELATED  TO  VECTORS 
FROM  THE  SOURCE  THAT  ARE  TANGENT  TO  THE  CYLINDER. 

THE  D/1  A  IS  GENERATED  IN  SUBROUTINE  GEOMC 
NTS  THIS  IS  THE  DOT  PRODUCT  OF  THE  TWO  SOURCE  VECTORS 
TANGENT  TO  THE  CYLINDER* 

DTS=TI  T2 

VTS<2)  VTS  CONSISTS  OF  TWO  ELLIPTICAL  ANGLES  DEFINING  THE 
TWO  TANGENT  POINTS  ON  THE  CYLINDER. 

TANGENT  POINT  N  IS  GIVEN  BY* 

X»A*COt(VTS(N>) 

Y»B*SIN< VTS<N) > 

UTS (4;  THIS  DEFINES  UNIT  VECTORS  OF  THE  TWO  SOURCE 
RAYS  TANGENT  TO  THE  CYLINDER. 

THE  UNIT  VECTOR  FOR  THE  SOURCE  RAY  TANGENT  TO 
TAM  POINT  I  IS  GIVEN  BY* 

TVx*BU<  !  !Vr*BTS<2  ) 

THE  UNIT  VECTOR  FOR  THE  SOURCE  RAY  TANGENT  TO 
TAN  PD-iNl  2  IS  GIVEN  BY* 

T2*a*F3  S  <  J ) ♦Y*6TS ( 4 ) 


**PTS(. 


OOMON  - - — — - 

TUI ^  CUV-UJu  liLOCK  IS  GENERATED  IN  SUGHOUTINE  OEO»4PC  AND  IS 


OScL)  'iO  SPECIFY  THE  BRANCH  CUT  DISPLACEMENT  ANGLE  FOR  THE 
PLATE-CYLINDER  HEFLECTED-DIFFRACTED  AMD  DIFFRACTED- 
REFLLCTEU  TERMS. 

PHWi<( 14,6)  IS  THE  PHI  ANGLE  LOCATION  OF  THE  CENTER  OF  EDGE 
ME  CF  PLATE  MP,  KITH  RESPECT  TO  THE. CYLINDER 

COHlUf.  CLDRC - 

THIS  COMMON  BLOCK  CONTAINS  AN  ARRAY  OF  VARIABLES  WHICH 
ARE  GENERATED  IN  MAIN  AND  SUBROUTINE  DPLRCL  AND  ARE 
PASSED  THROUGH  A  SUBROUTINE  WINDOW  TO  SUBROUTINE  DFRPPT 
WHERE  THEY  ARE  USED 

LDRCI 14 ,o )  IS  AN  ARRAY  OF  LOGICAL  VARIABLES. 

LDRC(MP.ME)  IS  SET  TRUE  IF  STARTING  POINT  DATA  IS 
AVAILABLE  FROM  PREVIOUS  PATTERN  ANGLE  (FOR  NEXT 
PATTERN  ANGLE)  WHEN  DEFINING  THE  REFLECTION  POINT  ON 
CYLINDER  FOR  A  RAY  WHICH  IS  DIFFRACTED  FROM  EDGE  ME  OF 
PLATE  MP  AND  THEN  REFLECTED  BY  THE  CYLINDER 

COMMON  CLRDC  - 

THIS  COMMON  BLOCK  CONTAINS  AN  ARRAY  OF  VARIABLES  WHICH 
ARE  GENERATED  IN  MAIN  AND  SUBROUTINE  RCLDPL  AND  ARE  PASSED 
THROUGH  A  SUBROUTINE  WINDOW  TO  SUBROUTINE  RFDFPT,  WHERE  THEY 
ARE  USED 

LkDC(l4,o)  IS  AN  ARRAY  OF  LOGICAL  VARIABLES. 

LRDC(MP,ME)  IS  SET  TRUE  IF  STARTING  POINT  DATA  IS 
AVAILABLE  FROM  PREVIOUS  PATTERN  ANGLE  (FOR  NEXT 
PATTERN  ANGLE)  WHEN  DEFINING  THE  REFLECTION  POINT  ON 
CYLINDER  FOR  A  RAY  WHICH  IS  REFLECTED  BY  THE  CYLINDER 
AND  THEN  DIFFRACTED  BY  EDGE  ME  OF  PLATE  MP 

COAMOI  CL  RFC  - 

THIS  COMMON  BLOCK  CONTAINS  ONE  VARIABLE  WHICH  IS  GENERATED 
IN  MAIN  AND  SUBROUTINE  REFCYL  AND  IS  PASSED  THROUGH 
A  SUBROUTINE  WINDOW  TO  SUBROUTINE  RFPTCL,  WHERE  IT  IS  USED 
LKFC  IS  A  LOGICAL  VARIABLE  WHICH  IS  SET  TRUE  IF  THE  STARTING 
POINT  DATA  IS  AVAILABLE  FROM  PREVIOUS  PATTERN  ANGLE 
<i-Ok  NEXT  PATTERN  ANGLE)  WHEN  DEFINING  THE  REFLECTION 
POINT  ON  THE  CYLINDER 

COMMON  CLRFI  - 

THIS  COMMON  BLOCK  CONTAINS  AN  ARRAY  OF  VARIABLES  WHICH  ARE 
GENER/TED  IN  MAIN  AND  SUBROUTINE  RPLRCL  AND  ARE  PASSED 
THROUGH  a  SUBROUTINE  WINDOW  TO  SUBROUTINE  RFPTCL,  WHERE 
THEY  /RE  USED 

LRFKI4)  IS  AN  ARRAY  OF  LOGICAL  VARIABLES.  LRFKMP)  IS  SET  TRUE  IF 
STARTING  POINT  DATA  IS  AVAILABLE  FROM  PREVIOUS 
PATTERN  ANGLE  (FOR  NEXT  PATTERN  ANGLE)  WHEN  DEFINING 
REFLECTION  POINT  ON  THE  CYLINDER  FOR  A  RAY  REFLECTED 
BY  PLATE  MR  AND  THEN  REFLECTED  BY  THE  CYLINDER 

COMMON  CL NFS  - 

THIS  COMMON  BLOCK  CONTAINS  AN  ARRAY  OF  VARIABLES  WHICH  IS  GENERATED 
IN  MAIN  AND  SUBROUTINE  RCLRPL  AND  IS  PASSED  THROUGH  A 
SUBROUTINE  WINDOW  TO  SUBROUTINE  RFPTCL,  WHERE  IT  IS  USED. 

LKFS(U)  IS  AN  ARRAY  OF  LOGICAL  VARIABLES'. 

LKrS(MP)  IS  SET  TRUE  IF  STARTING  POINT  DATA  IS  AVAILABLE 
FOR  THE  NEXT  PATTERN  ANGLE  WHEN  DEFINING  THE  REFLECTION 
POINT  ON  A  CYLINDER  FOR  A  RAY  REFLECTED  BY  THE 
CYLINDER  AND  THEN  REFLECTED  BY  PLATE  MP. 

COMMON  COMP  — - - - 

THIS  COMMON  BLOCK  CONTAINS  TWO  CONSTANTS  USED  THROUGHOUT 
HIE  PROOkAI 

CJ  THE  IMAGINARY  CONSTANT,  J  (-SORT(-D) 

CPU  THE  COMPLEX  CONSTANT,  CEXP(-J*PI/4) 
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cmuioh  dir  - 

THIS  COM, .lot;  BLOC.;  CONTAINS  INFORMATION  SPECIFYING  THE  DIRECTION  OF 
PROPAGATION  (THE  DESIRED  OBSERVATION  DIRECTION). 

THE  INFORMATION  IS  COMPUTED  IN  THE  MAIN  PROGRAM 
DC)  THE  UNIT  VECTOR  OF  THE  PROPAGATION  DIRECTION  IN 
CXYZ)  REFERENCE  COORDINATE  SYSTEM  COMPONENTS! 

D=1?*D  ( I  )  +?*D  ( 2 )  +t* D  ( 3 ) 

THSk  THETA  ANCLE  DEFINING  PROPAGATION  DIRECTION  IN  SPHERICAL  REFERENCE 
COORDINATE  SYSTEM  (MEASURED  FROM  Z-AXIS)  IN  RADIANS 
PUSH  PHI  ANCLE  DEFINING  PROPAGATION  DIRECTION  IN  SPHERICAL  REFERENCE 
COORDINATE  SYSTEM  (MEASURED  FROM  X-AXIS)  IN  RADIANS 
SPS  THE  SINE  OF  PH SR 

CPS  THE  COSINE  OF  PHSR 

STHS  THE  SINE  OF  THSR 

CTHS  THE  COSINE  CF  THSR 

COMMON  DOUELE  - 

THIS  COMMON  BLOCK  CONTAINS  INFORMATION  DEFINING  ANGLES  WHERE 
DOUELE  DIFFRACTION  TERMS  WOULD  BE  SIGNIFICANT  (SHADOW 
BOUNDARIES  FOR  SINGLE  DIFFRACTED  RAYS) 

IDDUol)  THIS  INTEGER  IDENTIFIES  WHICH  EDGE  THE  FIRST 

DIFFRACTION  OCCURS  FROM  AND  WHICH  PLATE  SHADOWS  IT 
FOR  A  GIVEN  PATTERN  ANGLE,  II 

ILK  U,o)  THIS  INTEGER  ARRAY  IS  USED  TO  STORE  THE  PLATE  THAT 
SHADOWS  THE  RAY  DIFFRACTED  FROM  EDGE  ME  OF  PLATE 
MP  (ID(ME.MP)). 

II  THIS  INTEGER  VARIABLE  IDENTIFIES  THE  OBSERVATION 
ANGLE  UNDER  CONSIDERATION 


CO/.  MOL  HD  MAG  - - - 

THIS  COMMON  BLOCK  IS  CENERATED  IN  SUBROUTINE  GEOM  AND  IS  USED  TO 
DEFINE  PLATE  EDGE  LENGTHS 

VMAG( 14,o)  THIS  DEFINES  THE  LENGTH  OF  EDGES  ON  PLATES  IN  WAVELENGTHS. 
THE  LENGTH  OF  EDGE  ME  OF  PLATE  MP  IS  GIVEN  BY 
VMAG(MP.ME) 


CO).  MO  I  ESTER  - 

THIS  COMMON  BLOCK  IS  USED  IN  MAIM  TO  STORE  THE  TOTAL  ELECTRIC 
F I ELDS . 

eiEKSo  I )  THIS  COMPLEX  ARRAY  IS  U5ED  TO  STORE  THE  TOTAL 
E- THETA  FIELD 

EPHTCOI)  THIS  COMPLEX  ARRAY  IS  USED  TO  STORE  THE  TOTAL 
E-PHI  FIELD 

THIS^COMmOU  SLOCK  DEFINES  THE  TYPE  OF  SOURCE  USED  AND  THE 
DIMENSIONS  On  THE  SOURCE  (VARIABLES  DEFINED  !H  MAIN  PROGRAM) 

IM  THIS  DEFINES  THE  TYPE  OF  SOURCE  USED! 

l."=U  SPECIE  iES  ELECTRIC  SOURCE 
I M= I  SPECIFIES  MAGNETIC  SOURCE 

H  THE  LENGTH  OF  THE  SOURCE  (IN  THE  DIRECTION  OF  THE  SOURCE 
CURRENT)  IN  WAVELENGTHS 

HA«','  1HE  APERTURE  WIDTH  IN  WAVELENGTHS  (WIDTH  OF  THE  SOURCE) 

(IF  HAW  IS  LESS  THAN  0.1  WAVELENGTHS  ,  THE  CODE 
ASSUMES  THE  SOURCE  TO  BE  A  LINE  SOURCE) 

CO/  MCI  EE  DT  AT  - 

mu  CC/.MOI  BLOCK  CONTAINS  SOURCE  PATTERN 
FAC. OR  INFORMATION  FOR  USE  WHEN  THE  USER 

CHLCbLS  10  DEFINE  THE  SOURCE  PATTERN  FROM  DATA  OBTAINED  ELSEWHERE 
ru  U  USED  IN  AN  INTERPOLATION  SCHEME 

EifcDl.Ol)  THIS  COMPLEX  ARRAY  DEFINES  THE*  E-PLANE  PATTERN  OF  THE 
SOURCE 

HEED(Sol)  HUS  COMPLEX  ARRAY  DEFINES  THE  H-PI.ANF  PATTERN  OF  THE 
SOURCE 
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COMMON  FNANG  - - - 

THIS  COMM OK  BLOCK  DEFINES  WEDGE  ANGLES  FOR  PLATE  EDGES.  IT  IS 
GENERATED  IN  SUBROUTINE  GEOM  AND  USED  IN  DIFFRACTION  COEFFICIENT 
CALCULATIONS. 

F»P<U,6)  WEDGE  ANCLE  OF  EDGE  ME  OF  PLATE  MP 

FNP(MP,ME)=»(2*PI-WA)/PI  .WHERE  WA  IS  THE  INSIDE 

ANCLE  OF  THE  WEDGE.  IT  IS  RENAMED  FN  IN  THE  MAIN 

PROGRAM  BEFORE  CALLING  DIFFRACTION  SUBROUTINES 

NOTE »  IF  TWO  PLATES  INTERSECT,  DIFFRACTION  CALCULATION  IS  ONLY 

CALCULATED  ONCE,  EVEN  THOUGH  TWO  DIFFERENT  EDGES  ARE  INVOLVED. 

THEREFORE,  THE  WEDGE  ANGLE  FOR  ONE  OF  THE  COMMON  EDGES 

WILL  BE  SET  NEGATIVE  AS  A  FLAG  AND  THE  DIFFRACTED  FIELD 

LIU-  ONLY  BE  CALCUALTED  ONCE  FOR  THE  COMMON  EDGES 

(THE  FLAGGED  EDGE  IS  IGNORED) 


CCMHuN  FliDG  - 

THIS  COMMON  BLOCK 
OPTICS  REFLECTION 
SUBROUTINE  SCTCYL 
than 
ESTH 


IS  USED  TO  TRANSFER  DATA  CONCERNING  GEOMETRICAL 
FROM  THE  CYLINDER  IN  SUBROUTINE  REFCYL  TO 


ESPH 
EHTH  ( 
HHPH 
Xh(o) 
RG 
KIICM 

SMAG 

LTKF 


THE  SPREAD  FACTOR  AND  PHASE  OF  THE  G.O.  FIELD 

UIET A  AND  PHI  COMPONENTS  OF  SOFT  COMPONENT  OF  FIELD  INCIDENT 

Oil  CYLINDER  REFLECTION  POINT 

THETA  AND  PHI  COMPONENTS  OF  HARD  COMPONENT  OF  FIELD  INCIDENT 
ON  CYLINDER  REFLECTION  POINT 

X,Y,Z  COMPONENTS  OF  THE  REFLECTION  POINT  LOCATION  IN  RCS 

RADIUS  OF  CURVATURE  OF  CYLINDER  AT  REFLECTION  POINT 

RAY  SPREADING  RADIUS  IN  PLANE  OF  CYLINDER  CURVATURE  AT 

REFLECTION  POINT  IN  RCS 

DISTANCE  FROM  SOURCE  TO  REFLECTION  POINT 

SET  TRUE  IF  GEOMETRICAL  OPTICS  REFLECTED  FIELD 

IS  NOT  PRESENT 


COMMON  FUDGI  - - 

fill  S  COMMON  BLOCK  IS  USED  TO  TRANSFER  DATA  CONCERNING 
GECMLTrt ICAL  OPTICS  REFLECTION  FROM  A  PLATE  THEN  FROM  THE 
CYLlfiLER  IN  SUBROUTINE  RPLRCL  TO  SUBROUTINE  RPL5CL. 

TRAN  THE  SPREAD  FACTOR  AND  PHASE  OF  THE  GEOMETRICAL  OPTICS 
FIELD 

ESTH  THE  THETA  COMPONENT  OF  THE  SOFT  COMPONENT  OF  THE 
FIELD  INCIDENT  ON  CYLINDER  REFLECTION  POINT  AFTER 
PLATE  REFLECTION 

ESPH  PHI  COMPONENT  OF  SOFT  COMPONENT  OF  THE  FIELD  INCIDENT 
ON  THE  CYLINDER  REFLECTION  POINT  AFTER  PLATS  REF!.. 

EHTH  THETA  COMPONENT  CF  HARD  COMPONENT  OF  FIELD 

MCI  DENT  ON  CYLINDER  REFLECTION  POINT  AFTER  PLATF  REFLECTION 
EHPM  PHI  COMPONENT  OF  HARD  COMPONENT  OF  FIELD  INCIDENT 
ON  CYLINDER  REFLECTION  POINT  AFTER  PLATE  REFLECTION 
XK< 3)  X, Y.Z  COMPONENTS  OF  THE  REFLECTION  POINT  LOCATION 
til  RCS 

RG  HAY  SPREADING  RADIUS  IN  PLANE  OF  CYLINDER  CURVATURE 
AC  REFLECTION  POINT  IN  RCS 

RUG  I  RAY  SPREADING  RADIUS  IN  PLANE  OF  CYLINDER  CURVATURE 
AT  REFLECTION  POINT  IN  RCS 

SMAG  DISTANCE  FRC If.  THE  SOURCE  IMAGE  TO  THE  CYLINDER 
REFLECTION  POINT 

LlRrl  SET  TRUE  IF  GEOMETRICAL  OPTICS  REFLECTED  FIELD 
IS  I.OT  PRESENT. 

:,‘0)M0!  FuiX'J - ~ — — — 

Mils  CO). KM  BLOCK  If  USED  TO  TRANSFER  DATA  CONCERNING  GEOMETRICAL 
UPIloi  Hfcr  LECTION  FROM  WE  CYLINDER  AND  THEN  A  PLATE  IN 
SUBROUTINE  HCLRI’L  TO  SUPHOUTINE  SCLRPL 

Tran  the  spread  factor  and  phase  of  the  o.o.  field 

ESTH  \  THETA  AND  PHI  COMPONENTS  OF  SOFT  COMPONENT  OF  FIELD  INCIDENT 
tSPH  i  ON  CYt.I.DEH  REFLECTION  POINT 
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KHTK  THE)  A  AMD  PHI  COMPONENTS  OF  HARD  COMPONENT  OF  FIELD  I MCI  DENT 
Hr  IP  K  O.M  CYLINDER  REFLECTION  POINT 

Xi»<2>  X,  Y,Z  COMPONENTS  OF  THE  REFLECTION  POINT  LOCATION  IN  DCS 
KG  RADIUS  OF  CURVATURE  OF  CYLINDER  AT  REFLECTION  POINT 

HHC I  RAY  SPREADING  RADIUS  IN  PLANE  OF  CYLINDER  CURVATURE  AT 
REFLECTION  POINT  IN  RCS 

SHAG  DISTANCE  FROM  SOURCE  TO  REFLECTION  POINT 
LTRrJ  SET  TRUE  IF  GEOMETRICAL  OPTICS  REFLECTED  FIELD 
IS  NOT  PRESENT 

THis°COMMOf!EBLOCfC  CONTAINS  INFORMATION  DEFINING  THE  ELLIPTIC 
CYLINDER  GEOMETRY  (SPECIFIED  IN  MAIN  PROGRAM  FROM  DATA  INPUT) 

A  RADIUS  OF  ELL  CYLINDER  ALONG  X-AXIS  OF 
THE  CYLINDER  IN  WAVELENGTHS 
i)  RADIUS  Or  ELL  CYLINDER  ALONG  Y-AXIS  OF 

THE  CYLINDER  IN  WAVELENGTHS 

ZC(  2)  POINT  WHERE  END  CAP  MC  INTERSECTS  Z  AXIS  OF  REFERENCE 
COORDINATE  SYSTEM 

THE  VARIABLE  ZCCI)  REFERS  TO  THE  MOST  POSITIVE 
END  CAP  AND  THE  ZC<2)  REFERS  TO  THE  MOST  NEGATIVE 
END  CAP 

SNC(2)  THIS  IS  THE  SINE  OF  THE  ANGLE  BETWEEN  THE  Z  AXIS  ANO  THE 
PLANE  OF  END  CAP  .MC  (ANGLE  MEASURED  IN  X-Z  PLANE) 

CNC (2 )  THIS  IS  THE  COSINE  OF  THE  ANGLE  BEThEEN  THE  Z  AXIS  AND  THE 
PLANE  OF  END  CAP  MC  (ANGLE  MEASURED  IN  X-Z  PLANE) 

CrC(2)  THIS  IS  THE  COTANGENT  OF  THE  ANGLE  BETWEEN  THE  Z  AXIS  AND  THE 
PLANE  OF  END  CAP  MC  (ANCLE  MEASURED  IN  X-Z  PLANE) 

COT  Mu R  GEOPLA - 

THIS  COMMON  BLOCK  CONTAINS  GEOMETRICAL  DATA  DEFINING  THE 
GEUitTRY  Or  THE  PLATES  (CALCULATED  IN  SUBROUTINE  GEOM) 

X( )A,0,S)  THIS  ARRAY  DEFINES  CORNER  LOCATIONS  FOR  ALL  OF  THE  PLATES  IN 
THE  (XYZ)  REFERENCE  COORDINATE  SYSTEM  COMPONENTS 
IN  WAVELENGTHS 

THE  LOCATION  OF  CORNER  MC  ON  PLATE  MP  IS  AS  FOLLOWS! 

X=X  ( MP,  MC,  I  ) 

Y=*X(MP,MC,2) 

Z=X(MP,.MC,3> 

V(U,t,3)  IMIS  DEFINES  THE  EDGE  UNIT  VECTOR  FOR  EACH  EDGE  ON 
EACI  PLATE 

THE  EDGE  VECTOR  V  OF  EflGE  ME  ON  PLATE  MP  IS  AS  FOLLOWS! 

Vaf*V  (MP  ,UE,  1  HY* V  ( MP  .ME,  2 )  ♦7*V  (HP.  ME,  3 ) 

(NOTE  THAT  EDGE  ME  IS  BETWEEN  CORNERS  MC  AND  MC*I 
WHERE  MC-ME) 

VP( 14,0,3)  THIS  DEFINES  THE  UNIT  B I NORMAL  FOR  EACH  EDGE  DM  EACH 
PLATE  IN  (XYZ)  REFERENCE  *YSTEM  COMPONENTS 
THE  EDGE.  01  NORMAL  FOR  EDGE  ME  OF  PLATE  up  IS  AS  FOLLOWS! 

VP« t* V P  ( M P ,  M E ,  I  ) ♦' Y* V P  ( M P ,  M E , 2  ) *?* V p  ( U P ,  M E ,  3 ) 

VN(U,2)  THIS  DEFINES  THE  UNIT  NORMAL  FOR  EACH  PLATE  IN  (XYZ) 

REFERENCE  COORDINATE  SYSTEM  COMPONENTS 
THE  PLATE  UNIT  NORMAL  FOR  PLATE  >P  IS  GIVEN  AS  FOLLOWS! 
VN«7*VN<tfP,  l)»?*VN(WP,2>*?*VN(MP,3) 

MfcP(U)  THIS  INTEGER  ARRAY  DEFINES  THE  NUMBER  OF  EDGES 
(OR  CORNERS)  ON  PLATE  MP 

MF'X  lllIL  INTEGER  DEFINES  THE  NUMBER  OF  PLATES  IN 
THE  GEOMETRY  ( MTT  INCLUDING  GROUND  PLATE) 


CUi  \R.  Gi,  UGT.’I  — - - - - 

iltli  CCFMO"  BLOCK  GIVES  I KrOlCtATI W  CONCERNING  THE  INFINITE  GROUND 
t’LANc 

Lwl,J  A  LOGICAL  VAHIABL:  USED  TO  INDICATE  THE  PRESENCE  OF  AN 
INFINITE  GRCUNG  PLANE 

LORML-T  INDICATES  GROUND  PLANE  PRPSFNT 
LGRNP-F  INDICATES  GROUND  PLANE  NUT  USED 
-P)n  TMc  J AXIMUP  KU-BFR  OF  PLATES  PRESENT  (INCLUDING  THE 
(miv.f.v  plane  IF  CNE  IS  USED) 
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COAMoL  Cl'L)  - - - — — — —  — 

THIS  CGiUOt,  BLOCK  CONTAINS  INFORMATION  RELATED  TO  THE 
CREEPING  .n/VES  IN  SUBROUTINES  SCTCYl.ftPLSCL.SCI 
t-ci,  /::o  iiadcv 

AS  PI  LINUS  THSR  (THSR  IS  THE  THETA  COMPONENT  Or  THE 

OBSERVATION  DIRECTION  IN  fi EFS'FNCE  COORDINATE  SYSTEM 
RELATIVE  TO  THE  CYLINDER  AXIS  IN  RADIANS) 

I  DC  I-' LAC  FOR  FUNCTION  ECT 

SAL  THE  SINE  OF  AS 

SASP  THE  ABSOLUTE  VALUE  OF  THE  SINE  OF  AS-PI/2 
CAS  THE  COSINE  OF  A5 

COMMON  HI  TUT - 

THIS  COMMON  CLOCK  CONTAINS  A  VARIABLE  THAT  IS  DEFINED 
IN  Suti.OUTINE  PLAINT  AND  IS  USED  IN  SUBROUTINE  OEOH 
FOh  IDENTIFYING  DOUBLE  DIFFRACTIONS  FOR  PLATES 
MPH  THE  NUA1BER  OF  THE  °LATE  NHICH  THE  RAY  HITS  FIRST 


COMMON  MAI Uf - 

THIS  COMMON  BLOCK  DEFINES  SOURCE  IMAGE  LOCATIONS  AND 
DIRECTIONS  FOR  REFLECT I CN  FROM  PLATES.  (CALCULATED  IN  GEOM) 
11(14,14,3)  THIS  GIVES  THE  SOURCE  IMAGE  LOCATIONS  IN 

NAVE LENGTHS  FOR  ALL  SINGLE  AND  DOUBLE  REFLECTIONS 
FROM  PLATES 

THE  SOURCE  IMAGE  LOCATION  FOR  A  RAY  WHICH  IS  SINGLY  REFLECTED 

from  plate  mp  is  given  by* 

XaXIlMP.NP, I) 

Y*XIU’P.MP.2) 

2*XI04P.MP.J) 

IHc  SOURCE  IMAGE  LOCATION  FOR  A  DOUBLY  REFLECTED  RAY  WHICH 


RkrLECTS  OFF  Or  PLATE  UP  AND  THEN  PLATE  MPP  IS  GIVEN  BY* 
X»XI  ( KP.i'PP,  I ) 

Y-XKI4P  .MPP  ,2) 
i'"XI  (HP, MPP, 3  ) 

VXKJ.j.U)  THIS  SPECIFIES  SINGLE  REFLECTION  SOURCE  IMAGE 

COORDINATE  SYSTEM  AXES  UNIT  VECTORS  IN  ( XY2)  REFERENCE 
COORDINATE  SYSTEM  COMPONENTS 

THE  IMAGE  SOURCE  COORDINATE  SYSTEM  AXES  UHJT  VECTORS 
FOR  SINGLE  REFLECTION  Of  SOURCE  IN  PLATE  MP  ARE 
GIVEN  BY* 

GIVEN  BY*  .  ^ 

XP«S*VXI<  l,l,MP»Y*VXt(  l,2,VO)*T»VXI<1.3.MP) 

Vfi.t* VX I  ( 2. )  %MP )»Y*VX I  ( 2 . 2,  MJ  )*f#VX  I C  ?,  .T. MP ) 
2P»?*VXI  (  3, 1 , MP  )♦?* VX I  ( 0.2. MP)*Z*VX  H  3.  3, MP ) 


COf.Ao).  1.4CINF - 

THiS  EL OCX  CONTAIN*  INFCRMATJWi  DEFINING  THE  SOURCE  IMAGE 

fO*  SINGLE  REFLECTION  FROM  A  CYLINDER  END  CAP  IN  WAVELEMGTHS. 

THE  iNrCHiHTIC?;  IS  GENERATED  IN  GEONC  A  HO  JMCPlft. 

XICC2.3)  THIS  GIVES  THE  SOURCE  IMAGE  LOCATIONS  FOR  SINGLE 
REFLECTIONS  FROM  CYLINDER  END  CAPS. 

THE  SOURCE  LOCATION  FOR  REFLECTION  FROM 
EDO  CAP  MC  IS  GIVEN  IN  Tt£  RCS  AS* 

X»XtC(«Ct l > 

Y"XfC(AC,2* 

Z«XIi:tVC,3) 

vXICt-,3.2)  THIS  DEFINES  THE  SOURCE  IMAGE  COORDINATE 
SYSILU  AXES  FOR  REFLECTION  FROM  fND  CAPS. 

THE  SOURCE  IMAGE  COOrtOINATF  SYSTEM  AXES  UNIT 
VECTORS  FOR  A  ft AY  REFLECTED  FROM  ENG  CAP  SC  ARE 
GlVcIiJ*.  THE  «CS  AS  FOLLOWS* 

x>«T«vxicn  ,*  ,mc>«T*vx  :c(  i.2.*v:)^t'*vxicn  ,3.«c» 
|?«X'»V>fC(2.l  .MO^YvVX/CIZ.P.MC^pvXICfZ.J.MC) 
IC( 3 .  i  ,ac ) ♦Y«VXI C(  3. 2.  VC  :*Z*VS  IC4 3.3.NC ) 
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JOA. MON  LDCBY  - 

THIS  Ah  HAY  OF  VARIABLES  IS  COMPUTED  IN  SUBROUTINE  CEOMPC 
LDCCU.o)  LOGICAL  VARIABLE  j 

LDC < MP .ME)  IS  SET  TRUE  IF  EDGE  ME  OF  PLATE  MP  IS 
PART  OF  A  DIFFRACTING  WEDGE  USED  TO  CpMPUTF 
DIFFRACTED  FIELDS  FOR  PLATE  DIFFRACTED.  CYLINDER 
REFLECTED  E/st  j 

CU.UtON  L'JL'U IF  -  ! 

*  HI  S  COMMON  BLOC*  CONTAINS  INFORM  ATI  OH  THAT  INDICATES  WHETHER  OR 
NOT  SLOPE  AND  CORNER  DIFFRACTION 

MECHANISMS  ARE  TO  LE  INCLUDED  IN  FIELD  CALCULATIONS 
LSLOPfc  A  LOGICAL  VARIABLE  USED  TO  INDICATE  IF  SLOPE  DIFFRACTION 
IS  DESIRED 

LSLOPE=T  INDICATES  SLOPE  DIFFRACTION  DESIRED 
LSLOPE=F  INDICATES  SLOPE  DIFFRACTION  NOT  DESIRED 
LCUHNh  A  LOGICAL  VARIABLE  USED  TO  INDICATE  IF  CORNER  DIFFRACTION 
IS  DESIRED 

LCORNR=T  INDICATES  CORNER  DIFFRACTION  DESIRED 
LCORNR=F  INDICATES  CORNER  DIFFRACTION  NOT  DESIRED 


CO  A  MO  I-  LPLCY  - 

THIS  COMMON  BLOCK  CONTAINS  LOCICAL  VARIABLES  INDICATING  THE  PRESENCE 
OR  ABSENCE  OF  PLATES  AND  CYLINDERS  IN  THE  GEOMETRY  (SPECIFIED  IN 
MAIN  PROGRAM) 

LPLA  A  LOGICAL  VARIABLE  USED  TO  INDICATE  THE  PRESENCE  OF  AT 
LEAST  ONE  PLATE  OR  INFINITE  GROUND  PLATE 

LPLA=T  INDICATES  PLATES  ARE  PRESENT 
LPLA*F  INDICATES  PLATES  NOT  PRESENT 
LCYL  A  LOGICAL  VARIABLE  USED  TO  INDICATE  THE  PRE5ENCE  OF 
AN  ELLIPTIC  CYLINDER  ! 

LCYL=T  INDICATES  CYLINDER  PRESENT 
LCYL=F  INDICATES  CYLINDER  NOT  PRESENT 

j 

THIS°cOM,mONP3LOCi;  IS  USED  TO  TRANSFER  DATA  BETWEEN  SUBROUTINE  GEOV 
AND  SUBROUTINE  PLAINT  FOR  THE  TOTAL  SHADOWING  ALGORITHM 
LSI S  A  LOGICAL  VARIABLE  SET  TRUE  IF  TOTAL  SHADOWING  ALGORITHM 
IS  BEING  USED 

LSTDCIO  A  LOGICAL  ARRAY  SUCH  THAT 

LSTDCML)  IS  SET  TRUE  IF  PLATE  ML  TOTALLY  SHADOWS  PLATE  MP 
FROM  THE  SOURCE 

| 

CO/.VOI  LSHCT - — 

THIS  CO /.MON  BLOCK  CONTAINS  INFORMATION  INDICATING  PLATES  THAT 
ARE  TOTALLY  SHADOWED  FROM  THE  SOURCE  OR  PLATES  WHICH  ARE  SHADOWED 
FROM  CTHER  PLATES  (GENERATED  IN  SUB.  GEOM /AND  USED  IN  MAIN  PROGRAM) 
LSHLHU)  A  LOGICAL  VARIABLE  USED  TO  INDICATE  IF  PLATE  MP  IS  TOTALLY 
SHADOWED  FROM  THE  SOURCE  BY  ANY  ONE  PLATE  OR  THE  CYLINDER 
LSHD ( MP) *7  INDICATES  PLATE  MP  IS  TOTALLY  SHADOWED  FROM 
DIRECT  SOURCE  RAYS  i 

LSMD(MP)»F  INDICATES  PLATE  MP  IS  NOT  TOTALLY  SHADOWED 
LIHrXU.M)  A  LOGICAL  VARIABLE  USED  TO  INDICATE  IF  PLATES 
MJ>  AND  MPP  CANNOT  ILLUMINATE  EACH  OTHER 

LIHDC«P,,.'PP)»T  INDICATES  PLATES  CANNOT  ILLUMINATE  EACH  OTHER 
LIHU(MP,MPP)«F  INDICATES  PLATES  CAM  ILLUMINATE  EACH  OTHER 

} 

CuMaIiR.  OiJTl’Tii  -  i 

» HI  S  CO.'.'MU'J  BLOCK  CONTAINS  INFORMATION  USED  TO  OBTAIN  THE 
PRC. PER  FIELD  OUTPUT  IN  SUBROUTINE  OUTPUT.  ! 

lpral  this  logical  variable  is  set  true  if  total  power 

RADIATE!'.  UY  TUB  SOURCES  IS  SPECIFIED  BY  THE  USER 
LRA.'/C  Tiil;  LOGICAL  VARIABLE  IS  SET  TRUE  IF  COMPUTED 

rAH-ZOflt  FIELD  VALUES  ARE  TO  INCLUDE  RANGE  FACTOR 
<CEXP(-J«R)/H>  i 

PrAL)  tojaL  P<J.Ui|{  RADIATED  (OR  INPUT  POWFR)  IN  WATTS 
( SPEC  I F 1 1:1)  t-Y  IMF  USFl/)  ; 

i 
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*‘•1  ;-I  SI  Al.tr  FROM  THE  ORIGIN  TO  THE  FAR  FIELD 
►"JIM  II.  VET L".*’ S  i  - 

•VL  trie  WAVELENGTH  IN  METERS  I 

CO FLOCK  DEFINES  THE  PATTERN  CUT  COORDINATE  SYSTEM. 
a PCU)  THIS  DEFINE?  THE  PA1TERN  CUT  COORD  SYSTEM  X  AXIS  UNIT 
VECTOR  If!  ( XYZ )  REr.  COORD.  SYS.  COMPONENTS 
THE  X  AXJLS  UNIT  VECTOR  IS  G! VEN  AS  * 

XPCaT*XPC(  I  )  +  Y*XPC(2)+2‘*XPC(J) 

YPl(j)  i  lls  DEFINES  THE  PATTERN  CUT  COORD  SYS  Y  AXIS  UNIT 
VECTOR  IN  (XYZ)  RCS  COMPONENTS  1 
THE  Y  AUS  UNIT  VECTOR  IS  GIVEN  AS* 

YPC="a»  YPC(  I  >+?*YPC(2)+2*YPC<3) 

<:pc<3;  this  defines  die  pattern  cut  coord  sys  z  axis  unit 

vECTCn  IN  <  X  Y  7. )  REF.  COORD.  SYS.  COMPONENTS 
THE  2  AXU  UNIT  VECTOR  IS  GIVEN:  AS* 

ZPC«5i*ZPC<  I  )+?*ZPC(2)+2>ZPC(3> 

i 

THIS  ON  FLOCK  CONTAINS  MATHEMATICAL  CONSTANTS  BASED  ON 
THE  NU  Li:. -I.  PI  i'll! I CH  ARE  USED  THROUGHOUT  THE  PROGRAM 
THEY  At.E  DEFINED  IV  THE  BLOCK  DATA. 

P!  THE  CONSTANT,  PI  (3.14159265)  | 

rPI  A  CONSTANT,  TWO  TIMES  PI  (6.28318531) 

DPR  THE  CONVERSION  FACTOR  FOR  CONVERTING  ANGULAR  MEASUREMENTS 
IN  KALIANS  TO  DEGREES  (=  I80/PI=57.2957795) 

RPL)  THE  CONVERSION  FACTOR  FOR  CONVERTING  ANGULAR  MEASUREMENTS  IN 
DEGREES  TO  RADIANS  (  =P  1/ 183*0.01  74532925  ) 

THIS  COXU‘;DfcLOCK  DEFINES  THE  NEW  REFERENCE  COORDINATE  SYSTEM  AXES 
DIRECTIONS.  IT  IS  DEF! NED  FROM  INPUT  DATA  IN  TIE  MAIN 
PROGRAM  AN.)  IS  USED  IN  SUBROUTINE  ROTRAN  TO  TRANSFORM  LOCATIONS 
AND  VECTORS  FROM  OLD  REF  COORD  SYSTEM  COMPONENTS  TO  NEW  REFERENCE 
COORDINATE  SYSTEM  COMPONENTS.  THE  NEW,  REFERENCE  COORDINATE  SYSTEM  IS 
THE  CYLINDER  COORDINATE  SYSTEM  (IF  A  CYLINDER  IS  PRESENT). 

IF  Till:  CYLINDER  IS  NOT  PRESENT  THE  TRANSFORMATION  IS  NOT  NECHSSARY 
SINCE  THE  REFERENCE  COORDINATE  SYSTEM  REMAINS  THE  SAME  COORDINATE 
SYSTr.M  IN  WHICH  THE  GEOMETRY  WAS  DEFINED 

XCL(J)  THIS  DEFINES  THE  NEW  REFERENCE  COORDINATE  SYSTEM  X-AXIS  UNIT 
VECTOR  IN  OLD  REFERENCE  SYSTEM  COMPONENTS 
THE  RCS  X-AXI£  WIT  VECTOR  S  DEFINE^  AS* 

X»XO*XCL< I )+YO*XCL(2>+ZO*XCL<3) 

YCL(i)  THIS  DEFINES  THE  NEW  REFERENCE,  COORDINATE  SYSTEM  Y-AXIS  UNIT 
VECTOR  IN  OLD  REFERENCE  SYSTEM  COMPONENTS 
THE  RCS  Y-AXIS  WIT  VECTOfL  I  S  DEFINED  AS* 

Y=XG*YCL(  I  )«-Y0*YCL(2)+Z0*YCL<3) 

ZCLC3)  THIS  DEFINES  THE  NEW  REFERENCE  COORDINATE  SYSTEM  Z-AXIS  UNIT 
VECTOR  IN  OLD  REFERENCE  SYSTEM  COMPONENTS 
THE  RCS  Z-AXIS  UNIT  VECTORS  DEFINED  AS* 

^  ^  j?»XO*ZCL(  I  )+YO*ZCL'<2)>ZO*ZC?.(3) 

WHERE  XO,YO,ZO  ARE  UNIT  VECTORS:  OF  THE  OLD  REPHRENCE 
COORD  SYS  AXrS  | 

COMMON  SO  11 1  Nr  - 

THIS  (.'( 'Ml ON  BLOCK  CONTAINS  INFORMATION  PERTAINING  TO  THE  LOCATION 
AND  ORIENTATION  OF  THE  SOURCE  UNDER  CONSIDERATION  (SPECIFIED  IN 
MAIN  IrCGRa.M)  ! 

Xb(J)  THE  LOCATION  OF  THE  SOURCE  IN  (XYZ)  REFERENCE  COORDINATE 
SYSTEM  COMPONENTS  IN  WAVELENGTHS 
VXS ( 3 , j )  A  3X3  MATRIX  DEFINING  THE  SOURCE  COORDINATE 

SYSTEM  AXES  UNIT  VECTORS  IN  REFERENCE  COORDINATE  SYSTEM 
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COMPONENTS * 


§«1f*VXS<  1 ,  t  )+?*VXS(  1 ,2  )+2>VXS(  1,3) 
•X* VXS(  2 ,  I )  +Y*VXS  (2 , 2 )  +t*  VX  S(  2 , 3 ) 
o?*VXS<  3,  I  )+'?'*VXS(3,2  )+Z*VXS(3,3) 


CO /.NON  SOUPS}-  - 

fills  COMMON  BLOCK  CONTAINS  A  SOURCE  FIELD  FACTOR. 

IT  IS  COMPUTED  IN  SUBROUTINES  GEOM  AND  G60MC  AND  IS  USED 
III  SUtHOUTINE  SOURCE  AND  SOUHCP. 

t-ACTOh  THIS  IS  A  COEFFICIENT  OF  THE  SOURCE  FIEIJ1  USED 

TO  OBTAIN  THE  CORRECT  FIELD  MAGNITUDE  FOR  SOURCES 
MOUNTED  OH  PLATES  OR  END  CAPS  (IN  ORDER  TO 
COMPENSATE  FOR  IMAGE  EFFECTS).  FACTOR  IS  GIVEN  AS 
FOLLOWS* 

FOR  ELECTRIC  SOURCES* 

FOP  SOURCE  NOT  MOUNTED  ON  PLATE  OR  END  CAP, 

FACTOR*! .0 

-CP  SOURCF  MOUNTED  NORMAL  TO  PLATE  OR  END  CAP, 
FACTOR*! .0 

FOP  SOURCE  MOUNTED  ON  PLATE  OR  END  CAP  BUT  NOT 
NORMAL  TO  IT, 

FACT  OR  =0.5 

FOR  MAGNETIC  SOURCES* 

FOR  SOURCE  NOT  MOUNTED  ON  PLATE  OR  END  CAP, 

FACTOR* ! .0 

FOP  SOURCE  MOUNTED  ON  PLATE  OR  END  CAP  AND 
PARALLEL  TO  IT, 

FACTOR =2.0 

FOP  SOURCE  MOUNTED  ON  PLATE  OR  END  CAQ,  BUT  NOT 
PARALLEL  TO  IT, 

FACTOR*!  .0 

CQttlON  SR F ACC  - - 

THIS  COMMON  BLOCK  IS  DEFINED  IN  SUBROUTINE  GEOMC  AND  IS  USED  IN  THE 
MAIN  PROGRAM 

LSRFC(MC)  A  LOGICAL  VARIABLE  INDICATING  WHETHER  OR  NOT 

THE  SOURCE  UNDER  CONSIDERATION  IS  MOUNTED  ON  CYLINDER 
END  CAP  MC 

LSRrC(MC)=T  INDICATES  SOURCE  MOUNTED  ON  END  CAP  MC 
LSRFC(MC)=F  INDICATES  SOURCE  NOT  MOUNTED  ON  END  CAP  MC 

GOtfeOI.  SURF  AC  - - - 

THIS  BLOCK  IS  DEFINED  IN  SUBROUTINE  GEOM  AND  IS  USED  IN  THE  MAIN 
PROGRAM  AMD  IN  SEVERAL  SUBROUTINES 

LSUPFI ! A)  A  LOGICAL  VARIABLE  INDICATING  hH ETHER  OR  NOT 

THE  SOURCE  UNDFR  CONSIDERATION  IS  MOUNTED  ON  PLATE  MP 
LSUPF<MP)=T  INDICATES  SOURCE  MOUNTED  ON  PLATE  MP 
LSUPF(MP!=F  INDICATES  SOURCE  NOT  MOUNTED  ON  PLATE  MP 


COU,Ul\  TEST  - 

THIS  COMMON  BLOCK  CONTAINS  LOGICAL  VARIABLES  USED  TO  INSTRUCT 
Tilt  CODE  WHETHER  OP  NOT  A  PRINT-*rUT  OF  TEST  DATA  IS  DESIRED. 

LUEBUC  THIS  LOGICAL  VARIABLE  IS  SET  TRUE  IF  DEBUGGING  DATA  IS  TO 
BE  PRINTED  ON  LINE  PRINTER 

LIE S'T  THIS  LOGICAL  VARIABLE  IS  SET  TRUE  IF  TEST  DATA  IS  TO 
BE  PRINTED  ON  LINE  PRINTER 
COt  MO  1.  1HPHUV  - 

THiS  COMMON  BLOCK  CONTAINS  INFORMATION  DEFINING  THE  THETA  AND  PHI 
POLAkIZATION  UNIT  VECTORS  FOR  THE  OBSERVATION  DIRECTION  (COMPUTED  IN 
MAIN  PROGRAM) 

DT( o)  THE  THETA  UNIT  VECTOR  FOR  OBSERVATION  DIRECTION  D 
IN  KCS  COMPONENTS* 

OT=1f*DT  ( t )  +Y*DT  ( 2  )  +"?*DT  ( 3  > 

DPI 2)  THE  PHI  UNIT  VECTOR  FOR  OBSERVATION  DIRECTION  D  IN  REFERENCE 
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COORDINATE  SYSTEM  COMPONENTS* 

UP«X*DP ( I )+?*DP ( 2 )+Z*DP ( 3 ) 


COUiuN  'iOPD _ . _ 

SUbPOU  Ih=S  BL0CIC  CONTAINS  A  CO  ns  i'A  NT  USED  IN  THE  DIFFRACTION 
T0P  THE  COMPLEX  CONSTANT,  -CEXP(-J*PI/4> 


CHAPTER  VI 

SYSTEM  LIBRARY  FUNCTIONS  USED  BY  CODE 

ACOS(X)  =  arccos  of  X;  result  in  radians 
AINT(X)  =  X  truncated  to  an  integer  and  set  real 
ALOGIO(X)  =  log  to  base  ten  of  X 

ATAN2(Y,X)  =  arctangent  of  Y/X;  result  in  radians  covering  all  four 
quadrants 

CABS(Z)  =  magnitude  of  the  complex  number,  Z 
CEXP(Z)  =  complex  exponential  (eL)  ,  t  ,7X 

CLOG(Z)  =  complex  log  of  Z  {In  Z  + j  tan"1  ttfc) 

CONJG(X)  =  complex  conjugate  of  Z 
COS(X)  =  cosine  of  X 

CSQRT(Z)  =  square  root  of  <.  complex  number,  Z 

SIGN ( X, Y)  =  sign  of  Y  times  absolute  value  of  X 
SIN(X)  =  sine  of  X 

SQRT(X)  =  square  root  of  X 

TAN(X)  =  tangent  of  X 
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